--- a/FileApplicationNoteBook.st	Sat Mar 29 16:49:21 2003 +0100
+++ b/FileApplicationNoteBook.st	Sat Mar 29 16:50:26 2003 +0100
@@ -3389,17 +3389,16 @@
 !
 
 setupImageView
-    |img oldCursor|
-
     [
-        oldCursor := imageView cursor .
-        imageView cursor:Cursor wait.
-        img := self image.
-        img notNil ifTrue:[
-            self image:img.
-            imageView image:img
+        |img|
+
+        imageView withCursor:(Cursor wait) do:[
+            img := self image.
+            img notNil ifTrue:[
+                self image:img.
+                imageView image:img
+            ].
         ].
-        imageView cursor:oldCursor.
     ] fork.
 ! !
 
@@ -4929,5 +4928,5 @@
 !FileApplicationNoteBook class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.71 2003-03-21 10:48:15 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.72 2003-03-29 15:50:26 cg Exp $'
 ! !