home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / progmisc / nfsrc21.zip / FTMENUTO.CH < prev    next >
Text File  |  1992-10-13  |  3KB  |  76 lines
  1. /*
  2.  * File......: FTMENUTO.CH
  3.  * Author....: Ted Means
  4.  * Date......: $Date:   13 Oct 1992 20:43:10  $
  5.  * Revision..: $Revision:   1.3  $
  6.  * Log file..: $Logfile:   C:/nanfor/src/ftmenuto.chv  $
  7.  * 
  8.  * This is an original work by Ted Means and is placed in the
  9.  * public domain.
  10.  *
  11.  * Modification history:
  12.  * ---------------------
  13.  *
  14.  * $Log:   C:/nanfor/src/ftmenuto.chv  $
  15.  * 
  16.  *    Rev 1.3   13 Oct 1992 20:43:10   GLENN
  17.  * Ted re-wrote the @ prompt / menu to replacement in Clipper and dumped
  18.  * the assembler version; this .CH file was updated as well.
  19.  * 
  20.  *    Rev 1.2   15 Aug 1991 23:08:46   GLENN
  21.  * Forest Belt proofread/edited/cleaned up doc
  22.  * 
  23.  *    Rev 1.1   14 Jun 1991 19:55:14   GLENN
  24.  * Minor edit to file header
  25.  * 
  26.  *    Rev 1.0   01 Apr 1991 01:02:40   GLENN
  27.  * Nanforum Toolkit
  28.  *  
  29.  *
  30.  */
  31.  
  32. /* 
  33.    These commands will simplify use of the FT_PROMPT() and
  34.    FT_MENUTO() functions.  Refer to MENUTO.PRG for more info.
  35.    These commands can replace the existing Clipper @ PROMPT and
  36.    MENU TO commands.
  37. */
  38.  
  39. #xcommand @ <Row>, <Col> PROMPT <Prompt>                    ;
  40.                         [COLOR <Attr>]                      ;
  41.                         [MESSAGE <Message>]                 ;
  42.                         [MSGROW <MsgRow>]                   ;
  43.                         [MSGCOL <MsgCol>]                   ;
  44.                         [MSGCOLOR <MsgColor>]               ;
  45.                         [TRIGGER <Trigger>]                 ;
  46.                         [TRIGGERCOLOR <TriggerColor>]       ;
  47.                         [HOME <Home>]                       ;
  48.                         [END <End>]                         ;
  49.                         [UP <Up>]                           ;
  50.                         [DOWN <Down>]                       ;
  51.                         [LEFT <Left>]                       ;
  52.                         [RIGHT <Right>]                     ;
  53.                         [EXECUTE <Block>]                   ;
  54.       => FT_Prompt( <Row>,                                  ;
  55.                     <Col>,                                  ;
  56.                     <Prompt>,                               ;
  57.                     <Attr>,                                 ;
  58.                     <MsgRow>,                               ;
  59.                     <MsgCol>,                               ;
  60.                     <Message>,                              ;
  61.                     <MsgColor>,                             ;
  62.                     <Trigger>,                              ;
  63.                     <TriggerColor>,                         ;
  64.                     <Home>,                                 ;
  65.                     <End>,                                  ;
  66.                     <Up>,                                   ;
  67.                     <Down>,                                 ;
  68.                     <Left>,                                 ;
  69.                     <Right>,                                ;
  70.                     <Block>                                 )
  71.  
  72. #xcommand MENU TO <v> [<l : COLD>] => ;
  73.    <v> := FT_MenuTo( {|_1| iif( _1 == NIL, <v>, <v> := _1 ) }, #<v>, <.l.> )
  74.  
  75.  
  76.