Whoops, I hadn't spotted that, but they are indeed linked to in the "See Also" section of the docs for CreateLabel.
Global Win:tGadget=CreateWindow("Test",0,0,ClientWidth(Desktop())/2-320,ClientHeight(Desktop())/2-160,Null,15)
Global Label:tGadget=CreateLabel("Black Background, White Text",10,10,400,20,Win)
SetGadgetColor(Label,0,0,0)
SetGadgetTextColor(Label,255,255,255)
Global Finished:Int=False
Repeat
If PollEvent()
Local E:TEvent=CurrentEvent
Select E.ID
Case EVENT_WINDOWCLOSE
Finished=True
End Select
End If
Until Finished
Would a mod kindly move this to the bug forum now that I've supplied a little (non)working example or just delete it if there's already a bug report for this.
|