; In this file, we handle alle the events

Procedure HandleEventMenu()
  Define ActiveMenu_Index.i = ListIndex(*ActiveMenu\Entries())
  
  If KeyboardReleased(#PB_Key_Up)
    Menu_GotoCurrent()
    *ActiveMenu\Entries()\Selected = #False
    
    If ListIndex(*ActiveMenu\Entries()) = 0
      LastElement(*ActiveMenu\Entries())
    Else
      PreviousElement(*ActiveMenu\Entries())
    EndIf
    
    *ActiveMenu\Entries()\Selected = #True
  EndIf
  
  If KeyboardReleased(#PB_Key_Down)
    Menu_GotoCurrent()
    *ActiveMenu\Entries()\Selected = #False
    
    If ListIndex(*ActiveMenu\Entries()) = (ListSize(*ActiveMenu\Entries())-1)
     FirstElement(*ActiveMenu\Entries())
    Else
      NextElement(*ActiveMenu\Entries())
    EndIf
    
    *ActiveMenu\Entries()\Selected = #True
  EndIf
  
  If KeyboardReleased(#PB_Key_Return) 
    Debug "Return!"
  EndIf
EndProcedure

Procedure HandleEventRunningGame()
EndProcedure
; IDE Options = PureBasic 4.51 (MacOS X - x86)
; CursorPosition = 32
; Folding = -
; EnableUnicode
; EnableThread
; EnableXP
; EnableCompileCount = 0
; EnableBuildCount = 0