equal
deleted
inserted
replaced
715 #(#MenuItem |
715 #(#MenuItem |
716 #label: 'Save' |
716 #label: 'Save' |
717 #translateLabel: true |
717 #translateLabel: true |
718 #value: #doSaveMethod |
718 #value: #doSaveMethod |
719 #activeHelpKey: #fileSaveMethod |
719 #activeHelpKey: #fileSaveMethod |
720 #enabled: #imageIsLoaded |
720 #enabled: #imageIsLoadedAndClassDefined |
721 ) |
721 ) |
722 #(#MenuItem |
722 #(#MenuItem |
723 #label: 'Save As...' |
723 #label: 'Save As...' |
724 #translateLabel: true |
724 #translateLabel: true |
725 #value: #doSaveMethodAs |
725 #value: #doSaveMethodAs |
759 #(#MenuItem |
759 #(#MenuItem |
760 #label: 'Browse Class' |
760 #label: 'Browse Class' |
761 #translateLabel: true |
761 #translateLabel: true |
762 #value: #doBrowseClass |
762 #value: #doBrowseClass |
763 #activeHelpKey: #fileBrowseClass |
763 #activeHelpKey: #fileBrowseClass |
764 #enabled: #imageIsLoaded |
764 #enabled: #hasClassDefined |
765 ) |
765 ) |
766 #(#MenuItem |
766 #(#MenuItem |
767 #label: '-' |
767 #label: '-' |
768 ) |
768 ) |
769 #(#MenuItem |
769 #(#MenuItem |
904 #label: '-' |
904 #label: '-' |
905 ) |
905 ) |
906 #(#MenuItem |
906 #(#MenuItem |
907 #label: 'Compress colormap' |
907 #label: 'Compress colormap' |
908 #translateLabel: true |
908 #translateLabel: true |
|
909 #value: #compressColorMap |
909 #activeHelpKey: #compressColormap |
910 #activeHelpKey: #compressColormap |
910 #value: #compressColorMap |
|
911 ) |
911 ) |
912 ) nil |
912 ) nil |
913 nil |
913 nil |
914 ) |
914 ) |
915 ) |
915 ) |
953 ) |
953 ) |
954 ) nil |
954 ) nil |
955 nil |
955 nil |
956 ) |
956 ) |
957 |
957 |
958 "Modified: / 29.7.1998 / 22:26:55 / cg" |
958 "Modified: / 31.7.1998 / 02:04:49 / cg" |
959 ! |
959 ! |
960 |
960 |
961 menuMouseButtonColors |
961 menuMouseButtonColors |
962 "This resource specification was automatically generated |
962 "This resource specification was automatically generated |
963 by the MenuEditor of ST/X." |
963 by the MenuEditor of ST/X." |
1159 ^ self |
1159 ^ self |
1160 |
1160 |
1161 "Created: / 26.7.1998 / 12:17:03 / cg" |
1161 "Created: / 26.7.1998 / 12:17:03 / cg" |
1162 ! |
1162 ! |
1163 |
1163 |
|
1164 hasClassAndSelectorDefined |
|
1165 ^ [(Smalltalk at:(imageEditView resourceClass) ifAbsent:nil) notNil |
|
1166 and:[imageEditView resourceSelector notNil]] |
|
1167 |
|
1168 "Created: / 31.7.1998 / 02:02:54 / cg" |
|
1169 ! |
|
1170 |
|
1171 hasClassDefined |
|
1172 ^ [(Smalltalk at:(imageEditView resourceClass) ifAbsent:nil) notNil] |
|
1173 |
|
1174 "Created: / 31.7.1998 / 02:02:22 / cg" |
|
1175 ! |
|
1176 |
1164 imageInfoHolder |
1177 imageInfoHolder |
1165 |holder| |
1178 |holder| |
1166 (holder := builder bindingAt:#imageInfoHolder) isNil ifTrue:[ |
1179 (holder := builder bindingAt:#imageInfoHolder) isNil ifTrue:[ |
1167 builder aspectAt:#imageInfoHolder put:(holder := '' asValue). |
1180 builder aspectAt:#imageInfoHolder put:(holder := '' asValue). |
1168 ]. |
1181 ]. |
1177 |holder| |
1190 |holder| |
1178 (holder := builder bindingAt:#imageIsLoaded) isNil ifTrue:[ |
1191 (holder := builder bindingAt:#imageIsLoaded) isNil ifTrue:[ |
1179 builder aspectAt:#imageIsLoaded put:(holder := false asValue). |
1192 builder aspectAt:#imageIsLoaded put:(holder := false asValue). |
1180 ]. |
1193 ]. |
1181 ^ holder |
1194 ^ holder |
|
1195 ! |
|
1196 |
|
1197 imageIsLoadedAndClassDefined |
|
1198 "returns whether an image is loaded as value holder" |
|
1199 |
|
1200 ^ [self hasClassAndSelectorDefined value |
|
1201 and:[self imageIsLoaded value]] |
|
1202 |
|
1203 "Created: / 31.7.1998 / 02:04:18 / cg" |
1182 ! |
1204 ! |
1183 |
1205 |
1184 listOfColors |
1206 listOfColors |
1185 "returns the list of colors in a List" |
1207 "returns the list of colors in a List" |
1186 |
1208 |
1791 !ImageEditor methodsFor:'user actions - editing'! |
1813 !ImageEditor methodsFor:'user actions - editing'! |
1792 |
1814 |
1793 doBrowseClass |
1815 doBrowseClass |
1794 "opens a System Browser on the resourceClass and the resourceSelector" |
1816 "opens a System Browser on the resourceClass and the resourceSelector" |
1795 |
1817 |
1796 SystemBrowser openInClass: (Smalltalk at: imageEditView resourceClass ifAbsent: [^nil]) class selector: imageEditView resourceSelector |
1818 |cls| |
|
1819 |
|
1820 cls := Smalltalk at:(imageEditView resourceClass) ifAbsent:nil. |
|
1821 cls isNil ifTrue:[^ self warn:'No Class specified']. |
|
1822 SystemBrowser |
|
1823 openInClass:cls class |
|
1824 selector:(imageEditView resourceSelector) |
|
1825 |
|
1826 "Modified: / 31.7.1998 / 02:01:15 / cg" |
1797 ! |
1827 ! |
1798 |
1828 |
1799 doChangeGridMagnification |
1829 doChangeGridMagnification |
1800 "change grid magnification" |
1830 "change grid magnification" |
1801 |
1831 |