;
; ------------------------------------------------------------
;
;   PureBasic - Win32 API example file
;
;    (c) Fantaisie Software
;
; ------------------------------------------------------------
;
; NOTE: This file doesn't compile with the demo version ! (API Calls)
;

;
; Now, open a window, and do some stuff with it...
;

If OpenWindow(0, 100, 100, 195, 260, "PureBasic Window")

  ;
  ; This is the 'event loop'. All the user actions are processed here.
  ; It's very easy to understand: when an action occurs, the Event
  ; isn't 0 and we just have to see what have happened...
  ;

  Repeat
    Event = WaitWindowEvent()

    ;
    ; Here we use directly the Windows API to draw an ellipse.
    ; All the Windows® functions are supported !
    ;
  
    *DC = GetDC_(WindowID(0))          ; Get the output pointer
    Ellipse_(*DC, 10, 10, 100, 100)   ; Draw a filled ellipse
    ReleaseDC_(WindowID(0), *DC)       ; Release the drawing output

    If Event = #PB_Event_CloseWindow  ; If the user has pressed on the close button
      Quit = 1
    EndIf

  Until Quit = 1
  
EndIf

End   ; All the opened windows are closed automatically by PureBasic