--- a/Scroller.st	Tue Feb 04 18:13:08 2014 +0100
+++ b/Scroller.st	Wed Feb 05 14:31:27 2014 +0100
@@ -21,7 +21,7 @@
 		ghostFrameColor ghostLevel rangeStart rangeEnd rangeStep entered
 		thumbActiveLevel originBeforeMove thumbImage enabled keyboardStep
 		autoRepeat repeatBlock initialRepeatDelay repeatDelay
-		lastMousePosition thumbActiveColor backgroundDrawHook'
+		lastMousePosition thumbActiveColor'
 	classVariableNames:'HandleShadowForm HandleLightForm DefaultViewBackground
 		DefaultShadowColor DefaultLightColor DefaultThumbColor
 		DefaultThumbShadowColor DefaultThumbLightColor
@@ -429,18 +429,6 @@
 
 !Scroller methodsFor:'accessing'!
 
-backgroundDrawHook
-    "if set, this action is allowed to draw the scrollbar's background"
-
-    ^ backgroundDrawHook
-!
-
-backgroundDrawHook:something
-    "if set, this action is allowed to draw the scrollbar's background"
-
-    backgroundDrawHook := something.
-!
-
 keyboardStep
     "return the scrollers keyboard step. If non-nil,
      thats the stepping value used with cursorUp/cursorDown keys.
@@ -1396,10 +1384,6 @@
         self clippingRectangle:(Rectangle left:x top:y width:w height:h).
         self clearDeviceRectangleX:x y:y width:w height:h.
 
-        backgroundDrawHook notNil ifTrue:[
-            backgroundDrawHook value:x value:y value:w value:h
-        ].
-
         styleSheet name == #winVista ifTrue:[
             self paint:(Color greyByte:16rE3).
             (orientation == #vertical) ifTrue:[
@@ -2768,10 +2752,10 @@
 !Scroller class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.201 2014-01-26 13:53:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.202 2014-02-05 13:31:27 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.201 2014-01-26 13:53:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.202 2014-02-05 13:31:27 cg Exp $'
 ! !