--- a/SimpleView.st	Thu Dec 19 14:51:31 1996 +0100
+++ b/SimpleView.st	Thu Dec 19 14:53:07 1996 +0100
@@ -3162,55 +3162,57 @@
 
     ok := true.
     bitmaps := #('wheel1' 'wheel2' 'wheel3' 'wheel4') 
-	       collect:[:name |
-		   |f|
-
-		   f := Form fromFile:(name , '.xbm').
-		   f isNil ifTrue:[
-			('no bitmap file: ' , name , '.xbm') errorPrintNL.
-			ok := false
-		   ].
-		   f
-	       ].
-
-    mask := Form fromFile:'wheelm.xbm'.
+               collect:[:name |
+                   |f|
+
+                   f := Image fromFile:('bitmaps/' , name , '.xbm').
+                   f isNil ifTrue:[
+                        ('no bitmap file: ' , name , '.xbm') errorPrintNL.
+                        ok := false
+                   ].
+                   f
+               ].
+
+    mask := Image fromFile:'bitmaps/wheelm.xbm'.
     mask isNil ifTrue:[
-	('no bitmap file: ' , mask , '.xbm') errorPrintNL.
-	ok := false
+        ('no bitmap file: wheelm.xbm') errorPrintNL.
+        ok := false
     ].
 
     ok ifFalse:[
-	self cursor:Cursor wait.
-	aBlock valueNowOrOnUnwindDo:[
-	    self cursor:oldCursor
-	]
+        self cursor:Cursor wait.
+        aBlock valueNowOrOnUnwindDo:[
+            self cursor:oldCursor
+        ]
     ] ifTrue:[
-	cursors := bitmaps collect:[:form | (Cursor sourceForm:form
-						      maskForm:mask
-							  hotX:8
-							  hotY:8) on:device].
-
-	process := [
-		    Delay waitForSeconds:0.25.
-		    [true] whileTrue:[
-			cursors do:[:curs |
-			    self cursor:curs.
-			    Delay waitForSeconds:0.05
-			]
-		    ]
-		   ] fork.
-
-	Processor activeProcess priority:7.
-	aBlock valueNowOrOnUnwindDo:[
-	    Processor activeProcess priority:8.
-	    process terminate.
-	    self cursor:oldCursor
-	]
+        cursors := bitmaps collect:[:form | (Cursor sourceForm:form
+                                                      maskForm:mask
+                                                          hotX:8
+                                                          hotY:8) on:device].
+
+        process := [
+                    Delay waitForSeconds:0.25.
+                    [true] whileTrue:[
+                        cursors do:[:curs |
+                            self cursor:curs.
+                            Delay waitForSeconds:0.05
+                        ]
+                    ]
+                   ] fork.
+
+        Processor activeProcess priority:7.
+        aBlock valueNowOrOnUnwindDo:[
+            Processor activeProcess priority:8.
+            process terminate.
+            self cursor:oldCursor
+        ]
     ].
 
     "
      View new realize showBusyWhile:[10 timesRepeat:[3000 factorial]]
     "
+
+    "Modified: 19.12.1996 / 13:54:49 / cg"
 ! !
 
 !SimpleView methodsFor:'edge drawing'!
@@ -6475,6 +6477,6 @@
 !SimpleView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.148 1996-11-09 18:24:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.149 1996-12-19 13:53:07 cg Exp $'
 ! !
 SimpleView initialize!