PBMiner

$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