A_CHOICE()
 Psuedo function to simplify FT_ACH2TB()
──────────────────────────────────────────────────────────────────────────────

 Syntax

      See FT_ACH2TB()

 Arguments

     See FT_ACH2TB()

 Returns

     See FT_ACH2TB()

 Description

     The A_CHOICE() UDC in FT_ACH2T.CH makes using FT_ACH2TB() a breeze.
     The myriad of parameters can be written in any order.  Only <nToprow>,
     <nTopcol>, and <aArrey> are required.  See the example below.

     Be sure to check the documentation for ft_ach2tb() for more
     details.


 Examples

  nOpt := A_CHOICE( 7,9,, ARRAY:t_arrey USERFUNC:{|a,b| UserFunc(a,b,any1)};
          BOXTYPE:B_SINGLE  BOXTITLE:title  SHADOW:"R" TAGCHAR:chr(17);
          REST_SCREEN:.F. AUTOEXEC:.F. MES_COLOR:MSG_COLOR ELEVBAR:"▒" ;
          NOSELCOLOR:"bg/n")

  Check only the RETURNed element:
  IF Was_Tagged(chr(17),t_arrey,nOpt); MoreProcessing(); END

  Check entire 't_arrey':
  Aeval( t_arrey,{|e,n| IF( Was_Tagged(chr(17),t_arrey,n ), ;
                            MoreProcessing(t_arrey),NIL ) } )



 Source: FT_ACH2T.CH

 Author: Steve Kolterman