File: u_explorer.sru
Size: 2408
Date: Mon, 07 Apr 2008 21:32:46 +0200
$PBExportHeader$u_explorer.sru
$PBExportComments$Explorer Sheet
forward
global type u_explorer from u_base_container
end type
end forward

global type u_explorer from u_base_container
integer width = 1687
integer height = 960
event type boolean ke_canclose ( )
event ke_explorer_activate ( )
event ke_explorer_broadcast ( readonly string as_messageid,  readonly string as_message )
event type integer ke_explorer_closequery ( )
event ke_explorer_initialize ( )
event type integer ke_explorer_selectionchanging ( )
event type string ke_getstatustext ( )
event type string ke_overridetitle ( )
event type boolean ke_overridestatusbar ( readonly u_statusbar auo_statusbar )
event ke_modechange ( )
event ke_key pbm_keydown
event ke_explorer_gotfocus ( )
end type
global u_explorer u_explorer

type variables
Public:
string #ModuleTitle = CString.EMPTY
Boolean #StaticClass
long NodeID

Protected:
n_explorer inv_explorer
end variables

forward prototypes
public subroutine of_register (readonly n_explorer anv_explorer, readonly long al_nodeid)
end prototypes

event type boolean ke_canclose();RETURN TRUE
end event

event ke_explorer_activate();//fired when module is opened/activated
end event

event ke_explorer_broadcast(readonly string as_messageid, readonly string as_message);//broadcast event
end event

event type integer ke_explorer_closequery();//RETURN FAILURE to prevent module close
RETURN CRet.SUCCESS
end event

event ke_explorer_initialize();//put initialization code here
end event

event type integer ke_explorer_selectionchanging();//RETURN FAILURE to prevent module selection change
RETURN CRet.SUCCESS
end event

event type string ke_getstatustext();RETURN "Ready"
end event

event type string ke_overridetitle();RETURN #ModuleTitle
end event

event type boolean ke_overridestatusbar(readonly u_statusbar auo_statusbar);RETURN FALSE
end event

event ke_modechange();//fired when mode change
end event

event ke_key;//key event
end event

event ke_explorer_gotfocus();//triggered when explorer is focused
end event

public subroutine of_register (readonly n_explorer anv_explorer, readonly long al_nodeid);inv_explorer = anv_explorer
NodeID = al_nodeid

EVENT ke_explorer_initialize()
end subroutine

on u_explorer.create
call super::create
end on

on u_explorer.destroy
call super::destroy
end on