home *** CD-ROM | disk | FTP | other *** search
/ Power CD-ROM!! 7 / POWERCD7.ISO / prgmming / clipper / gt_memo.ch < prev    next >
Text File  |  1993-07-01  |  2KB  |  64 lines
  1. /*
  2.  * File......: GT_Memo.ch
  3.  * Author....: Niall Scott
  4.  * BBS.......: The Dark Knight Returns
  5.  * Net/Node..: 050/069
  6.  * User Name.: Niall Scott
  7.  * Date......: 29/6/93
  8.  * Revision..: 1.0
  9.  * Log file..: $Logfile$
  10.  *
  11.  * This is an original work by Niall R Scott and is placed in the
  12.  * public domain.
  13.  *
  14.  * Modification history:
  15.  * ---------------------
  16.  *
  17.  * Rev 1.0  29/6/93
  18.  * Initial Revision
  19.  */
  20.  
  21.  
  22. /*  $DOC$
  23.  *  $FUNCNAME$
  24.  *
  25.  *  $CATEGORY$
  26.  *      GET System
  27.  *  $ONELINER$
  28.  *      Header File for GT_RMemo
  29.  *  $SYNTAX$
  30.  *
  31.  *  $ARGUMENTS$
  32.  *
  33.  *  $RETURNS$
  34.  *
  35.  *  $DESCRIPTION$
  36.  *
  37.  *  $EXAMPLES$
  38.  *
  39.  *  $SEEALSO$
  40.  *      GT_RMEMO()
  41.  *  $INCLUDE$
  42.  *
  43.  *  $END$
  44.  */
  45.  
  46.  
  47. #xcommand @ <row>, <col> GET <var>                                      ;
  48.                         MEMO                                            ;
  49.                         [COORD <coords>]                                ;
  50.                         [BOXCOLOR <boxcol>]                             ;
  51.                         [VALID <valid>]                                 ;
  52.                         [WHEN <when>]                                   ;
  53.             [TITLE <title>]                                 ;
  54.   =>  aadd(getlist, ;
  55.       xgetnew(<row>, <col>, {|newval| if(newval == nil, ;
  56.       if(empty(<var>), "memo", "MEMO"), ;
  57.       <var> := newval) }, ;
  58.       <(var)>, <{valid}>, <{when}>)) ;;
  59.       atail(getlist):cargo := {"memo", <var>, <coords>, <(boxcol)>,<title>} ;;
  60.       atail(getlist):display() ;;
  61.       atail(getlist):reader := {|g| GT_MemoRead(g)}
  62.  
  63.  
  64.