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