;
; ------------------------------------------------------------
;
;   SpiderBasic - Desktop example file
;
;    (c) Fantaisie Software
;
; ------------------------------------------------------------
;

ExamineDesktops()

Debug "Desktop dimension: " + DesktopWidth(0) + " x " + DesktopHeight(0)

OpenWindow(0, 10, 10, 200, 50, "Desktop example")

Procedure TimerEvent()
  Debug "Mouse position: x:" + DesktopMouseX() + " y:" + DesktopMouseY()
EndProcedure

AddWindowTimer(0, 0, 1000) ; Add a timer every second (1000 ms)
BindEvent(#PB_Event_Timer, @TimerEvent())