--- a/WGroup.st	Mon Apr 22 16:23:27 1996 +0200
+++ b/WGroup.st	Mon Apr 22 17:59:20 1996 +0200
@@ -510,18 +510,20 @@
     ]
 !
 
-shutdown
-    "shutdow the window group; close all views and
+shutDown
+    "shutdown the window group; close all views and
      terminate process"
 
     |p|
 
     self closeDownViews.
     myProcess notNil ifTrue:[
-	p := myProcess.
-	myProcess := nil.
-	p terminate.
+        p := myProcess.
+        myProcess := nil.
+        p terminate.
     ]
+
+    "Created: 22.4.1996 / 17:58:37 / cg"
 !
 
 startup:isRestart
@@ -1279,6 +1281,6 @@
 !WindowGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/WGroup.st,v 1.73 1996-04-13 20:30:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/WGroup.st,v 1.74 1996-04-22 15:59:20 cg Exp $'
 ! !
 WindowGroup initialize!

--- a/WindowGroup.st	Mon Apr 22 16:23:27 1996 +0200
+++ b/WindowGroup.st	Mon Apr 22 17:59:20 1996 +0200
@@ -510,18 +510,20 @@
     ]
 !
 
-shutdown
-    "shutdow the window group; close all views and
+shutDown
+    "shutdown the window group; close all views and
      terminate process"
 
     |p|
 
     self closeDownViews.
     myProcess notNil ifTrue:[
-	p := myProcess.
-	myProcess := nil.
-	p terminate.
+        p := myProcess.
+        myProcess := nil.
+        p terminate.
     ]
+
+    "Created: 22.4.1996 / 17:58:37 / cg"
 !
 
 startup:isRestart
@@ -1279,6 +1281,6 @@
 !WindowGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.73 1996-04-13 20:30:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.74 1996-04-22 15:59:20 cg Exp $'
 ! !
 WindowGroup initialize!