Q5/ws_objects/Ew_aifmb.pbl.src/uo_tabpage.sru

$PBExportHeader$uo_tabpage.sru
forward
global type uo_tabpage from userobject
end type
end forward

global type uo_tabpage from userobject
integer width = 667
integer height = 364
long backcolor = 67108864
string text = "none"
long tabtextcolor = 33554432
long picturemaskcolor = 536870912
event resize pbm_size
end type
global uo_tabpage uo_tabpage

type variables
string winname = ''
window win
end variables

event resize;IF IsValid(win) THEN
	win.X = 0
	win.Y = 0
	win.Width = Width
	win.Height = Height
END IF

end event

on uo_tabpage.create
end on

on uo_tabpage.destroy
end on