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
ForEverromel