PBMiner

$PBExportHeader$u_controls_rebarwin32.sru
forward
global type u_controls_rebarwin32 from u_explorer
end type
type mle_1 from u_mle within u_controls_rebarwin32
end type
type ddlb_1 from u_ddlb within u_controls_rebarwin32
end type
type uo_1 from u_toolbar within u_controls_rebarwin32
end type
type uo_rebar from u_rebar within u_controls_rebarwin32
end type
end forward

global type u_controls_rebarwin32 from u_explorer
mle_1 mle_1
ddlb_1 ddlb_1
uo_1 uo_1
uo_rebar uo_rebar
end type
global u_controls_rebarwin32 u_controls_rebarwin32

on u_controls_rebarwin32.create
int iCurrent
call super::create
this.mle_1=create mle_1
this.ddlb_1=create ddlb_1
this.uo_1=create uo_1
this.uo_rebar=create uo_rebar
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.mle_1
this.Control[iCurrent+2]=this.ddlb_1
this.Control[iCurrent+3]=this.uo_1
this.Control[iCurrent+4]=this.uo_rebar
end on

on u_controls_rebarwin32.destroy
call super::destroy
destroy(this.mle_1)
destroy(this.ddlb_1)
destroy(this.uo_1)
destroy(this.uo_rebar)
end on

event ke_postopen;call super::ke_postopen;uo_rebar.of_Insertband(uo_1.Handle, "Toolbar")
uo_rebar.of_Insertband(Handle(ddlb_1), "Dropdown", TRUE)
uo_rebar.of_refresh()
end event

type mle_1 from u_mle within u_controls_rebarwin32
integer x = 201
integer y = 416
integer taborder = 40
string text = "This is a Rebar sample."
long #sizeorder = 2
boolean #dock = true
long #docktype = 5
string #dock_control_top = "uo_rebar"
end type

type ddlb_1 from u_ddlb within u_controls_rebarwin32
integer x = 146
integer y = 192
integer taborder = 30
long #sizeorder = -1
end type

type uo_1 from u_toolbar within u_controls_rebarwin32
integer x = 731
integer taborder = 20
long #sizeorder = -1
string #dataobject = "d_2toolbar"
boolean #largeicons = true
boolean #createonparent = true
end type

on uo_1.destroy
call u_toolbar::destroy
end on

event ke_dropdown;call super::ke_dropdown;m_poptest m

m = CREATE m_poptest

m.PopMenu(popx, popy)

DESTROY m
end event

type uo_rebar from u_rebar within u_controls_rebarwin32
integer taborder = 10
boolean #dock = true
long #docktype = 1
end type

on uo_rebar.destroy
call u_rebar::destroy
end on