--- a/WindowGroup.st	Wed Apr 22 12:58:29 1998 +0200
+++ b/WindowGroup.st	Wed Apr 22 14:55:06 1998 +0200
@@ -1565,20 +1565,20 @@
     "restore the original cursors in all of my views"
 
     self allViewsDo:[:aView |  
-	|c dev id cid|
+        |c dev id cid|
 
-	dev := aView graphicsDevice.
-	dev notNil ifTrue:[
-	    (id := aView id) notNil ifTrue:[
-		c := aView cursor onDevice:dev.
-		(cid := c id) notNil ifTrue:[
-		    dev setCursor:cid in:id.
-		]
-	    ]
-	]
+        dev := aView graphicsDevice.
+        dev notNil ifTrue:[
+            (id := aView id) notNil ifTrue:[
+                c := aView cursor onDevice:dev.
+                (cid := c id) notNil ifTrue:[
+                    dev setCursor:cid in:id.
+                ]
+            ]
+        ]
     ].
 
-    "Modified: 28.3.1997 / 13:48:51 / cg"
+    "Modified: / 22.4.1998 / 14:28:22 / cg"
 !
 
 showActivity:someMessage
@@ -1613,7 +1613,7 @@
         ]
     ].
 
-    "Modified: / 7.2.1998 / 13:49:36 / cg"
+    "Modified: / 22.4.1998 / 14:26:45 / cg"
 !
 
 withCursor:aCursor do:aBlock
@@ -1670,13 +1670,13 @@
                   ]
     ].
 
-    (self isModal and:[previousGroup notNil]) ifTrue:[
-        "/ pass the work to my parentGroup
-        ^ previousGroup withCursor:aCursor do:action
-    ].
+"/    (self isModal and:[previousGroup notNil]) ifTrue:[
+"/        "/ pass the work to my parentGroup
+"/        ^ previousGroup withCursor:aCursor do:action
+"/    ].
     ^ action value.
 
-    "Modified: / 19.1.1998 / 17:32:03 / cg"
+    "Modified: / 22.4.1998 / 14:36:47 / cg"
 !
 
 withWaitCursorDo:aBlock
@@ -1740,6 +1740,6 @@
 !WindowGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.132 1998-04-22 07:57:02 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.133 1998-04-22 12:55:06 cg Exp $'
 ! !
 WindowGroup initialize!