1 line
No EOL
611 B
Text
1 line
No EOL
611 B
Text
; This file holds all the functions If it gets too big,
|
|
; we can split it in categories
|
|
|
|
; *****************************************************************************
|
|
; * Menu
|
|
|
|
Procedure Menu_GotoCurrent()
|
|
If *ActiveMenu\Entries()\Selected <> #True
|
|
FirstElement(*ActiveMenu\Entries());
|
|
|
|
ForEach *ActiveMenu\Entries()
|
|
If *ActiveMenu\Entries()\Selected = #True
|
|
Break
|
|
EndIf
|
|
Next
|
|
EndIf
|
|
EndProcedure
|
|
|
|
; *****************************************************************************
|
|
; IDE Options = PureBasic 4.51 (MacOS X - x86)
|
|
; CursorPosition = 13
|
|
; Folding = -
|
|
; EnableXP |