home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: Science
/
Science.zip
/
goat006.zip
/
SRC.ZIP
/
goatsrc
/
SubProcs
/
savetextas
< prev
next >
Wrap
Text File
|
2002-07-17
|
351b
|
11 lines
textfilename = VpFileDialog(window,'SAVE','*.txt','GOAT - Save Text File As')
IF LENGTH(textfilename) > 0 THEN
do
/* Save item to file 1001 Multi-Line Entry Field */
CALL VpSaveToFile window,1001,textfilename
/* Set changed flag off 1001 Multi-Line Entry Field */
CALL VpItem window,1001,'SENDMSG','0x01bb','0','0'
end