Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : NFLIB21.ZIP
Filename : FTMENUTO.CH

/*
* File......: FTMENUTO.CH
* Author....: Ted Means
* Date......: $Date: 13 Oct 1992 20:43:10 $
* Revision..: $Revision: 1.3 $
* Log file..: $Logfile: C:/nanfor/src/ftmenuto.chv $
*
* This is an original work by Ted Means and is placed in the
* public domain.
*
* Modification history:
* ---------------------
*
* $Log: C:/nanfor/src/ftmenuto.chv $
*
* Rev 1.3 13 Oct 1992 20:43:10 GLENN
* Ted re-wrote the @ prompt / menu to replacement in Clipper and dumped
* the assembler version; this .CH file was updated as well.
*
* Rev 1.2 15 Aug 1991 23:08:46 GLENN
* Forest Belt proofread/edited/cleaned up doc
*
* Rev 1.1 14 Jun 1991 19:55:14 GLENN
* Minor edit to file header
*
* Rev 1.0 01 Apr 1991 01:02:40 GLENN
* Nanforum Toolkit
*
*
*/

/*
These commands will simplify use of the FT_PROMPT() and
FT_MENUTO() functions. Refer to MENUTO.PRG for more info.
These commands can replace the existing Clipper @ PROMPT and
MENU TO commands.
*/

#xcommand @ , PROMPT ;
[COLOR ] ;
[MESSAGE ] ;
[MSGROW ] ;
[MSGCOL ] ;
[MSGCOLOR ] ;
[TRIGGER ] ;
[TRIGGERCOLOR ] ;
[HOME ] ;
[END ] ;
[UP ] ;
[DOWN ] ;
[LEFT ] ;
[RIGHT ] ;
[EXECUTE ] ;
=> FT_Prompt( , ;
, ;
, ;
, ;
, ;
, ;
, ;
, ;
, ;
, ;
, ;
, ;
, ;
, ;
, ;
, ;
)

#xcommand MENU TO [] => ;
:= FT_MenuTo( {|_1| iif( _1 == NIL, , := _1 ) }, #, <.l.> )