--- a/Scroller.st	Sun Jan 10 18:02:40 1999 +0100
+++ b/Scroller.st	Tue Jan 19 16:39:01 1999 +0100
@@ -2067,12 +2067,18 @@
 updateBackground
     "make my background grey, whenever either readOnly or disable"
 
+    |bg|
+
     enabled ifFalse:[
-	self backgroundColor:View defaultViewBackgroundColor.
+        bg := View defaultViewBackgroundColor.
     ] ifTrue:[
-	self backgroundColor:DefaultViewBackground.
+        bg := DefaultViewBackground.
     ].
-    self invalidate
+
+    bg ~= viewBackground ifTrue:[
+        self backgroundColor:bg.
+        self invalidate
+    ]
 ! !
 
 !Scroller methodsFor:'private scrollbar & scrollview interface'!
@@ -2247,5 +2253,5 @@
 !Scroller class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.112 1998-11-11 15:23:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.113 1999-01-19 15:39:01 cg Exp $'
 ! !