$PBExportHeader$m_main.srm forward global type m_main from menu end type type m_file from menu within m_main end type type m_opentarget from menu within m_file end type type m_count from menu within m_file end type type m_print from menu within m_file end type type m_exit from menu within m_file end type type m_file from menu within m_main m_opentarget m_opentarget m_count m_count m_print m_print m_exit m_exit end type global type m_main from menu m_file m_file end type end forward global type m_main from menu m_file m_file end type global m_main m_main on m_main.create m_main=this call super::create this.m_file=create m_file this.Item[UpperBound(this.Item)+1]=this.m_file end on on m_main.destroy call super::destroy destroy(this.m_file) end on type m_file from menu within m_main m_opentarget m_opentarget m_count m_count m_print m_print m_exit m_exit end type on m_file.create call super::create this.text = "File" this.m_opentarget=create m_opentarget this.m_count=create m_count this.m_print=create m_print this.m_exit=create m_exit this.Item[UpperBound(this.Item)+1]=this.m_opentarget this.Item[UpperBound(this.Item)+1]=this.m_count this.Item[UpperBound(this.Item)+1]=this.m_print this.Item[UpperBound(this.Item)+1]=this.m_exit end on on m_file.destroy call super::destroy destroy(this.m_opentarget) destroy(this.m_count) destroy(this.m_print) destroy(this.m_exit) end on type m_opentarget from menu within m_file end type event clicked;ParentWindow.TriggerEvent(this.ClassName()) end event on m_opentarget.create call super::create this.text = "Open Target" this.microhelp = "Open a Target file" this.toolbaritemname = "Open!" this.toolbaritemtext = "Open,Open a Target file" end on on m_opentarget.destroy call super::destroy end on type m_count from menu within m_file end type event clicked;ParentWindow.TriggerEvent(this.ClassName()) end event on m_count.create call super::create this.text = "Count" this.microhelp = "Start counting" this.toolbaritemname = "Run!" this.toolbaritemtext = "Count,Start counting" end on on m_count.destroy call super::destroy end on type m_print from menu within m_file end type event clicked;ParentWindow.TriggerEvent(this.ClassName()) end event on m_print.create call super::create this.text = "Print" this.microhelp = "Print the report" this.toolbaritemname = "Print!" this.toolbaritemtext = "Print,Print the report" end on on m_print.destroy call super::destroy end on type m_exit from menu within m_file end type event clicked;Close(ParentWindow) end event on m_exit.create call super::create this.text = "Exit" this.microhelp = "Exit Program" this.toolbaritemname = "Exit!" this.toolbaritemtext = "Exit,Exit Program" end on on m_exit.destroy call super::destroy end on
File: m_main.srm
Size: 2896
Date: Mon, 31 Dec 2018 21:14:38 +0100
Size: 2896
Date: Mon, 31 Dec 2018 21:14:38 +0100