home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Science / Science.zip / goat006.zip / SRC.ZIP / goatsrc / SubProcs / saveimage < prev    next >
Text File  |  2002-07-17  |  887b  |  26 lines
  1.  
  2. /* Get changed flag 1000 Image Editor */
  3. flag=VpImgEdt(window, 1000, 'GETCHANGED')
  4. if length(imagefilename)>0  then
  5.   do
  6.     if flag=1 then
  7.       do
  8.         response=VpMessageBox(window,'GOAT - Save Image File','You are about to overwrite the current image file.  Do you want to continue?','YESNO')
  9.         if response='YES' then
  10.           do
  11.             /*  rc=SysFileDelete(imagefilename) */
  12.             CALL VpImgEdt window, 1000, 'SAVE', imagefilename, pal1bpp
  13.             if convertimage=1 then
  14.               tifftopnm imagefilename' > 'imagename||'.PNM'||' 2>>error.log'
  15.           end
  16.       end
  17.     else
  18.       response=VpMessageBox(window,'GOAT - Save Image File','No changes have been made.')
  19.   end
  20.   else
  21.     if flag=1 then
  22.       Call saveimageas
  23.     else
  24.       response=VpMessageBox(window,'GOAT - Save Image File','No changes have been made.')
  25.       
  26.