6217 file := img fileName |
6217 file := img fileName |
6218 ]. |
6218 ]. |
6219 |
6219 |
6220 filters := FileSelectionBrowser saveImageFileNameFilters. |
6220 filters := FileSelectionBrowser saveImageFileNameFilters. |
6221 |
6221 |
6222 file notNil ifTrue:[ |
6222 (FileSelectionBrowser isNil or:[DirectoryView isNil]) ifTrue:[ |
6223 file := FileSelectionBrowser |
6223 file notNil ifTrue:[ |
6224 request:'Save Image To' |
6224 file := Dialog requestFileName:'Save Image To' |
6225 fileName:file |
6225 default:file |
6226 withFileFilters:filters. |
6226 pattern:(filters first). |
|
6227 ] ifFalse:[ |
|
6228 file := Dialog |
|
6229 requestFileName:'Save Image To' |
|
6230 default:'image.png' |
|
6231 pattern:(filters first) |
|
6232 fromDirectory:LastDirectory. |
|
6233 ]. |
6227 ] ifFalse:[ |
6234 ] ifFalse:[ |
6228 file := FileSelectionBrowser |
6235 file notNil ifTrue:[ |
6229 request:'Save Image To' |
6236 file := FileSelectionBrowser |
6230 inDirectory:LastDirectory |
6237 request:'Save Image To' |
6231 withFileFilters:filters. |
6238 fileName:file |
|
6239 withFileFilters:filters. |
|
6240 ] ifFalse:[ |
|
6241 file := FileSelectionBrowser |
|
6242 request:'Save Image To' |
|
6243 inDirectory:LastDirectory |
|
6244 withFileFilters:filters. |
|
6245 ]. |
6232 ]. |
6246 ]. |
6233 file notNil ifTrue:[ |
6247 file notNil ifTrue:[ |
6234 imageEditView saveImageFileAs:file. |
6248 imageEditView saveImageFileAs:file. |
6235 LastDirectory := file asFilename directoryName. |
6249 LastDirectory := file asFilename directoryName. |
6236 self updateLabelsAndHistory. |
6250 self updateLabelsAndHistory. |
6237 self clearModified. |
6251 self clearModified. |
6238 ] |
6252 ] |
|
6253 |
|
6254 "Modified: / 18-10-2010 / 14:25:17 / cg" |
6239 ! |
6255 ! |
6240 |
6256 |
6241 doSaveImageMaskFileAs |
6257 doSaveImageMaskFileAs |
6242 "opens a dialog for saving mask of current image to a file" |
6258 "opens a dialog for saving mask of current image to a file" |
6243 |
6259 |