--- a/ObjectView.st	Fri May 08 11:25:59 2009 +0200
+++ b/ObjectView.st	Sun May 10 13:02:15 2009 +0200
@@ -1486,14 +1486,16 @@
 buttonPress:button x:x y:y
     "user pressed left button"
 
+    |sensor|
+
     ((button == 1) or:[button == #select]) ifTrue:[
         lastButt := x @ y.
         buttonPressTime := Timestamp now.
-
-        self sensor shiftDown ifTrue:[
+        sensor := self sensor.
+        sensor shiftDown ifTrue:[
             ^ self buttonShiftPress:button x:x y:y
         ].
-        self sensor ctrlDown ifTrue:[
+        sensor ctrlDown ifTrue:[
             ^ self buttonCtrlPress:button x:x y:y
         ].
 
@@ -1548,9 +1550,11 @@
 redrawX:x y:y width:w height:h
     |redrawFrame |
 
-    redrawFrame := Rectangle left:x top:y width:w height:h.
-    self clearRectangle:redrawFrame.
+"/    self clearRectangle:redrawFrame.
+    super redrawX:x y:y width:w height:h.
+
     ((contents size ~~ 0) or:[gridShown]) ifTrue:[
+        redrawFrame := Rectangle left:x top:y width:w height:h.
         self redrawObjectsInVisible:redrawFrame
     ]
 
@@ -3487,5 +3491,5 @@
 !ObjectView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.129 2009-02-26 21:22:33 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.130 2009-05-10 11:02:15 cg Exp $'
 ! !