Use DfAllEnt.pkg

#REPLACE CURRENT$WORKSPACE   "SVC"
Register_Object Client_Area

//AB-StoreTopStart
//  Set date attributes as needed
Set_Date_Attribute sysdate4_State to (TRUE)
Set_Date_Attribute Date4_State    to (TRUE)
Set_Date_Attribute epoch_value    to 30

#IF (FMAC_VERSION < 8)
Use Workspc.pkg

Object ProgramWorkspace is a Workspace
    Set WorkspaceName to CURRENT$WORKSPACE
End_Object
#ELSE
Use cApplication.pkg

Object oApplication is a cApplication
    Set psCompany to "My Company"
    Set psProduct to "My Product"
    Set psVersion to "1.0"

    Set pbPreserveEnvironment To False // This will stop the program reading/writing its settings to the registry. Set to True for deployment

    Procedure OnCreate
        Send DoOpenWorkspace (CURRENT$WORKSPACE)
    End_Procedure
End_Object // oApplication
#ENDIF
//AB-StoreTopEnd


Object Main is a Panel

  //AB-PanelStoreTopStart
  Set Size to 200 300
  Set View_Mode to Viewmode_Normal
  //AB-PanelStoreTopEnd

  Set Label To "Example Program"
  Use FileUtil.mn //  Menu package.
  
  Object Client_Area is a AppClientArea
    //  Include all views
    Use CheckIndex.VW                                                                   

    End_Object  // Client_Area
  
  Use DefaultStatusbar.pkg //  Status-Bar object.

  //AB-PanelStoreStart
  Use StdAbout.pkg // Standard "About" package.
  //AB-PanelStoreEnd


End_Object


//AB-StoreStart
Send Activate_oCheckIndex To (Client_Area(Main(Self)))
Start_UI
//AB-StoreEnd

