--- a/Scroller.st	Thu Dec 09 12:11:05 1999 +0100
+++ b/Scroller.st	Thu Dec 09 12:12:14 1999 +0100
@@ -290,7 +290,7 @@
     ((aDisplay == Display) and:[HandleLightForm notNil]) ifTrue:[
         ^ HandleLightForm
     ].
-    f := Smalltalk bitmapFromFileNamed:'HandleLight.xbm' forClass:self.
+    f := Smalltalk imageFromFileNamed:'HandleLight.xbm' forClass:self.
     f notNil ifTrue:[
         f := f onDevice:aDisplay
     ] ifFalse:[
@@ -321,7 +321,7 @@
     ((aDisplay == Display) and:[HandleShadowForm notNil]) ifTrue:[
         ^ HandleShadowForm
     ].
-    f := Smalltalk bitmapFromFileNamed:'HandleShadow.xbm' forClass:self.
+    f := Smalltalk imageFromFileNamed:'HandleShadow.xbm' forClass:self.
     f notNil ifTrue:[
         f := f onDevice:aDisplay
     ] ifFalse:[
@@ -2408,5 +2408,5 @@
 !Scroller class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.138 1999-12-01 20:29:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.139 1999-12-09 11:12:14 cg Exp $'
 ! !