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