ImageEditView.st
changeset 3696 a039bbaa6e83
parent 3643 b38da5f45af6
child 3706 e95e7f0e4f82
--- a/ImageEditView.st	Mon May 18 15:43:22 2009 +0200
+++ b/ImageEditView.st	Mon May 18 15:53:04 2009 +0200
@@ -883,7 +883,7 @@
 !
 
 copyAt: aPoint
-    |choosenBox r box copiedImage|
+    |choosenBox box copiedImage|
 
     choosenBox := self dragRectangleStartingAt: aPoint emphasis: #inverseFilledBox.
     choosenBox notNil ifTrue:[
@@ -892,8 +892,7 @@
 
         self class copyImageToClipboard:copiedImage.
 
-        r := (choosenBox expandedBy:1).
-        self redraw:r
+        self redraw:(choosenBox expandedBy:1)
     ]
 
     "Modified: / 21.8.1998 / 20:16:41 / cg"
@@ -1982,7 +1981,9 @@
             currentPoint ~= lastCurrentPoint ifTrue:[   
                 emphasis = #inverseFilledBox ifTrue: [
                     self redraw: ((firstPoint min: lastCurrentPoint) - 1 extent: (firstPoint - lastCurrentPoint) abs + 2).
-                    self xoring: [ self fillRectangle: ((firstPoint min: currentPoint) + margin extent: currentExtent - gridCorrection) ]
+                    self xoring: [ 
+                        self fillRectangle: ((firstPoint min: currentPoint) + margin extent: currentExtent - gridCorrection) 
+                    ]
                 ].
                 emphasis = #box ifTrue:[
                     |origin extent lineWidthY lineWidthX|
@@ -2593,7 +2594,7 @@
 !ImageEditView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ImageEditView.st,v 1.231 2009-02-26 21:25:23 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ImageEditView.st,v 1.232 2009-05-18 13:53:04 cg Exp $'
 ! !
 
 ImageEditView initialize!