--- a/ImageEditor.st Mon Mar 20 09:38:37 2006 +0100
+++ b/ImageEditor.st Mon Mar 20 22:29:49 2006 +0100
@@ -3025,12 +3025,13 @@
!
update:something with:aParameter from:changedObject
- |clrIndex img clr changedColor|
+ |clrIndex img imagePreView clr changedColor|
img := self image.
+ imagePreView := self imagePreView.
changedObject == self tileModeHolder ifTrue:[
- self imagePreView
+ imagePreView
tileMode:(changedObject value) tileOffset:(img extent);
clear;
invalidate.
@@ -3040,7 +3041,7 @@
clr := changedObject value isNil
ifTrue:[imageEditView viewBackground]
ifFalse:[Color perform:changedObject value].
- self imagePreView
+ imagePreView
viewBackground:clr;
clear;
invalidate.
@@ -3080,21 +3081,21 @@
^ self.
].
something == #image ifTrue:[
- self imagePreView image:img.
+ imagePreView image:img.
self updateListOfColorsAndColormapMode.
self tileModeHolder value ifTrue:[
- self imagePreView tileMode:true tileOffset:(img extent).
+ imagePreView tileMode:true tileOffset:(img extent).
].
^ self.
].
something == #subImageIn ifTrue:[
- self imagePreView image ~~ img ifTrue:[
+ imagePreView image ~~ img ifTrue:[
self error:'internal error' mayProceed:true.
].
self tileModeHolder value ifTrue:[
- self imagePreView invalidate.
+ imagePreView invalidate.
] ifFalse:[
- self imagePreView invalidate:aParameter.
+ imagePreView invalidate:aParameter.
].
^ self.
].
@@ -3118,7 +3119,7 @@
].
changedObject == imageEditView image ifTrue:[
- self halt:'to be implemented'.
+ "/ self halt:'to be implemented'.
^ self.
].