sysgui=unt,top=0,bottom=1,left=2,right=3 open (sysgui)"X0" print (sysgui)'window'(100,100,800,550,"Docked Child Windows",$00090883$,$ffffffff$) rem ' statusbar docks to the top or bottom of the panel (default bottom) print (sysgui)'statbar'(100,0,0,0,0,"Status Bar",$$); rem $0020$ = top rem ' dock top print (sysgui)'child'(1,0,0,50,50,"",$00200000$,1,$ffffffff$),'context'(1),'dock'(top) print (sysgui)'text'(1,10,10,40,40,"top 1",$$),'context'(0) print (sysgui)'child'(2,0,0,50,50,"",$00200000$,2,$ffffffff$),'context'(2),'dock'(top) print (sysgui)'text'(1,10,10,40,40,"top 2",$$),'context'(0) print (sysgui)'child'(3,0,0,50,50,"",$00200000$,3,$ffffffff$),'context'(3),'dock'(top) print (sysgui)'text'(1,10,10,40,40,"top 3",$$),'context'(0) rem ' dock bottom print (sysgui)'child'(4,0,0,50,50,"",$00200800$,4,$ffffffff$),'context'(4),'dock'(bottom) print (sysgui)'text'(1,10,10,40,40,"bottom 4",$$),'context'(0) print (sysgui)'child'(5,0,0,50,50,"",$00200800$,5,$ffffffff$),'context'(5),'dock'(bottom) print (sysgui)'text'(1,10,10,40,40,"bottom 5",$$),'context'(0) print (sysgui)'child'(6,0,0,50,50,"",$00200800$,6,$ffffffff$),'context'(6),'dock'(bottom) print (sysgui)'text'(1,10,10,40,40,"bottom 6",$$),'context'(0) rem ' dock left print (sysgui)'child'(7,0,0,50,50,"",$00200000$,7,$ffffffff$),'context'(7),'dock'(left) print (sysgui)'text'(1,10,10,40,40,"left 7",$$),'context'(0) print (sysgui)'child'(8,0,0,50,50,"",$00200000$,8,$ffffffff$),'context'(8),'dock'(left) print (sysgui)'text'(1,10,10,40,40,"left 8",$$),'context'(0) print (sysgui)'child'(9,0,0,50,50,"",$00200000$,9,$ffffffff$),'context'(9),'dock'(left) print (sysgui)'text'(1,10,10,40,40,"left 9",$$),'context'(0) rem ' dock right print (sysgui)'child'(10,0,0,50,50,"",$00200800$,10,$ffffffff$),'context'(10),'dock'(right) print (sysgui)'text'(1,10,10,40,40,"right 10",$$),'context'(0) print (sysgui)'child'(11,0,0,50,50,"",$00200800$,11,$ffffffff$),'context'(11),'dock'(right) print (sysgui)'text'(1,10,10,40,40,"right 11",$$),'context'(0) print (sysgui)'child'(12,0,0,50,50,"",$00200800$,12,$ffffffff$),'context'(12),'dock'(right) print (sysgui)'text'(1,10,10,40,40,"right 12",$$),'context'(0) rem ' undocked (middle) print (sysgui)'child'(13,50,50,50,50,"",$00000000$,13,$ffffffff$),'context'(13) print (sysgui)'text'(1,10,10,40,40,"50",$$),'context'(0) print (sysgui)'child'(14,100,100,50,50,"",$00000000$,14,$ffffffff$),'context'(14) print (sysgui)'text'(1,10,10,40,40,"100",$$),'context'(0) print (sysgui)'child'(15,150,150,50,50,"",$00000000$,15,$ffffffff$),'context'(15) print (sysgui)'text'(1,10,10,40,40,"150",$$),'context'(0) print (sysgui)'child'(16,200,200,50,50,"",$00000000$,16,$ffffffff$),'context'(16) print (sysgui)'text'(1,10,10,40,40,"200",$$),'context'(0) dim info$:"x:i(2),y:i(2),w:i(2),h:i(2)" for w=0 to 16 r = 128 + rnd(128) g = 128 + rnd(128) b = 128 + rnd(128) print (sysgui)'context'(w),'clear'(r,g,b) info$ = ctrl(sysgui,0,0,w) print "Window",w," dimensions:",info.x,info.y,info.w,info.h,"; color:",r,g,b next w print (sysgui)'context'(0) dim event$:tmpl(sysgui) repeat read record(sysgui,siz=10)event$ print event.context," ",event.code$,event.id,event.flags,event.x,event.y until event.code$="X" release