$PBExportHeader$uo_menugroup.sru
forward
global type uo_menugroup from nonvisualobject
end type
end forward

global type uo_menugroup from nonvisualobject
end type
global uo_menugroup uo_menugroup

type variables
GraphicObject ins_pgoobject
string ins_psmenulist
string ins_menukey
string ins_menutitle
end variables

forward prototypes
public subroutine mf_buildmenu (any pgoobject, string psmenulist)
public subroutine mf_popmenu (string arg_menukey)
public subroutine mf_settitle (string arg_title)
end prototypes

public subroutine mf_buildmenu (any pgoobject, string psmenulist);ins_pgoobject = pgoobject
ins_psmenulist = psmenulist
end subroutine

public subroutine mf_popmenu (string arg_menukey);ins_menukey = arg_menukey
IF IsValid(w_menugroup) THEN
	Close(w_menugroup)
END IF
OpenWithParm(w_menugroup, this)
end subroutine

public subroutine mf_settitle (string arg_title);ins_menutitle = arg_title
end subroutine

on uo_menugroup.create
call super::create
TriggerEvent( this, "constructor" )
end on

on uo_menugroup.destroy
TriggerEvent( this, "destructor" )
call super::destroy
end on

