equal
deleted
inserted
replaced
169 (MenuItem |
169 (MenuItem |
170 label: '-' |
170 label: '-' |
171 isVisible: selfIsNotImageEditor |
171 isVisible: selfIsNotImageEditor |
172 ) |
172 ) |
173 (MenuItem |
173 (MenuItem |
|
174 label: 'Save As...' |
|
175 itemValue: saveImageAs |
|
176 isVisible: selfIsNotImageEditor |
|
177 ) |
|
178 (MenuItem |
174 label: 'Edit' |
179 label: 'Edit' |
175 itemValue: editImage |
180 itemValue: editImage |
176 isVisible: selfIsNotImageEditor |
181 isVisible: selfIsNotImageEditor |
|
182 ) |
|
183 (MenuItem |
|
184 label: 'Extra Slice' |
|
185 submenuChannel: middleButtonMenuExtraSlice |
|
186 isMenuSlice: true |
177 ) |
187 ) |
178 ) |
188 ) |
179 nil |
189 nil |
180 nil |
190 nil |
181 ) |
191 ) |
|
192 ! |
|
193 |
|
194 middleButtonMenuExtraSlice |
|
195 "can be refdefined in subclasses to add more menu items" |
|
196 |
|
197 ^ nil |
182 ! ! |
198 ! ! |
183 |
199 |
184 !ImageView class methodsFor:'queries-plugin'! |
200 !ImageView class methodsFor:'queries-plugin'! |
185 |
201 |
186 aspectSelectors |
202 aspectSelectors |
973 "Created: / 13-09-2017 / 09:43:11 / cg" |
989 "Created: / 13-09-2017 / 09:43:11 / cg" |
974 ! |
990 ! |
975 |
991 |
976 middleButtonMenu |
992 middleButtonMenu |
977 menuHolder notNil ifTrue:[^ super middleButtonMenu]. |
993 menuHolder notNil ifTrue:[^ super middleButtonMenu]. |
978 ^ self class middleButtonMenu |
994 ^ [ self class middleButtonMenu ] |
|
995 ! |
|
996 |
|
997 middleButtonMenuExtraSlice |
|
998 ^ [ self class middleButtonMenuExtraSlice ] |
|
999 ! |
|
1000 |
|
1001 saveImageAs |
|
1002 |imageFilename| |
|
1003 |
|
1004 imageFilename := Dialog |
|
1005 requestFileName:(resources string:'Save Image As') |
|
1006 default:'image.png' |
|
1007 pattern:'*.png' |
|
1008 fromDirectory:Filename currentDirectory. |
|
1009 |
|
1010 imageFilename notNil ifTrue:[ |
|
1011 self saveImageAs:imageFilename |
|
1012 ]. |
|
1013 ! |
|
1014 |
|
1015 saveImageAs:filename |
|
1016 PNGReader save:image onFile:filename |
979 ! ! |
1017 ! ! |
980 |
1018 |
981 !ImageView methodsFor:'queries'! |
1019 !ImageView methodsFor:'queries'! |
982 |
1020 |
983 heightOfContents |
1021 heightOfContents |
988 ! |
1026 ! |
989 |
1027 |
990 selfIsNotImageEditor |
1028 selfIsNotImageEditor |
991 "for the menu; to hide edit item" |
1029 "for the menu; to hide edit item" |
992 |
1030 |
993 ^ self class == ImageView |
1031 ^ true |
994 |
1032 |
995 "Created: / 16-02-2017 / 19:00:59 / cg" |
1033 "Created: / 16-02-2017 / 19:00:59 / cg" |
996 ! |
1034 ! |
997 |
1035 |
998 widthOfContents |
1036 widthOfContents |