3023 setValue: 0; |
3023 setValue: 0; |
3024 value: (listOfColors indexOf: imageEditView selectedColor). |
3024 value: (listOfColors indexOf: imageEditView selectedColor). |
3025 ! |
3025 ! |
3026 |
3026 |
3027 update:something with:aParameter from:changedObject |
3027 update:something with:aParameter from:changedObject |
3028 |clrIndex img clr changedColor| |
3028 |clrIndex img imagePreView clr changedColor| |
3029 |
3029 |
3030 img := self image. |
3030 img := self image. |
|
3031 imagePreView := self imagePreView. |
3031 |
3032 |
3032 changedObject == self tileModeHolder ifTrue:[ |
3033 changedObject == self tileModeHolder ifTrue:[ |
3033 self imagePreView |
3034 imagePreView |
3034 tileMode:(changedObject value) tileOffset:(img extent); |
3035 tileMode:(changedObject value) tileOffset:(img extent); |
3035 clear; |
3036 clear; |
3036 invalidate. |
3037 invalidate. |
3037 ^ self |
3038 ^ self |
3038 ]. |
3039 ]. |
3039 changedObject == self previewBackgroundColor ifTrue:[ |
3040 changedObject == self previewBackgroundColor ifTrue:[ |
3040 clr := changedObject value isNil |
3041 clr := changedObject value isNil |
3041 ifTrue:[imageEditView viewBackground] |
3042 ifTrue:[imageEditView viewBackground] |
3042 ifFalse:[Color perform:changedObject value]. |
3043 ifFalse:[Color perform:changedObject value]. |
3043 self imagePreView |
3044 imagePreView |
3044 viewBackground:clr; |
3045 viewBackground:clr; |
3045 clear; |
3046 clear; |
3046 invalidate. |
3047 invalidate. |
3047 ^ self |
3048 ^ self |
3048 ]. |
3049 ]. |
3078 something == #imageColors ifTrue:[ |
3079 something == #imageColors ifTrue:[ |
3079 self updateListOfColorsAndColormapMode. |
3080 self updateListOfColorsAndColormapMode. |
3080 ^ self. |
3081 ^ self. |
3081 ]. |
3082 ]. |
3082 something == #image ifTrue:[ |
3083 something == #image ifTrue:[ |
3083 self imagePreView image:img. |
3084 imagePreView image:img. |
3084 self updateListOfColorsAndColormapMode. |
3085 self updateListOfColorsAndColormapMode. |
3085 self tileModeHolder value ifTrue:[ |
3086 self tileModeHolder value ifTrue:[ |
3086 self imagePreView tileMode:true tileOffset:(img extent). |
3087 imagePreView tileMode:true tileOffset:(img extent). |
3087 ]. |
3088 ]. |
3088 ^ self. |
3089 ^ self. |
3089 ]. |
3090 ]. |
3090 something == #subImageIn ifTrue:[ |
3091 something == #subImageIn ifTrue:[ |
3091 self imagePreView image ~~ img ifTrue:[ |
3092 imagePreView image ~~ img ifTrue:[ |
3092 self error:'internal error' mayProceed:true. |
3093 self error:'internal error' mayProceed:true. |
3093 ]. |
3094 ]. |
3094 self tileModeHolder value ifTrue:[ |
3095 self tileModeHolder value ifTrue:[ |
3095 self imagePreView invalidate. |
3096 imagePreView invalidate. |
3096 ] ifFalse:[ |
3097 ] ifFalse:[ |
3097 self imagePreView invalidate:aParameter. |
3098 imagePreView invalidate:aParameter. |
3098 ]. |
3099 ]. |
3099 ^ self. |
3100 ^ self. |
3100 ]. |
3101 ]. |
3101 something == #selectedColor ifTrue:[ |
3102 something == #selectedColor ifTrue:[ |
3102 (aParameter isNil or:[aParameter = (Color colorId:0)]) ifTrue:[ |
3103 (aParameter isNil or:[aParameter = (Color colorId:0)]) ifTrue:[ |