$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