equal
deleted
inserted
replaced
4733 ! |
4733 ! |
4734 |
4734 |
4735 doLoadFromFile |
4735 doLoadFromFile |
4736 "opens a dialog for loading an image from a file" |
4736 "opens a dialog for loading an image from a file" |
4737 |
4737 |
4738 |img file dir filters| |
4738 |img file filters| |
4739 |
4739 |
4740 imageSeqNr := nil. |
4740 imageSeqNr := nil. |
4741 img := self image. |
4741 img := self image. |
4742 img notNil ifTrue: [ |
4742 img notNil ifTrue: [ |
4743 file := img fileName |
4743 file := img fileName |
4744 ] ifFalse:[ |
|
4745 dir := LastDirectory |
|
4746 ]. |
4744 ]. |
4747 |
4745 |
4748 filters := FileSelectionBrowser loadImageFileNameFilters. |
4746 filters := FileSelectionBrowser loadImageFileNameFilters. |
4749 |
4747 |
4750 file notNil ifTrue:[ |
4748 file notNil ifTrue:[ |
4753 fileName:file |
4751 fileName:file |
4754 withFileFilters:filters. |
4752 withFileFilters:filters. |
4755 ] ifFalse:[ |
4753 ] ifFalse:[ |
4756 file := FileSelectionBrowser |
4754 file := FileSelectionBrowser |
4757 request:'Load Image From' |
4755 request:'Load Image From' |
4758 inDirectory:dir |
4756 inDirectory:LastDirectory |
4759 withFileFilters:filters. |
4757 withFileFilters:filters. |
4760 ]. |
4758 ]. |
4761 file notNil ifTrue:[ |
4759 file notNil ifTrue:[ |
4762 LastDirectory := file asFilename directoryName. |
4760 LastDirectory := file asFilename directoryName. |
4763 self loadFromFile:file |
4761 self loadFromFile:file |
4916 |
4914 |
4917 imageEditView save. |
4915 imageEditView save. |
4918 ! |
4916 ! |
4919 |
4917 |
4920 doSaveImageFileAs |
4918 doSaveImageFileAs |
4921 "opens a dialog for saving current image to a file" |
4919 "opens a dialog for saving an image to a file" |
4922 |
4920 |
4923 imageEditView saveImageFileAs. |
4921 |img file filters| |
4924 self updateLabelsAndHistory. |
4922 |
|
4923 img := self image. |
|
4924 img notNil ifTrue: [ |
|
4925 file := img fileName |
|
4926 ]. |
|
4927 |
|
4928 filters := FileSelectionBrowser loadImageFileNameFilters. |
|
4929 |
|
4930 file notNil ifTrue:[ |
|
4931 file := FileSelectionBrowser |
|
4932 request:'Save Image To' |
|
4933 fileName:file |
|
4934 withFileFilters:filters. |
|
4935 ] ifFalse:[ |
|
4936 file := FileSelectionBrowser |
|
4937 request:'Save Image To' |
|
4938 inDirectory:LastDirectory |
|
4939 withFileFilters:filters. |
|
4940 ]. |
|
4941 file notNil ifTrue:[ |
|
4942 imageEditView saveImageFileAs:file. |
|
4943 LastDirectory := file asFilename directoryName. |
|
4944 self updateLabelsAndHistory. |
|
4945 ] |
4925 ! |
4946 ! |
4926 |
4947 |
4927 doSaveImageMaskFileAs |
4948 doSaveImageMaskFileAs |
4928 "opens a dialog for saving mask of current image to a file" |
4949 "opens a dialog for saving mask of current image to a file" |
4929 |
4950 |