Use DFAllEnt.pkg
Use cCJStandardCommandBarSystem.pkg
Use cCJCommandBarSystem.pkg

Object oHtmlHelp is a cHtmlHelp
End_Object

Object oApplication is a cApplication
    Property String psCmdLineFile
    Property String psFileCompareApp

    Set peHelpType to htHtmlHelp
    Set psProduct  to "CleanMarkers"

    Procedure OnCreate
      Boolean bFileExists
      Handle  hoCmdLine
      Integer iNumArgs iArg
      String  sFile
      String  sCompareApp

      Forward Send OnCreate

      Get phoCommandLine To hoCmdLine
      If (hoCmdLine) Begin
        Get CountOfArgs of hoCmdLine To iNumArgs
        If (iNumArgs=1) Begin
          Get Argument of hoCmdLine 1 to  sFile
          File_Exist sFile bFileExists
          If (bFileExists) Begin
            Set psCmdLineFile to sFile
          End
        End
      End
      Get ReadString "" "FileCompare" "" To sCompareApp
      Set psFileCompareApp To sCompareApp
    End_Procedure

    Procedure Set FileCompareApp String sCompareApp
      Send WriteString "" "FileCompare" sCompareApp
      Set psFileCompareApp To sCompareApp
    End_Procedure

    Function FileCompareApp Returns String
      String sCompareApp
      Get psFileCompareApp to sCompareApp
      Function_Return sCompareApp
    End_Function
End_Object

Use cToolTipController.pkg

Object oToolTip is a cToolTipController
    Move Self to ghoToolTipController
End_Object

Use oEditContextMenu.pkg
Use oDEOEditContextMenu.pkg
Use FileCompareConfig.dg


Object oMain is a Panel
    Set Label to "Clean Markers"
    Set Location to 13 19
    Set Size to 300 450

    Use StudioToolsMenu.pkg

    Object oCJCommandBarSystem1 is a cCJCommandBarSystem
        Set pbTimerUpdate to True

        Procedure OnCreateCommandBars
            Handle hoOptions
            Get OptionsObject to hoOptions
            Forward Send OnCreateCommandBars
        End_Procedure

        Object oMenuBar is a cCJMenuBar

            Object oViewMenu is a cCJMenuItem
                Set peControlType to xtpControlPopup
                Set psCaption to "Menu"

                Object oCleanMarkersViewMenuItem is a cCJMenuItem
                    Set psCaption to "Clean Markers"

                    Procedure OnExecute Variant vCommandBarControl
                        Handle hoClient
                        Get Client_Id to hoClient
                        Send Activate_oCleanMarkersView of hoClient
                    End_Procedure
                End_Object

              Object oAddToStudioMenuMenuItem is a cCJMenuItem
                Set psCaption to "Add To DF19.1 Studio Menu"
                Set psTooltip to "Add To DF19.1 Studio Menu"
                    Procedure OnExecute Variant vCommandBarControl
                      Send InstallToStudioMenu
                    End_Procedure
              End_Object

              Object oConfigureFileComparisonMenuItem is a cCJMenuItem
                Set psCaption to "Configure File Comparison"
                Set psTooltip to "Configure File Comparison"
                    Procedure OnExecute Variant vCommandBarControl
                      Send Popup of oFileCompareConfig
                    End_Procedure
              End_Object

            End_Object

        End_Object

        Object oStatusBar is a cCJStatusBar

            Object oStatusPane1 is a cCJStatusBarPane
                Set piID to sbpIDIdlePane
                Set pbStyleStretch to True
            End_Object

            Object oStatusPane2 is a cCJStatusBarPane
                Set phoViewPane to Self
                Set pbStyleStretch to True
            End_Object

        End_Object

    End_Object


    Object oClientArea is a ClientArea
        Use StdAbout.pkg
        Use CleanMarkers.vw


        Procedure Activate_About
            Send DoAbout "" "" "" "" ""
        End_Procedure

    End_Object

End_Object


Send Activate_oCleanMarkersView of (oClientArea(oMain(Self)))

Start_UI
