/*
 * File......: GT_Memo.ch
 * Author....: Niall Scott
 * BBS.......: The Dark Knight Returns
 * Net/Node..: 050/069
 * User Name.: Niall Scott
 * Date......: 29/6/93
 * Revision..: 1.0
 * Log file..: $Logfile$
 *
 * This is an original work by Niall R Scott and is placed in the
 * public domain.
 *
 * Modification history:
 * ---------------------
 *
 * Rev 1.0  29/6/93
 * Initial Revision
 */


/*  $DOC$
 *  $FUNCNAME$
 *
 *  $CATEGORY$
 *      GET System
 *  $ONELINER$
 *      Header File for GT_RMemo
 *  $SYNTAX$
 *
 *  $ARGUMENTS$
 *
 *  $RETURNS$
 *
 *  $DESCRIPTION$
 *
 *  $EXAMPLES$
 *
 *  $SEEALSO$
 *      GT_RMEMO()
 *  $INCLUDE$
 *
 *  $END$
 */


#xcommand @ <row>, <col> GET <var>                                      ;
                        MEMO                                            ;
                        [COORD <coords>]                                ;
                        [BOXCOLOR <boxcol>]                             ;
                        [VALID <valid>]                                 ;
                        [WHEN <when>]                                   ;
			[TITLE <title>]                                 ;
  =>  aadd(getlist, ;
      xgetnew(<row>, <col>, {|newval| if(newval == nil, ;
      if(empty(<var>), "memo", "MEMO"), ;
      <var> := newval) }, ;
      <(var)>, <{valid}>, <{when}>)) ;;
      atail(getlist):cargo := {"memo", <var>, <coords>, <(boxcol)>,<title>} ;;
      atail(getlist):display() ;;
      atail(getlist):reader := {|g| GT_MemoRead(g)}