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

/*
* File......: FT_ACH2T.CH
* Author....: Steve Kolterman
* CIS ID....: 76320,37
* Date......: $Date: 07 Oct 1992 23:29:14 $
* Revision..: $Revision: 1.3 $
* Log file..: $Logfile: C:/nanfor/src/ft_ach2t.chv $
*
* This is an original work by Steve Kolterman and is placed in the
* public domain.
*
* Modification history:
* ---------------------
*
* $Log: C:/nanfor/src/ft_ach2t.chv $
*
* Rev 1.3 07 Oct 1992 23:29:14 GLENN
* Latest Kolterman updates.
*
* Rev 1.2 15 Aug 1991 23:19:32 GLENN
* Last minute changes sent in by Steve Kolterman
*
* Rev 1.1 15 Aug 1991 23:08:50 GLENN
* Forest Belt proofread/edited/cleaned up doc
*
* Rev 1.0 14 Jun 1991 04:14:28 GLENN
* Initial revision.
*
*/


/* $DOC$
* $FUNCNAME$
* A_CHOICE()
* $ONELINER$
* Psuedo function to simplify FT_ACH2TB()
* $CATEGORY$
* Menus/Prompts
* $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 ,
* , and 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 ) } )
*
*
* $SEEALSO$
* FT_ACH2TB()
* $END$
*/


#xtrans A_CHOICE( ;
,,[],[] ;
ARRAY: ;
[USERFUNC:] ;
[BOXTYPE:] ;
[BOXCOLOR:] ;
[BOXTITLE:] ;
[TITLEPOS:] ;
[USELCOLOR:] ;
[TITLECOLOR:] ;
[BAR_COLOR:] ;
[HOTKEYCOLOR:] ;
[SHADOW:] ;
[AUTOEXEC:] ;
[MES_ROW:] ;
[MES_COL:] ;
[MES_COLOR:] ;
[ELEVBAR:] ;
[ELEVBAR_COLOR:] ;
[ELEVBAR_SIDE:] ;
[NOSELCOLOR:] ;
[TAGCHAR:] ;
[START_ELEM:] ;
[REST_SCREEN:] ;
[TIME_OUT:] ;
[TIME_OUT VALUE:] ) ;
=> ;
FT_Ach2tb( ;
,,[],[],, [], ;
[], [], [], [], [], ;
[], [], [], [], [], ;
[], [], [], [], ;
[], [], [], [], ;
[],[],[],[] ;
)

#translate WAS_TAGGED(,,) => ;
( $ \[]\[1] )

#translate ONE_TAGGED(,) => ;
(Ascan(,{|e| $ e\[1]})) > 0

#translate ALL_TAGGED(,) => ;
(Ascan(,{|e| !( $ e\[1]})) ) == 0