diff -r 963dc303b753 -r d87c43b66d97 Scroller.st
--- a/Scroller.st	Thu Dec 19 14:38:46 1996 +0100
+++ b/Scroller.st	Thu Dec 19 14:47:18 1996 +0100
@@ -33,7 +33,7 @@
 	category:'Views-Interactors'
 !
 
-!Scroller  class methodsFor:'documentation'!
+!Scroller class methodsFor:'documentation'!
 
 copyright
 "
@@ -271,7 +271,7 @@
 "
 ! !
 
-!Scroller  class methodsFor:'defaults'!
+!Scroller class methodsFor:'defaults'!
 
 handleLightFormOn:aDisplay
     "answer the form used for the handles light area;
@@ -280,24 +280,26 @@
     |f|
 
     ((aDisplay == Display) and:[HandleLightForm notNil]) ifTrue:[
-	^ HandleLightForm
+        ^ HandleLightForm
     ].
-    f := Form fromFile:'HandleLight.xbm' resolution:100 on:aDisplay.
+    f := Image fromFile:'bitmaps/HandleLight.xbm' resolution:100 on:aDisplay.
     f isNil ifTrue:[
-	f := Form width:8 height:8 fromArray:#[2r00000000
-					       2r00000010
-					       2r00000011
-					       2r00000011
-					       2r00000011
-					       2r00000011
-					       2r00000110
-					       2r00111100]
-					      on:aDisplay
+        f := Form width:8 height:8 fromArray:#[2r00000000
+                                               2r00000010
+                                               2r00000011
+                                               2r00000011
+                                               2r00000011
+                                               2r00000011
+                                               2r00000110
+                                               2r00111100]
+                                              on:aDisplay
     ].
     (aDisplay == Display) ifTrue:[
-	HandleLightForm := f
+        HandleLightForm := f
     ].
     ^ f
+
+    "Modified: 23.10.2031 / 01:00:00 / cg"
 !
 
 handleShadowFormOn:aDisplay
@@ -307,24 +309,26 @@
     |f|
 
     ((aDisplay == Display) and:[HandleShadowForm notNil]) ifTrue:[
-	^ HandleShadowForm
+        ^ HandleShadowForm
     ].
-    f := Form fromFile:'HandleShadow.xbm' resolution:100 on:aDisplay.
+    f := Image fromFile:'bitmaps/HandleShadow.xbm' resolution:100 on:aDisplay.
     f isNil ifTrue:[
-	f := Form width:8 height:8 fromArray:#[2r00111100
-					       2r01100000
-					       2r11000000
-					       2r11000000
-					       2r11000000
-					       2r11000000
-					       2r01000000
-					       2r00000000]
-					   on:aDisplay
+        f := Form width:8 height:8 fromArray:#[2r00111100
+                                               2r01100000
+                                               2r11000000
+                                               2r11000000
+                                               2r11000000
+                                               2r11000000
+                                               2r01000000
+                                               2r00000000]
+                                           on:aDisplay
     ].
     (aDisplay == Display) ifTrue:[
-	HandleShadowForm := f
+        HandleShadowForm := f
     ].
     ^ f
+
+    "Modified: 19.12.1996 / 01:00:00 / cg"
 !
 
 updateStyleCache
@@ -1809,8 +1813,8 @@
     "Modified: 19.7.1996 / 20:45:35 / cg"
 ! !
 
-!Scroller  class methodsFor:'documentation'!
+!Scroller class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.65 1996-08-01 16:21:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Scroller.st,v 1.66 1996-12-19 13:47:18 cg Exp $'
 ! !