--- a/WindowGroup.st	Fri Aug 02 13:57:28 2002 +0200
+++ b/WindowGroup.st	Fri Aug 02 15:55:47 2002 +0200
@@ -591,6 +591,7 @@
 sensor:aSensor
     "set the windowGroups sensor"
 
+self obsoleteMethodWarning.
     mySensor := aSensor
 ! !
 
@@ -2215,6 +2216,10 @@
 
 !WindowGroup methodsFor:'initialization'!
 
+beSynchronous
+    mySensor := SynchronousWindowSensor new.
+!
+
 initialize
     "setup the windowgroup, by creating a new sensor
      and an event semaphore"
@@ -2232,17 +2237,17 @@
 
     "throw away old (zombie) process"
     myProcess notNil ifTrue:[
-	"/ careful: the old processes exit-actions must be cleared.
-	"/ otherwise, it might do destroy or other actions when it
-	"/ gets finalized ...
+        "/ careful: the old processes exit-actions must be cleared.
+        "/ otherwise, it might do destroy or other actions when it
+        "/ gets finalized ...
 
 "/        myProcess removeAllExitActions.
-	myProcess removeAllSuspendActions.
-	myProcess := nil.
+        myProcess removeAllSuspendActions.
+        myProcess := nil.
     ].
 
     "throw away old events"
-    mySensor reinitialize
+    mySensor notNil ifTrue:[mySensor reinitialize]
 
     "Modified: 13.12.1995 / 13:45:35 / stefan"
     "Modified: 12.1.1997 / 00:45:01 / cg"
@@ -2666,6 +2671,6 @@
 !WindowGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.244 2002-08-02 11:56:18 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.245 2002-08-02 13:55:47 penk Exp $'
 ! !
 WindowGroup initialize!