--- a/WindowGroup.st	Wed Jul 18 19:12:46 2012 +0200
+++ b/WindowGroup.st	Fri Jul 27 09:44:35 2012 +0200
@@ -2730,6 +2730,16 @@
     "Created: / 31.7.1998 / 20:11:52 / cg"
 !
 
+withReadCursorDo:aBlock
+    "evaluate aBlock while showing a readCursor in all
+     my views (used to show read-cursor while reading a file).
+     Return the result as returned by aBlock."
+
+    ^ self withCursor:(Cursor read) do:aBlock
+
+    "Created: / 27-07-2012 / 09:43:47 / cg"
+!
+
 withWaitCursorDo:aBlock
     "evaluate aBlock while showing a waitCursor in all
      my views (used to show wait-cursor while doing something time consuming).
@@ -2738,16 +2748,26 @@
     ^ self withCursor:(Cursor wait) do:aBlock
 
     "Created: 6.2.1996 / 19:51:53 / cg"
+!
+
+withWriteCursorDo:aBlock
+    "evaluate aBlock while showing a writeCursor in all
+     my views (used to show read-cursor while writing a file).
+     Return the result as returned by aBlock."
+
+    ^ self withCursor:(Cursor write) do:aBlock
+
+    "Created: / 27-07-2012 / 09:44:00 / cg"
 ! !
 
 !WindowGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.313 2012-07-17 08:45:07 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.314 2012-07-27 07:44:35 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.313 2012-07-17 08:45:07 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.314 2012-07-27 07:44:35 cg Exp $'
 ! !
 
 WindowGroup initialize!