00853: Setting background color in a main or child window

rem test colors in a child window
begin
sysgui=unt
open(sysgui)"X0"

x=100
y=100
w=824
h=568
title$="Test Window"
flags$=$82$
eventmask$=$ff$

true=1
false=0
done=false

print (sysgui)'WINDOW'(x,y,w,h,title$,flags$)
print (sysgui)'child'(101,x+10,y+10,w-200,h-200,$$,$$,1)

print (sysgui)'context'(0)
print (sysgui)'backcolor'(1),'clearbg'

print (sysgui)'context'(1)
print (sysgui)'clear'(128,128,128)

dim event$:tmpl(sysgui)
event=len(event$)

repeat

readrecord(sysgui,siz=event)event$
if event.code$="X" then done=true

until done

release