Q5/ws_objects/Ew_define.pbl.src/m_dft.srm

$PBExportHeader$m_dft.srm
forward
global type m_dft from menu
end type
type m_0 from menu within m_dft
end type
type m_设定默认 from menu within m_0
end type
type m_取消默认 from menu within m_0
end type
type m_0 from menu within m_dft
m_设定默认 m_设定默认
m_取消默认 m_取消默认
end type
global type m_dft from menu
m_0 m_0
end type
end forward

global type m_dft from menu
m_0 m_0
end type
global m_dft m_dft

on m_dft.create
m_dft=this
call super::create
this.m_0=create m_0
this.Item[UpperBound(this.Item)+1]=this.m_0
end on

on m_dft.destroy
call super::destroy
destroy(this.m_0)
end on

type m_0 from menu within m_dft
m_设定默认 m_设定默认
m_取消默认 m_取消默认
end type

on m_0.create
call super::create
this.m_设定默认=create m_设定默认
this.m_取消默认=create m_取消默认
this.Item[UpperBound(this.Item)+1]=this.m_设定默认
this.Item[UpperBound(this.Item)+1]=this.m_取消默认
end on

on m_0.destroy
call super::destroy
destroy(this.m_设定默认)
destroy(this.m_取消默认)
end on

type m_设定默认 from menu within m_0
end type

on m_设定默认.create
call super::create
this.text = "设定默认"
end on

on m_设定默认.destroy
call super::destroy
end on

event clicked;if isvalid(w_mtrldef_edit) then
	w_mtrldef_edit.triggerevent('ue_dft_set')
elseif isvalid(w_mtrldef_edit_popup) then
	w_mtrldef_edit_popup.triggerevent('ue_dft_set')
end if
	

end event

type m_取消默认 from menu within m_0
end type

on m_取消默认.create
call super::create
this.text = "取消默认"
end on

on m_取消默认.destroy
call super::destroy
end on

event clicked;if isvalid(w_mtrldef_edit) then
	w_mtrldef_edit.triggerevent('ue_dft_cancel')
elseif isvalid(w_mtrldef_edit_popup) then
	w_mtrldef_edit_popup.triggerevent('ue_dft_cancel')
end if

end event