--- a/ImageEditView.st	Thu Sep 13 16:14:15 2001 +0200
+++ b/ImageEditView.st	Fri Sep 14 14:27:31 2001 +0200
@@ -741,7 +741,7 @@
 !
 
 drawCursorAt:aPoint
-    |clr imgPoint|
+    |clr imgPoint r g b|
 
     image isNil ifTrue: [
         self updateImageInfo: self imageInfoString. 
@@ -757,11 +757,15 @@
         self cursor:Cursor stop.
     ] ifTrue: [
         clr := image colorAt:imgPoint.
+        r := clr redByte.
+        g := clr greenByte.
+        b := clr blueByte.
         self updateImageInfo: imgPoint printString 
                         , ' (r:' 
-                        , clr redByte printString
-                        , ' g:' , clr greenByte printString
-                        , ' b:' , clr blueByte printString
+                        , r printString
+                        , ' g:' , g printString
+                        , ' b:' , b printString
+                        , ' #' , (r hexPrintString:2) , (g hexPrintString:2) , (b hexPrintString:2)
                         , ' pixel:' , (image pixelAt:imgPoint) printString
                         , ')'.
         self cursor:Cursor crossHair
@@ -951,6 +955,7 @@
 "/              , ' -> '
 "/              , (xMaxNew @ yMaxNew) printString.
 
+    self makeUndo.
     self 
         makeSubImageX:xMinNew y:yMinNew 
         width:(xMaxNew - xMinNew + 1)
@@ -1138,7 +1143,6 @@
     ].
 
     newImage copyFrom:image x:oldX y:oldY toX:0 y:0 width:newWidth height:newHeight.
-    self makeUndo.
     self image:newImage.
 
     "Created: / 7.9.1998 / 13:00:16 / cg"
@@ -2119,6 +2123,6 @@
 !ImageEditView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ImageEditView.st,v 1.150 2001-08-23 08:32:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ImageEditView.st,v 1.151 2001-09-14 12:27:31 cg Exp $'
 ! !
 ImageEditView initialize!