PBMiner

$PBExportHeader$m_dynamic.srm
$PBExportComments$Dynamic menu object
forward
global type m_dynamic from menu
end type
end forward

global type m_dynamic from menu
end type
global m_dynamic m_dynamic

type variables
private:
powerobject ipo_parent
string is_eventname, is_data
end variables

forward prototypes
public subroutine of_setparent (readonly powerobject apo, readonly string as_event, readonly string as_data)
end prototypes

public subroutine of_setparent (readonly powerobject apo, readonly string as_event, readonly string as_data);ipo_parent = apo
is_eventname = as_event
is_data = as_data
end subroutine

on m_dynamic.create
m_dynamic=this
call super::create
this.text = "m_dynamic"
end on

on m_dynamic.destroy
call super::destroy
end on

event clicked;//don't fire events if has children

IF UPPERBOUND(this.Item) > 0 THEN RETURN

IF ISVALID(ipo_parent) THEN
   IF is_data <> "" THEN
      ipo_parent.TriggerEvent(is_eventname, 0, is_data)
   ELSE
      ipo_parent.TriggerEvent(is_eventname, 0, this.text)
   END IF
END IF
end event