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

 MENU TO
 Replaces MENU TO while adding Mouse Support
------------------------------------------------------------------------------
 Syntax
      Standard Clipper command:
        MENU TO <nChoice>
      Called as a function:
        __MenuTo( <bSetBlock>, <cVarName>)
 Arguments
      <bSetBlock> - a Code Block which allows retrevial and
                  setting of the return to variable (See STD.CH)
      <cVarName> - Name of the variable to receive the returned
                 value

 Returns
      0 For abort, otherwise the number of the selected item
 Description
      This routine provides MENU TO support with mouse support.
      If a mouse is not present it operates as the original does.

      This routine also provides function key support and it
      assumes that the full color compliment is defined
 Examples
      MENU TO nChoice       // Standard Command mode

      __MenuTo({|a| IIF(a==NIL,nChoice,nChoice:=a)},"nChoice") //Function
                                                               // Mode

 Source: ATPROMPT.PRG

 Author: Leo Letendre