Can anyone tell me why this doesn't work ?
Local w:TGadget=CreateWindow("Test",100,100,200,200,Null,WINDOW_TITLEBAR) Local la:TGadget=CreateLabel("HELLO",50,50,100,20,w,LABEL_FRAME|LABEL_CENTER) Local b1:TGadget=CreateButton("RED",50,100,40,40,w) Local b2:TGadget=CreateButton("BLUE",100,100,40,40,w) While True WaitEvent Select EventID() Case EVENT_GADGETACTION Select EventSource() Case b1 SetGadgetColor la,255,0,0 Case b2 SetGadgetColor la,0,0,255 End Select Case EVENT_WINDOWCLOSE End End Select Wend