der Befehl DrawText lässt im Thread unter Linux das Programm beenden.
Das Programmbeispiel läuft zum Teil einige Sekunden und wird dann beendet.
Getestet mit folgenden Linux-Distributionen (alle 32 bit)
- kbuntu 04/13
- Debian 6
- Mind 14
und PureBasic-Versionen
- 4.61
- 5.11
Beispiel: [von Stargate (http://www.purebasic.fr/english/viewtop ... 13&t=53993)]
Code: Alles auswählen
OpenWindow(0,0,0,300,200,"Clock",#PB_Window_ScreenCentered)
Can2=CanvasGadget(#PB_Any,0,0,180,30)
Procedure Update(Gadget)
Protected Text.s
Repeat
Text = FormatDate("%hh : %ii : %ss",Date())
If StartDrawing(CanvasOutput(Gadget))
Box(0,0,OutputWidth(), OutputHeight(),$46596E)
DrawingMode(#PB_2DDrawing_Transparent)
DrawText(12+1,8+1,Text.s,$000000)
DrawText(12,8,Text,$FFFFFF)
StopDrawing()
EndIf
Delay(1000)
ForEver
EndProcedure
CreateThread(@Update(), Can2)
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
End
EndSelect
ForEver
romel