home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / CLIPPER / NFSRC.ZIP / FT_ACH2T.CH < prev    next >
Encoding:
Text File  |  1991-08-16  |  4.5 KB  |  112 lines
  1. /*
  2.  * File......: FT_ACH2T.CH
  3.  * Author....: Steve Kolterman
  4.  * CIS ID....: 76320,37
  5.  * Date......: $Date:   15 Aug 1991 23:19:32  $
  6.  * Revision..: $Revision:   1.2  $
  7.  * Log file..: $Logfile:   E:/nanfor/src/ft_ach2t.chv  $
  8.  * 
  9.  * This is an original work by Steve Kolterman and is placed in the
  10.  * public domain.
  11.  *
  12.  * Modification history:
  13.  * ---------------------
  14.  *
  15.  * $Log:   E:/nanfor/src/ft_ach2t.chv  $
  16.  * 
  17.  *    Rev 1.2   15 Aug 1991 23:19:32   GLENN
  18.  * Last minute changes sent in by Steve Kolterman
  19.  * 
  20.  *    Rev 1.1   15 Aug 1991 23:08:50   GLENN
  21.  * Forest Belt proofread/edited/cleaned up doc
  22.  * 
  23.  *    Rev 1.0   14 Jun 1991 04:14:28   GLENN
  24.  * Initial revision.
  25.  *
  26.  */
  27.  
  28.  
  29.  
  30.  
  31. /*  $DOC$
  32.  *  $FUNCNAME$
  33.  *     A_CHOICE()
  34.  *  $ONELINER$
  35.  *     Psuedo function to simplify FT_ACH2TB()
  36.  *  $CATEGORY$
  37.  *     Menus/Prompts
  38.  *  $SYNTAX$
  39.  *     See FT_ACH2TB()
  40.  *  $ARGUMENTS$
  41.  *     See FT_ACH2TB()
  42.  *
  43.  *  $RETURNS$
  44.  *     See FT_ACH2TB()
  45.  *
  46.  *  $DESCRIPTION$
  47.  *     The A_CHOICE() UDC in FT_ACH2T.CH makes using FT_ACH2TB() a breeze.
  48.  *     The myriad of parameters can be written in any order.  Only <nToprow>,
  49.  *     <nTopcol>, and <aArrey> are required.  See the example below.
  50.  *
  51.  *     Be sure to check the documentation for ft_ach2tb() for more
  52.  *     details.
  53.  *
  54.  *
  55.  *  $EXAMPLES$
  56.  *  nOpt := A_CHOICE( 7,9 ARRAY:t_arrey USERFUNC:{|a,b| UserFunc(a,b,any1)};
  57.  *          BOXTYPE:B_SINGLE  BOXTITLE:title  SHADOW:"R" TAGCHAR:chr(17);
  58.  *          REST_SCREEN:.F. AUTOEXEC:.F. MES_COLOR:MSG_COLOR ELEVBAR:"▒" ;
  59.  *          NOSELCOLOR:"bg/n")
  60.  *
  61.  *  Check only the RETURNed element:
  62.  *  IF Was_Tagged(chr(17),t_arrey,nOpt); MoreProcessing(); END
  63.  *
  64.  *  Check entire 't_arrey':
  65.  *  Aeval( t_arrey,{|e,n| IF( Was_Tagged(chr(17),t_arrey,n ), ;
  66.  *                            MoreProcessing(t_arrey),NIL ) } )
  67.  *
  68.  *
  69.  *  $SEEALSO$
  70.  *     FT_ACH2TB()
  71.  *  $END$
  72.  */
  73.  
  74.  
  75. #translate A_CHOICE(                                                    ;
  76.            <t>,<l>[,<b>][,<r>]                                          ;
  77.            ARRAY:<arr>                                                  ;
  78.            [USERFUNC:<func>]                                            ;
  79.            [BOXTYPE:<bx>]                                               ;
  80.            [BOXCOLOR:<bxc>]                                             ;
  81.            [BOXTITLE:<bxt>]                                             ;
  82.            [TITLEPOS:<bxp>]                                             ;
  83.            [USELCOLOR:<uselc>]                                          ;
  84.            [TITLECOLOR:<ttlc>]                                          ;
  85.            [BAR_COLOR:<barc>]                                           ;
  86.            [HOTKEYCOLOR:<hkcolor>]                                      ;
  87.            [SHADOW:<sh>]                                                ;
  88.            [AUTOEXEC:<aex>]                                             ;
  89.            [MES_ROW:<mrow>]                                             ;
  90.            [MES_COL:<mcol>]                                             ;
  91.            [MES_COLOR:<mcolor>]                                         ;
  92.            [ELEVBAR:<ebar>]                                             ;
  93.            [ELEVBAR_COLOR:<ebarc>]                                      ;
  94.            [ELEVBAR_SIDE:<ebars>]                                       ;
  95.            [NOSELCOLOR:<nscolor>]                                       ;
  96.            [TAGCHAR:<tagch>]                                            ;
  97.            [START_ELEM:<start>]                                         ;
  98.            [REST_SCREEN:<rscrn>]                                        ;
  99.            [TIME_OUT:<timeout>]  )                                      ;
  100.            =>                                                           ;
  101.            FT_Ach2tb(                                                   ;
  102.                       <t>,<l>,[<b>],[<r>],<arr>, [<bx>],                ;
  103.                       [<bxc>], [<bxt>], [<bxp>], [<uselc>], [<ttlc>],   ;
  104.                       [<barc>], [<hkcolor>], [<sh>], [<aex>], [<mrow>], ;
  105.                       [<mcol>], [<mcolor>], [<ebar>], [<ebarc>],        ;
  106.                       [<ebars>], [<nscolor>], [<tagch>], [<start>],     ;
  107.                       [<rscrn>],[<timeout>],[<func>]                    ;
  108.                     )
  109.  
  110. #translate WAS_TAGGED(<tchar>,<arr>,<val>)   =>                         ;
  111.            (Right(<arr>\[<val>]\[AOPT],1) == <tchar>)
  112.