*** empty log message ***
authorpenk
Tue, 22 Oct 2002 11:11:25 +0200
changeset 4020 d1cfbddb1e5d
parent 4019 90ed6904d611
child 4021 201bd62a53f3
*** empty log message ***
FileApplicationNoteBook.st
--- a/FileApplicationNoteBook.st	Mon Oct 21 17:17:04 2002 +0200
+++ b/FileApplicationNoteBook.st	Tue Oct 22 11:11:25 2002 +0200
@@ -3068,15 +3068,19 @@
 !
 
 setupImageView
-    |img|
-
-    self window topView withWaitCursorDo:[
+    |img oldCursor|
+
+    [
+        oldCursor := imageView cursor .
+        imageView cursor:Cursor wait.
+        imageView.
         img := self image.
         img notNil ifTrue:[
             self image:img.
             imageView image:img
-        ]
-    ]
+        ].
+        imageView cursor:oldCursor.
+    ] fork
 ! !
 
 !FileApplicationNoteBook::ImageViewApplication methodsFor:'aspects'!
@@ -4511,5 +4515,5 @@
 !FileApplicationNoteBook class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.16 2002-10-21 15:09:42 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.17 2002-10-22 09:11:25 penk Exp $'
 ! !