equal
deleted
inserted
replaced
1534 (InputFieldSpec |
1534 (InputFieldSpec |
1535 name: 'magnificationInputField' |
1535 name: 'magnificationInputField' |
1536 layout: (LayoutFrame -57 1 -22 1 -26 1 0 1) |
1536 layout: (LayoutFrame -57 1 -22 1 -26 1 0 1) |
1537 activeHelpKey: magnificationNumber |
1537 activeHelpKey: magnificationNumber |
1538 enableChannel: imageIsLoaded |
1538 enableChannel: imageIsLoaded |
1539 model: valueOfMagnification |
1539 model: magnificationHolder |
1540 type: numberInRange |
1540 type: numberInRange |
1541 acceptOnReturn: true |
1541 acceptOnReturn: true |
1542 acceptOnTab: true |
1542 acceptOnTab: true |
1543 numChars: 2 |
1543 numChars: 2 |
1544 minValue: 1 |
1544 minValue: 1 |
1847 submenu: |
1847 submenu: |
1848 (Menu |
1848 (Menu |
1849 ( |
1849 ( |
1850 (MenuItem |
1850 (MenuItem |
1851 activeHelpKey: editUndo |
1851 activeHelpKey: editUndo |
1852 enabled: valueOfCanUndo |
1852 enabled: canUndoHolder |
1853 label: 'Undo' |
1853 label: 'Undo' |
1854 itemValue: doUndo |
1854 itemValue: doUndo |
1855 translateLabel: true |
1855 translateLabel: true |
1856 ) |
1856 ) |
1857 (MenuItem |
1857 (MenuItem |
2409 (MenuItem |
2409 (MenuItem |
2410 label: '-' |
2410 label: '-' |
2411 ) |
2411 ) |
2412 (MenuItem |
2412 (MenuItem |
2413 activeHelpKey: editUndo |
2413 activeHelpKey: editUndo |
2414 enabled: valueOfCanUndo |
2414 enabled: canUndoHolder |
2415 label: 'Undo' |
2415 label: 'Undo' |
2416 itemValue: doUndo |
2416 itemValue: doUndo |
2417 translateLabel: true |
2417 translateLabel: true |
2418 isButton: true |
2418 isButton: true |
2419 labelImage: (ResourceRetriever ToolbarIconLibrary undoIcon) |
2419 labelImage: (ResourceRetriever ToolbarIconLibrary undoIcon) |
2826 ! ! |
2826 ! ! |
2827 |
2827 |
2828 !ImageEditor methodsFor:'aspects'! |
2828 !ImageEditor methodsFor:'aspects'! |
2829 |
2829 |
2830 activityInfoHolder |
2830 activityInfoHolder |
2831 ^ self valueOfInfoLabel |
2831 ^ self infoLabelHolder |
2832 |
2832 |
2833 "Modified: / 29.7.1998 / 18:49:03 / cg" |
2833 "Modified: / 29.7.1998 / 18:49:03 / cg" |
2834 ! |
2834 ! |
2835 |
2835 |
2836 colorColumnAdaptor |
2836 colorColumnAdaptor |
2916 (list := builder bindingAt:#listOfColors) isNil ifTrue:[ |
2916 (list := builder bindingAt:#listOfColors) isNil ifTrue:[ |
2917 builder aspectAt:#listOfColors put:(list := List new). |
2917 builder aspectAt:#listOfColors put:(list := List new). |
2918 list addDependent:self. |
2918 list addDependent:self. |
2919 ]. |
2919 ]. |
2920 ^ list |
2920 ^ list |
|
2921 ! |
|
2922 |
|
2923 magnificationHolder |
|
2924 "returns current magnification of the image as an AspectAdaptor" |
|
2925 |
|
2926 |holder| |
|
2927 (holder := builder bindingAt:#valueOfMagnification) isNil ifTrue:[ |
|
2928 builder aspectAt:#valueOfMagnification put:( |
|
2929 holder := AspectAdaptor new subject:self; forAspect:#magnification) |
|
2930 ]. |
|
2931 ^ holder |
2921 ! |
2932 ! |
2922 |
2933 |
2923 previewBackgroundColor |
2934 previewBackgroundColor |
2924 |holder| |
2935 |holder| |
2925 (holder := builder bindingAt:#previewBackgroundColor) isNil ifTrue:[ |
2936 (holder := builder bindingAt:#previewBackgroundColor) isNil ifTrue:[ |
2952 ! |
2963 ! |
2953 |
2964 |
2954 valueOfMagnification |
2965 valueOfMagnification |
2955 "returns current magnification of the image as an AspectAdaptor" |
2966 "returns current magnification of the image as an AspectAdaptor" |
2956 |
2967 |
2957 |holder| |
2968 self obsoleteMethodWarning:'stupid method name - use #magnificationHolder'. |
2958 (holder := builder bindingAt:#valueOfMagnification) isNil ifTrue:[ |
2969 ^ self magnificationHolder |
2959 builder aspectAt:#valueOfMagnification put:( |
|
2960 holder := AspectAdaptor new subject:self; forAspect:#magnification) |
|
2961 ]. |
|
2962 ^ holder |
|
2963 ! ! |
2970 ! ! |
2964 |
2971 |
2965 !ImageEditor methodsFor:'change & update'! |
2972 !ImageEditor methodsFor:'change & update'! |
2966 |
2973 |
2967 findColorMapMode |
2974 findColorMapMode |
3062 ]. |
3069 ]. |
3063 ^ self |
3070 ^ self |
3064 ]. |
3071 ]. |
3065 |
3072 |
3066 changedObject == imageEditView undoImages ifTrue:[ |
3073 changedObject == imageEditView undoImages ifTrue:[ |
3067 self valueOfCanUndo value:(changedObject notEmpty). |
3074 self canUndoHolder value:(changedObject notEmpty). |
3068 ^ self. |
3075 ^ self. |
3069 ]. |
3076 ]. |
3070 |
3077 |
3071 changedObject == imageEditView ifTrue:[ |
3078 changedObject == imageEditView ifTrue:[ |
3072 something == #imageColors ifTrue:[ |
3079 something == #imageColors ifTrue:[ |
4776 |
4783 |
4777 self image inspect |
4784 self image inspect |
4778 ! |
4785 ! |
4779 |
4786 |
4780 doMagnifyDown |
4787 doMagnifyDown |
4781 "magnifies current image one step down" |
4788 "magnifies the current image one step down" |
4782 |
4789 |
4783 |magHolder mag| |
4790 |magHolder mag| |
4784 |
4791 |
4785 magHolder := self valueOfMagnification. |
4792 magHolder := self magnificationHolder. |
4786 (mag := magHolder value) > 1 ifTrue: [ |
4793 (mag := magHolder value) > 1 ifTrue: [ |
4787 magHolder value: mag - 1 |
4794 magHolder value: mag - 1 |
4788 ] |
4795 ] |
4789 |
4796 |
4790 "Modified: / 26.7.1998 / 20:24:08 / cg" |
4797 "Modified: / 26.7.1998 / 20:24:08 / cg" |
4844 |
4851 |
4845 self updateInfoLabel |
4852 self updateInfoLabel |
4846 ! |
4853 ! |
4847 |
4854 |
4848 doMagnifyUp |
4855 doMagnifyUp |
4849 "magnifies current image one step up" |
4856 "magnifies the current image one step up" |
4850 |
4857 |
4851 |magHolder mag| |
4858 |magHolder mag| |
4852 |
4859 |
4853 magHolder := self valueOfMagnification. |
4860 magHolder := self magnificationHolder. |
4854 (mag := magHolder value) < 99 ifTrue: [ |
4861 (mag := magHolder value) < 99 ifTrue: [ |
4855 magHolder value: mag + 1 |
4862 magHolder value: mag + 1 |
4856 ] |
4863 ] |
4857 |
4864 |
4858 "Modified: / 26.7.1998 / 20:23:52 / cg" |
4865 "Modified: / 26.7.1998 / 20:23:52 / cg" |