--- a/WindowGroup.st	Sat Dec 16 18:44:01 1995 +0100
+++ b/WindowGroup.st	Sun Dec 17 15:46:27 1995 +0100
@@ -1036,7 +1036,7 @@
 
     dev := self device.
     dev isNil ifTrue:[
-	^ aBlock value
+        ^ aBlock value
     ].
 
     "
@@ -1044,22 +1044,28 @@
     "
     oldCursors := IdentityDictionary new.
     self allViewsDo:[:aView |
-	oldCursors at:aView put:(aView cursor).
-	aView cursor:aCursor now:false
+        oldCursors at:aView put:(aView cursor).
+        aView cursor:aCursor now:false
     ].
-    dev flush. "/sync.
+    "/
+    "/ here sync looks better; flush leads to almost invisible cursors when accepting.
+    "/ I dont really know why (maybe unix does not context-switch to the Xserver
+    "/ early enough after the requests have been sent ?)
+    "/
+"/    dev flush. 
+    dev sync.
 
     ^ aBlock valueNowOrOnUnwindDo:[
-	"
-	 restore cursors from the mapping
-	"
-	oldCursors keysAndValuesDo:[:view :cursor |
-	    view cursor:cursor now:false.
-	].
-	dev flush "/ sync.
+        "
+         restore cursors from the mapping
+        "
+        oldCursors keysAndValuesDo:[:view :cursor |
+            view cursor:cursor now:false.
+        ].
+        dev flush "/ sync.
     ]
 
-    "Modified: 14.12.1995 / 21:39:39 / cg"
+    "Modified: 17.12.1995 / 15:45:49 / cg"
 ! !
 
 !WindowGroup methodsFor:'special accessing'!
@@ -1095,6 +1101,6 @@
 !WindowGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.51 1995-12-16 17:44:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.52 1995-12-17 14:46:27 cg Exp $'
 ! !
 WindowGroup initialize!