--- a/WindowGroup.st	Wed Apr 07 17:43:03 2004 +0200
+++ b/WindowGroup.st	Wed Apr 07 17:55:42 2004 +0200
@@ -1316,9 +1316,7 @@
 
             (views isNil and:[topViews isNil]) ifTrue:[
                 myProcess notNil ifTrue:[
-                    p := myProcess.
-                    myProcess := nil.
-                    p terminate.
+                    self shutDownProcess.
                     "not reached - there is no life after death"
                 ].
                 "
@@ -2738,7 +2736,7 @@
 !WindowGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.261 2004-04-07 15:43:03 werner Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.262 2004-04-07 15:55:42 werner Exp $'
 ! !
 
 WindowGroup initialize!

--- a/XWorkstation.st	Wed Apr 07 17:43:03 2004 +0200
+++ b/XWorkstation.st	Wed Apr 07 17:55:42 2004 +0200
@@ -786,6 +786,11 @@
     ^ displayName
 !
 
+displayName: something
+
+    displayName := something
+!
+
 protocolVersion
     "return the X-servers protocol version - should normally not be of
      any interest"
@@ -11493,7 +11498,7 @@
 !XWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.457 2004-03-30 13:59:06 mb Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.458 2004-04-07 15:55:17 werner Exp $'
 ! !
 
 XWorkstation initialize!