#HEADER
use aps
Use LangSymb.pkg // Language symbols
define LNG_DEFAULT for LNG_DANISH // <-- Change default language here

Use Base.nui     // Item_Property command, Various macros (FOR_EX...), cArray, cSet and cStack classes (No User Interface)
Use Files.nui    // Utilities for handling file related stuff (No User Interface)
Use DFTimer.pkg  // DAW DFTimer class
Use LogFile.nui  // Class for handling a log file (No User Interface)
Use WinUser.nui  // User_Windows_User_Name function
Use ObjGroup.utl // Defining groups of objects
Use FList.nui    // A lot of FLIST- procedures and functions
Use TimedObs.pkg
Use LogFile.pkg  // Object for specifying log file properties
Use Dates.nui    // Date routines (No User Interface)
Use OpenStat.nui // cTablesOpenStatus class (formely cFileAllFiles) (No User Interface)
Use RGB.nui      // Some basic RGB color functions
#ENDHEADER

use autodown.pkg
open vmbaadm1

object Main is a Panel
  set label to "Test timer"
  dfcreate_menu Main_Menu
    dfcreate_menu "&Views" ViewPopupMenu is a ViewPopupMenu
      on_item "Open modal panel" send DoOpenModalPanel
      on_item "Open modal panel (2)" send DoOpenModalPanel2
      on_item "System downer" send popup_systemdowner
    end_pull_down
  end_menu
  object Main_Client is an ClientArea
    send CreateAutoDownObject of oAutoSystemDowner self
    object oModalPanel is a aps.ModalPanel
      object oBtn is a aps.Button
        on_item "Cancel" send close_panel
      end_object
    end_object
    procedure DoOpenModalPanel
      send popup of oModalPanel
    end_procedure
    procedure DoOpenModalPanel2
      integer lbOk
      send obs "B�h"
      //get MB_Verify "�nsker du t�sk?" 1 to lbOK
    end_procedure
  end_object
end_object
start_ui



