--- a/Scroller.st	Sun Feb 12 13:00:01 2017 +0100
+++ b/Scroller.st	Sun Feb 12 14:41:48 2017 +0100
@@ -1437,7 +1437,8 @@
     shown ifTrue:[
         oldClip := self clippingBoundsOrNil.
         self clippingBounds:(Rectangle left:x top:y width:w height:h).
-        gc clearDeviceRectangleX:x y:y width:w height:h.
+        "/ don't do this via gc - might have a viewBackground
+        self clearDeviceRectangleX:x y:y width:w height:h.
 
         styleSheet name == #winVista ifTrue:[
             gc paint:(Color greyByte:16rE3).
@@ -1477,7 +1478,7 @@
         self clippingBounds:oldClip
     ]
 
-    "Modified: / 4.5.1999 / 18:51:53 / cg"
+    "Modified (comment): / 12-02-2017 / 14:41:10 / cg"
 ! !
 
 !Scroller methodsFor:'event handling'!
@@ -2600,7 +2601,7 @@
 !
 
 updateBackground
-    "make my background grey, whenever either readOnly or disable"
+    "make my background grey, whenever disabled"
 
     |bg|
 
@@ -2616,6 +2617,7 @@
         self invalidate
     ]
 
+    "Modified (comment): / 12-02-2017 / 14:38:38 / cg"
 ! !
 
 !Scroller methodsFor:'private-scrollbar & scrollview interface'!