home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1993 #2 / Image.iso / clipper / memoge.zip / MEMOGET.CH next >
Text File  |  1993-08-02  |  1KB  |  28 lines
  1. // MemoGet.ch
  2. //
  3. // Date   : 7/31/93
  4. // Author : Shaun Botha (CompuServe ID: 70043, 2641)
  5. // Purpose: Header file for 'GET'ting of a memo field
  6. //
  7. // Should you make modifications to this please let me know so that I and
  8. // others can be kept updated
  9.  
  10.  
  11. // Use this to activate memo editing from GET
  12. #define K_ALT_ENTER     284
  13. #define K_ACT_MEMO      K_ALT_ENTER
  14.  
  15.  
  16. // Translate a 'GET' of a memo
  17. #translate @ <row>, <col> GET <var> AS MEMO <t>, <l>, <b>, <r>;
  18.             [<ed:EDITOR> <meditor>];
  19.     => ;
  20.         SetPos(Row(), Col()+1) ;;
  21.         AAdd(getList, GetNew(Row(), Col(), {|_e_| iif(pcount() \<\ 1, <var>, <var> := _e_), "<"+left(<var>, 13)+">"})) ;;
  22.         ATail(getList):cargo := {} ;;
  23.         AAdd(ATail(getList):cargo, {|_e_| <var> := iif(pcount() \<\ 1, <var>, _e_)}) ;;
  24.         AAdd(ATail(getList):cargo, {<t>, <l>, <b>, <r>}) ;;
  25.         AAdd(ATail(getList):cargo, iif(<.ed.>, {|m,t,l,b,r| <meditor>(m,t,l,b,r)}, nil)) ;;
  26.         ATail(getList):reader := {|_g_| memoReader(_g_)} ;;
  27.         ATail(getList):display()
  28.