PBMiner

$PBExportHeader$u_tabpage.sru
$PBExportComments$Base Tabpage Object
forward
global type u_tabpage from u_base_container
end type
end forward

global type u_tabpage from u_base_container
event type integer ke_broadcastreceive ( readonly string msg )
event type integer ke_validate ( )
event type integer ke_update ( )
end type
global u_tabpage u_tabpage

type variables
protected:

Any ia_param
u_tab iuo_parenttab
end variables
forward prototypes
public subroutine of_registertab (readonly u_tab auo_tab)
end prototypes

event ke_broadcastreceive;//receive broadcast from other tabpages
//must return success (1)
RETURN CRet.SUCCESS
end event

event type integer ke_validate();//triggered when saving pages
RETURN CRet.SUCCESS
end event

event type integer ke_update();//returning false will suspend saving for all pages
RETURN CRet.SUCCESS
end event

public subroutine of_registertab (readonly u_tab auo_tab);iuo_parenttab = auo_tab
end subroutine

on u_tabpage.create
call super::create
end on

on u_tabpage.destroy
call super::destroy
end on

event constructor;call super::constructor;//check for passed arguments
IF ISVALID(Message.PowerObjectParm) THEN
   ia_param = Message.PowerObjectParm
END IF
end event