Data update

Task/Window-creation/PureBasic/window-creation.basic

@@ -1,14 +1,26 @@
-Define MyWin.i, Event.i
+Define.i MyWin, Event, x, y
+x = 400
+y = 300
 
-MyWin = OpenWindow(#PB_Any, 412, 172, 402, 94, "PureBasic")
+If OpenWindow(0, 0, 0, x, y, "I am a window - PureBasic", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
+  If CreateImage(0, x, y) And StartDrawing(ImageOutput(0))
+    DrawingMode(#PB_2DDrawing_Transparent)
+    Box(0, 0, x, y, #White)
+    For i = 1 To 10
+      DrawText(x/3, y/2, "Hello World!", #Black)
+      ;DrawText(Random(200), Random(200), "Hello World!", RGB(Random(255), Random(255), Random(255)))
+    Next i
+    StopDrawing()
+    ImageGadget(0, 0, 0, x, y, ImageID(0))
+  EndIf
 
-; Event loop
-Repeat
-   Event = WaitWindowEvent()
-   Select Event
+  Repeat
+    Event = WaitWindowEvent()
+    Select Event
       Case #PB_Event_Gadget
-         ; Handle any gadget events here
+        ; Handle any gadget events here
       Case #PB_Event_CloseWindow
-         Break
-   EndSelect
-ForEver
+        Break
+    EndSelect
+  ForEver
+EndIf