Drawing on a Window is overwritten

[Niffo]

OpenWindow(0, 100, 100, 300, 200, "Test")

StartDrawing(WindowOutput(0))
Box(50, 50, 50, 50, 0)
StopDrawing()

Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow

[Fred]

You need to handle the #PB_Window_Repaint event, you can't known when the OS will ask for refresh.

[ts-soft]

example:

Code: Select all

OpenWindow(0, 100, 100, 300, 200, "Test")

Repeat
  Select WaitWindowEvent()
    Case #PB_Event_CloseWindow
      Break
    Case #PB_Event_Repaint
      StartDrawing(WindowOutput(0))
      Box(50, 50, 50, 50, 0)
      StopDrawing()      
  EndSelect
ForEver

[WilliamL]

I make the drawing part of the window a procedure then just call it when I first show the window and then when the repaint event happens. If the repaint event is called by opening the window then you will only have to call the drawing procedure by the event.

I had a posting about this somewhere but I can't find it now...