PBMiner

$PBExportHeader$u_sheets_explorer.sru
$PBExportComments$Explorer sheet tab
forward
global type u_sheets_explorer from u_sheets
end type
end forward

global type u_sheets_explorer from u_sheets
long #maxtabs = 20
boolean #showborder = false
end type
global u_sheets_explorer u_sheets_explorer

type variables
Protected:

n_explorer inv_explorer
end variables

forward prototypes
public subroutine of_setexplorer (readonly n_explorer anv_explorer)
end prototypes

public subroutine of_setexplorer (readonly n_explorer anv_explorer);inv_explorer = anv_explorer
end subroutine

on u_sheets_explorer.create
int iCurrent
call super::create
end on

on u_sheets_explorer.destroy
call super::destroy
end on

event ke_selectionchanging;call super::ke_selectionchanging;IF ISVALID(inv_explorer) THEN
   RETURN inv_explorer.EVENT ke_tabselectionchanging(oldindex, newindex)
ELSE
   RETURN CRet.SUCCESS
END IF
end event

event ke_menuclicked;//overriden
IF ISVALID(inv_explorer) THEN inv_explorer.event ke_closemodule( )
end event

event ke_maxtabsreached;call super::ke_maxtabsreached;IF ISVALID(inv_explorer) THEN
   inv_explorer.EVENT ke_maxtabsreached()
END IF
end event

event ke_canclosetab;call super::ke_canclosetab;IF ISVALID(inv_explorer) THEN
   RETURN inv_explorer.EVENT ke_canclosetab(ai_index)
ELSE
   RETURN FALSE
END IF
end event

type st_outer from u_sheets`st_outer within u_sheets_explorer
end type

type st_1 from u_sheets`st_1 within u_sheets_explorer
end type

type uo_paint from u_sheets`uo_paint within u_sheets_explorer
end type