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