Use dbUpdateUtilAllEnt.pkg

Use cCJStandardCommandBarSystem.pkg

Object oApplication is a cApplication
    Set psAutoOpenWorkspace to ""
End_Object

Object Main is a Panel
    
    Set Location to 11 10
    Set Label to "Database Update Utility v7.3"

    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 "&Program-vinduer"
                Set psToolTip to "Program-vinduer"
                Set psDescription to "Tilg‘ngelige program-vinduer"

                Object oDatabasedescriptionMenuItem is a cCJMenuItem
                    Set psCaption to "Databasedescription"
                    Set psTooltip to "Databasedescription"
                
                    Procedure OnExecute Variant vCommandBarControl
                        Handle hoClient
                        Get Client_Id to hoClient
                        Send Activate_Describe_vw of hoClient
                    End_Procedure
                End_Object

                Object oDatabaseupdateMenuItem is a cCJMenuItem
                    Set psCaption to "Databaseupdate"
                    Set psTooltip to "Databaseupdate"
                
                    Procedure OnExecute Variant vCommandBarControl
                        Handle hoClient
                        Get Client_Id to hoClient
                        Send Activate_Update_vw of hoClient
                    End_Procedure
                End_Object
            End_Object
    
            Object oWindowMenu is a cCJMDIWindowsMenuItem
    
                Set peControlType to xtpControlPopup
                Set psCaption to "&Vindue"
                Set psToolTip to "Vindue"
                Set psDescription to "Vis aktive vinduer og konfigurer sk‘rm-elementer."
    
                // These are the static windows items. More will be created in onInitPopup
                Object oDisplayOptionsMenu is a cCJMenuItem
                    Set peControlType to xtpControlPopup
                    Set psCaption to "&Sk‘rm-elementer"
                    Set psToolTip to "Sk‘rm-elementer"
                    Set psDescription to "Konfigurer sk‘rm-elementer"
    
                    Object oStatusbarMenu is a cCJStatusbarMenuItem
                    End_Object
    
                    Object oAutoArrangeIconsMenu is a cCJAutoArrangeIconsMenuItem
                    End_Object
    
                    Object oRestoreMenusMenu is a cCJRestoreMenusMenuItem
                        Set pbControlBeginGroup to True
                    End_Object
    
                End_Object
    
                Object oCascadeMenu is a cCJCascadeMenuItem
                    Set pbControlBeginGroup to True
                End_Object
    
                Object oHorizTile is a cCJTileHorizontally
                End_Object
    
                Object oVertTile is a cCJTileVertically
                End_Object
    
                Object oMinimizeMenuItem is a cCJMinimizeWindowsMenuItem
                    Set pbControlBeginGroup to True
                End_Object
    
                Object oRestoreMenuItem is a cCJRestoreWindowsMenuItem
                End_Object
    
                Object oArrangeIconsMenuItem is a cCJAutoArrangeIconsMenuItem
                    Set pbControlBeginGroup to True
                End_Object
    
            End_Object
    
            Object oHelpMenu is a cCJMenuItem
                Set peControlType to xtpControlPopup
                Set psCaption to "&Hj‘lp"
                Set psDescription to "Adgang til information om brug af dette DataFlex program."
                Set psToolTip to "Hj‘lp"
    
                Object oHelpMenuItem is a cCJHelpMenuItem
                End_Object
    
                Object oAboutMenuItem is a cCJAboutMenuItem
                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 Client_Area is a AppClientArea

        Property Integer pAbort public 0    // Different for Autoupd.src

        Use describe.vw
        Use update.vw
        Use datainit.vw

    End_Object  

  On_Key Key_Ctrl+Key_1 Send Activate_Describe_vw to (Client_Area(current_object))
  On_Key Key_Ctrl+Key_2 Send Activate_Update_vw to (Client_Area(current_object))

End_Object

Start_UI
