File: m_main.srm
Size: 5296
Date: Tue, 22 Aug 2017 17:30:58 +0200
$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_print from menu within m_file
end type
type m_print1 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_print m_print
m_print1 m_print1
m_exit m_exit
end type
type m_edit from menu within m_main
end type
type m_addproperty from menu within m_edit
end type
type m_editproperty from menu within m_edit
end type
type m_deleteproperty from menu within m_edit
end type
type m_edit from menu within m_main
m_addproperty m_addproperty
m_editproperty m_editproperty
m_deleteproperty m_deleteproperty
end type
type m_help from menu within m_main
end type
type m_about from menu within m_help
end type
type m_help from menu within m_main
m_about m_about
end type
global type m_main from menu
m_file m_file
m_edit m_edit
m_help m_help
end type
end forward

global type m_main from menu
m_file m_file
m_edit m_edit
m_help m_help
end type
global m_main m_main

on m_main.create
m_main=this
call super::create
this.text = "m_main"
this.m_file=create m_file
this.m_edit=create m_edit
this.m_help=create m_help
this.Item[UpperBound(this.Item)+1]=this.m_file
this.Item[UpperBound(this.Item)+1]=this.m_edit
this.Item[UpperBound(this.Item)+1]=this.m_help
end on

on m_main.destroy
call super::destroy
destroy(this.m_file)
destroy(this.m_edit)
destroy(this.m_help)
end on

type m_file from menu within m_main
m_print m_print
m_print1 m_print1
m_exit m_exit
end type

on m_file.create
call super::create
this.text = "&File"
this.m_print=create m_print
this.m_print1=create m_print1
this.m_exit=create m_exit
this.Item[UpperBound(this.Item)+1]=this.m_print
this.Item[UpperBound(this.Item)+1]=this.m_print1
this.Item[UpperBound(this.Item)+1]=this.m_exit
end on

on m_file.destroy
call super::destroy
destroy(this.m_print)
destroy(this.m_print1)
destroy(this.m_exit)
end on

type m_print from menu within m_file
end type

on m_print.create
call super::create
this.text = "&Print"
this.microhelp = "Print property sheet"
end on

on m_print.destroy
call super::destroy
end on

event clicked;ParentWindow.Event Dynamic ue_print(True)

end event

type m_print1 from menu within m_file
event clicked ( )
end type

event clicked;ParentWindow.Event Dynamic ue_print(False)

end event

on m_print1.create
call super::create
this.visible = false
this.text = "Print"
this.microhelp = "Print property sheet"
this.toolbaritemname = "Print!"
this.toolbaritemtext = "Print,Print property sheet"
end on

on m_print1.destroy
call super::destroy
end on

type m_exit from menu within m_file
end type

on m_exit.create
call super::create
this.text = "E&xit"
this.microhelp = "Exit Program"
this.toolbaritemname = "Exit!"
this.toolbaritemtext = "Exit,Exit Program"
end on

on m_exit.destroy
call super::destroy
end on

event clicked;Close(ParentWindow)

end event

type m_edit from menu within m_main
m_addproperty m_addproperty
m_editproperty m_editproperty
m_deleteproperty m_deleteproperty
end type

on m_edit.create
call super::create
this.text = "&Edit"
this.m_addproperty=create m_addproperty
this.m_editproperty=create m_editproperty
this.m_deleteproperty=create m_deleteproperty
this.Item[UpperBound(this.Item)+1]=this.m_addproperty
this.Item[UpperBound(this.Item)+1]=this.m_editproperty
this.Item[UpperBound(this.Item)+1]=this.m_deleteproperty
end on

on m_edit.destroy
call super::destroy
destroy(this.m_addproperty)
destroy(this.m_editproperty)
destroy(this.m_deleteproperty)
end on

type m_addproperty from menu within m_edit
end type

event clicked;ParentWindow.TriggerEvent(this.ClassName())

end event

on m_addproperty.create
call super::create
this.text = "&Add Property"
this.microhelp = "Add a new property"
end on

on m_addproperty.destroy
call super::destroy
end on

type m_editproperty from menu within m_edit
end type

event clicked;ParentWindow.TriggerEvent(this.ClassName())

end event

on m_editproperty.create
call super::create
this.text = "&Edit Property"
this.microhelp = "Edit an existing property"
end on

on m_editproperty.destroy
call super::destroy
end on

type m_deleteproperty from menu within m_edit
end type

event clicked;ParentWindow.TriggerEvent(this.ClassName())

end event

on m_deleteproperty.create
call super::create
this.text = "&Delete Property"
this.microhelp = "Delete an existing property"
end on

on m_deleteproperty.destroy
call super::destroy
end on

type m_help from menu within m_main
m_about m_about
end type

on m_help.create
call super::create
this.text = "&Help"
this.m_about=create m_about
this.Item[UpperBound(this.Item)+1]=this.m_about
end on

on m_help.destroy
call super::destroy
destroy(this.m_about)
end on

type m_about from menu within m_help
end type

event clicked;String ls_msg

ls_msg  = "By Roland Smith~r~n~r~n"
ls_msg += "www.topwizprogramming.com"

MessageBox("About JagMan", ls_msg)

end event

on m_about.create
call super::create
this.text = "&About"
end on

on m_about.destroy
call super::destroy
end on