; Here we draw stuff on screen. These are the dispatch
; functions which will be called from the state dispatch
; process.


; Draw the current activated menu. This will be set from
; the dispatcher. The events are controlled by the
; HandleEventMenu() function.
Procedure DrawMenu()
  Define Black = RGB(0, 0, 0)
  Define White = RGB(255, 255, 255)
  Define ActiveMenuItemColor = RGB(255, 0, 0)
  
  DrawText(50, 50, *ActiveMenu\Title, white, black)
  Define Offset = 0
  Define FontColor = White
  ForEach *ActiveMenu\Entries()
    If *ActiveMenu\Entries()\Selected
      FontColor = ActiveMenuItemColor
    Else
      FontColor = White
    EndIf
    DrawText(50, 300+(Offset*50), *ActiveMenu\Entries()\Label, FontColor, Black)
    Offset = Offset+1
  Next
EndProcedure


Procedure DrawRunningGame()
  Box(0, 0, 200, 200, RGB(0, 255, 0))
EndProcedure
; IDE Options = PureBasic 4.51 (Linux - x64)
; CursorPosition = 17
; Folding = -
; EnableUnicode
; EnableThread
; EnableXP
; EnableCompileCount = 0
; EnableBuildCount = 0