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