PBMiner

$PBExportHeader$w_example_main.srw
forward
global type w_example_main from w_main
end type
type uo_bordertitle from u_border_explorer within w_example_main
end type
type uo_sheets from u_sheets_explorer within w_example_main
end type
type tv_1 from u_tv_explorer within w_example_main
end type
type uo_statusbar from u_statusbar_explorer within w_example_main
end type
type uo_splitter from u_splitcontainer_explorer within w_example_main
end type
type uo_toolbar from u_dwtb_explorer within w_example_main
end type
type uo_panel_tree from u_border_explorer within w_example_main
end type
type inv_explorer from n_explorer_test within w_example_main
end type
end forward

global type w_example_main from w_main
integer width = 3195
integer height = 1796
string title = "Kodigo Samples"
string menuname = "m_main"
long #minwidth = 480
long #minheight = 320
uo_bordertitle uo_bordertitle
uo_sheets uo_sheets
tv_1 tv_1
uo_statusbar uo_statusbar
uo_splitter uo_splitter
uo_toolbar uo_toolbar
uo_panel_tree uo_panel_tree
inv_explorer inv_explorer
end type
global w_example_main w_example_main

on w_example_main.create
int iCurrent
call super::create
if this.MenuName = "m_main" then this.MenuID = create m_main
this.uo_bordertitle=create uo_bordertitle
this.uo_sheets=create uo_sheets
this.tv_1=create tv_1
this.uo_statusbar=create uo_statusbar
this.uo_splitter=create uo_splitter
this.uo_toolbar=create uo_toolbar
this.uo_panel_tree=create uo_panel_tree
this.inv_explorer=create inv_explorer
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.uo_bordertitle
this.Control[iCurrent+2]=this.uo_sheets
this.Control[iCurrent+3]=this.tv_1
this.Control[iCurrent+4]=this.uo_statusbar
this.Control[iCurrent+5]=this.uo_splitter
this.Control[iCurrent+6]=this.uo_toolbar
this.Control[iCurrent+7]=this.uo_panel_tree
end on

on w_example_main.destroy
call super::destroy
if IsValid(MenuID) then destroy(MenuID)
destroy(this.uo_bordertitle)
destroy(this.uo_sheets)
destroy(this.tv_1)
destroy(this.uo_statusbar)
destroy(this.uo_splitter)
destroy(this.uo_toolbar)
destroy(this.uo_panel_tree)
destroy(this.inv_explorer)
end on

event ke_postopen;call super::ke_postopen;inv_explorer.of_Register(tv_1, &
   uo_sheets, &
   uo_toolbar, &
   uo_splitter, &
   uo_bordertitle, &
   uo_statusbar)
   
inv_explorer.of_PopulateModules()
end event

event ke_show;call super::ke_show;this.WindowState = Maximized!
end event

type uo_bordertitle from u_border_explorer within w_example_main
integer x = 1280
integer taborder = 30
long #sizeorder = -1
string #childobject = "uo_sheets"
boolean #headerbold = true
end type

on uo_bordertitle.destroy
call u_border_explorer::destroy
end on

type uo_sheets from u_sheets_explorer within w_example_main
integer x = 1280
integer y = 496
integer taborder = 50
long #sizeorder = -1
boolean #bottomtabs = true
end type

on uo_sheets.destroy
call u_sheets_explorer::destroy
end on

type tv_1 from u_tv_explorer within w_example_main
integer x = 18
integer y = 224
integer width = 878
integer height = 320
integer taborder = 40
boolean border = false
borderstyle borderstyle = stylebox!
boolean linesatroot = false
long #sizeorder = -1
end type

type uo_statusbar from u_statusbar_explorer within w_example_main
integer x = 347
integer y = 1392
integer taborder = 40
long #sizeorder = 1
boolean #dock = true
long #docktype = 4
end type

on uo_statusbar.destroy
call u_statusbar_explorer::destroy
end on

type uo_splitter from u_splitcontainer_explorer within w_example_main
integer x = 110
integer y = 656
integer taborder = 30
long #sizeorder = 2
boolean #dock = true
long #docktype = 5
string #dock_control_top = "uo_toolbar"
string #dock_control_bottom = "uo_statusbar"
string #lefttopcontrol = "uo_panel_tree"
string #rightbottomcontrol = "uo_bordertitle"
integer #mincontrolsize = 400
end type

on uo_splitter.destroy
call u_splitcontainer_explorer::destroy
end on

type uo_toolbar from u_dwtb_explorer within w_example_main
integer taborder = 20
long #sizeorder = 1
boolean #dock = true
long #docktype = 1
boolean #largeicons = true
end type

on uo_toolbar.destroy
call u_dwtb_explorer::destroy
end on

type uo_panel_tree from u_border_explorer within w_example_main
integer y = 192
integer width = 933
integer taborder = 40
long #sizeorder = -1
string #childobject = "tv_1"
boolean #showx = true
string #headertext = "Folders"
boolean #headerbold = true
end type

on uo_panel_tree.destroy
call u_border_explorer::destroy
end on

event ke_xclicked;call super::ke_xclicked;parent.inv_explorer.of_ShowTreePane(FALSE)
end event

type inv_explorer from n_explorer_test within w_example_main descriptor "pb_nvo" = "true" 
end type

on inv_explorer.create
call super::create
end on

on inv_explorer.destroy
call super::destroy
end on