home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Science / Science.zip / goat006.zip / SRC.ZIP / goatsrc / Main / Form.2 < prev    next >
Text File  |  2002-08-21  |  410b  |  16 lines
  1. /* Form events - Closed */
  2. Arg window 
  3.  
  4. response=VpMessageBox(window,'GOAT - Goodbye?','Are you sure you want to exit GOAT?','YESNO')
  5.  
  6. /* RETURN 1 PREVENTS THE WINDOW FROM CLOSING ON THIS EVENT!! */
  7.  
  8. if response ='NO' then
  9.   RETURN 1
  10. else
  11.   do
  12.     rc=stream(imagename||'_TMP.TIF','c','query exists')
  13.     if length(rc) > 0 then
  14.       rc=SysFileDelete(imagename||'_TMP.TIF')
  15.     call saveini
  16.   end