Click above to get retro games delivered to your door ever month!

 menusetnext()       Make the next prompt in a menu current
------------------------------------------------------------------------------
 Declaration
   menu.hdr

 Syntax
   func logical menusetnext extern
   param value _MENU pMenu

 Arguments
   pMenu is the pointer to a previously created menu system. If 0, the
         default menu will be used.

 Return
   A logical indicating the success of this function. If .t., the prompt
   could be made current, if .f., an invalid menu pointer was specified, or
   the current prompt is the last one in the menu.

 Description
   This function makes the next available active prompt in a menu system
   current that follows the momentarily current item. This prompt, and the
   previously current prompt will be automatically redisplayed with the
   corresponding new color attributes.

 Example
   #define EXAMPLE_MENU
   #include example.hdr

   proc Test_menusetnext
   vardef
      _MENU pMenu
      uint  uKey
   enddef
   
   cursor( .f. )
   clear
   
   pMenu := menunew()
   
   menupromptnew( pMenu, 2, 10, " Option 1 ", 1, .t., .t. )
   menupromptnew( pMenu, 3, 10, " Option 2 ", 2, .t., .t. )
   menupromptnew( pMenu, 4, 10, " Option 3 ", 3, .t., .t. )
   menupromptnew( pMenu, 5, 10, " Option 4 ", 4, .t., .t. )
   
   @ 8, 10 ?? "Press Up/Down to navigate, Esc to quit"
   
   do while .t.
   
      uKey := getkey()
   
      do case
      case uKey == K_DOWN
         if .not. menusetnext( pMenu )
            menusetfirst( pMenu )
         endif
      case uKey == K_UP
         if .not. menusetprev( pMenu )
            menusetlast( pMenu )
         endif
      case uKey == K_ESC
         exit
      endcase
   
   enddo
   
   menuclear( pMenu )
   cursor( .t. )
   clear
   
   endproc

   proc main
   Test_menusetnext()
   endproc