equal
deleted
inserted
replaced
3780 itemValue: doLoadFromFile |
3780 itemValue: doLoadFromFile |
3781 isButton: true |
3781 isButton: true |
3782 labelImage: (ResourceRetriever ToolbarIconLibrary loadImageFromFileIcon) |
3782 labelImage: (ResourceRetriever ToolbarIconLibrary loadImageFromFileIcon) |
3783 ) |
3783 ) |
3784 (MenuItem |
3784 (MenuItem |
|
3785 activeHelpKey: fileSave |
|
3786 enabled: imageIsLoadedHolder |
|
3787 label: 'save' |
|
3788 itemValue: doSaveImageFile |
|
3789 isButton: true |
|
3790 isVisible: saveButtonInToolbarVisibleHolder |
|
3791 labelImage: (ResourceRetriever ToolbarIconLibrary saveImageIcon) |
|
3792 ) |
|
3793 (MenuItem |
3785 activeHelpKey: fileSaveAs |
3794 activeHelpKey: fileSaveAs |
3786 enabled: imageIsLoadedHolder |
3795 enabled: imageIsLoadedHolder |
3787 label: 'saveAsFile' |
3796 label: 'saveAsFile' |
3788 itemValue: doSaveImageFileAs |
3797 itemValue: doSaveImageFileAs |
3789 isButton: true |
3798 isButton: true |
3822 ) |
3831 ) |
3823 ) |
3832 ) |
3824 nil |
3833 nil |
3825 nil |
3834 nil |
3826 ) |
3835 ) |
|
3836 |
|
3837 "Modified: / 26-02-2017 / 23:03:40 / cg" |
3827 ! |
3838 ! |
3828 |
3839 |
3829 modeMenu |
3840 modeMenu |
3830 "This resource specification was automatically generated |
3841 "This resource specification was automatically generated |
3831 by the MenuEditor of ST/X." |
3842 by the MenuEditor of ST/X." |
4822 "Created: / 04-07-2010 / 10:19:34 / cg" |
4833 "Created: / 04-07-2010 / 10:19:34 / cg" |
4823 ! |
4834 ! |
4824 |
4835 |
4825 readOnly |
4836 readOnly |
4826 ^ false |
4837 ^ false |
|
4838 ! |
|
4839 |
|
4840 saveButtonInToolbarVisibleHolder |
|
4841 ^ false |
|
4842 |
|
4843 "Created: / 26-02-2017 / 22:58:41 / cg" |
4827 ! |
4844 ! |
4828 |
4845 |
4829 selectedColors |
4846 selectedColors |
4830 "returns a valueHolder for the current set of selected colors." |
4847 "returns a valueHolder for the current set of selected colors." |
4831 |
4848 |
8324 { (resources string:'All Files') . '*.*' } |
8341 { (resources string:'All Files') . '*.*' } |
8325 } |
8342 } |
8326 extension:nil |
8343 extension:nil |
8327 "blocking:false". |
8344 "blocking:false". |
8328 ]. |
8345 ]. |
8329 ] ifFalse:[ |
8346 ] ifFalse:[ |
|
8347 img fileName isNil ifTrue:[ |
|
8348 LastDirectory notNil ifTrue:[ |
|
8349 file := LastDirectory asFilename construct:(file asFilename baseName). |
|
8350 ]. |
|
8351 ]. |
8330 (FileSelectionBrowser isNil or:[DirectoryView isNil]) ifTrue:[ |
8352 (FileSelectionBrowser isNil or:[DirectoryView isNil]) ifTrue:[ |
8331 file notNil ifTrue:[ |
8353 file notNil ifTrue:[ |
8332 file := Dialog requestFileName:'Save Image To' |
8354 file := Dialog requestFileName:'Save Image To' |
8333 default:file |
8355 default:file |
8334 pattern:(filters first). |
8356 pattern:(filters first). |
8339 pattern:(filters first) |
8361 pattern:(filters first) |
8340 fromDirectory:LastDirectory. |
8362 fromDirectory:LastDirectory. |
8341 ]. |
8363 ]. |
8342 ] ifFalse:[ |
8364 ] ifFalse:[ |
8343 file notNil ifTrue:[ |
8365 file notNil ifTrue:[ |
8344 LastDirectory notNil ifTrue:[ |
|
8345 file := LastDirectory asFilename construct:(file asFilename baseName). |
|
8346 ]. |
|
8347 file := FileSelectionBrowser |
8366 file := FileSelectionBrowser |
8348 request:'Save Image To' |
8367 request:'Save Image To' |
8349 fileName:file |
8368 fileName:file |
8350 withFileFilters:filters. |
8369 withFileFilters:filters. |
8351 ] ifFalse:[ |
8370 ] ifFalse:[ |
8361 LastDirectory := file asFilename directoryName. |
8380 LastDirectory := file asFilename directoryName. |
8362 self updateLabelsAndHistory. |
8381 self updateLabelsAndHistory. |
8363 self clearModifiedAndRememberImageSavedAsFile:file. |
8382 self clearModifiedAndRememberImageSavedAsFile:file. |
8364 ] |
8383 ] |
8365 |
8384 |
8366 "Modified: / 26-02-2017 / 17:37:54 / cg" |
8385 "Modified: / 26-02-2017 / 22:46:59 / cg" |
8367 ! |
8386 ! |
8368 |
8387 |
8369 doSaveImageMaskFileAs |
8388 doSaveImageMaskFileAs |
8370 "opens a dialog for saving mask of current image to a file" |
8389 "opens a dialog for saving mask of current image to a file" |
8371 |
8390 |