--- a/AbstractLauncherApplication.st	Tue Aug 31 00:19:17 1999 +0200
+++ b/AbstractLauncherApplication.st	Tue Aug 31 12:57:27 1999 +0200
@@ -1201,21 +1201,34 @@
 !
 
 startWindowTreeView
-    "open a windowTree view (on a topView)"
+    "open a windowTree (on a picked topView)"
 
     |v|
 
     WindowTreeView isNil ifTrue:[
-	^ self warn:'The WindowTreeView is not available in this release.'
+        ^ self warn:'The WindowTreeView is not available in this release.'
     ].
 
     v := self pickAView.
     v notNil ifTrue:[
-	WindowTreeView openOn:v topView
+        WindowTreeView openOn:v topView
     ]
 
 !
 
+startWindowTreeViewForAll
+    "open a windowTree on all views in the system"
+
+    |v|
+
+    WindowTreeView isNil ifTrue:[
+        ^ self warn:'The WindowTreeView is not available in this release.'
+    ].
+
+    WindowTreeView openOnAll
+
+!
+
 viewDestroy
     "let user pick a view and destroy it.
      Even allow destroying non-smalltalk views
@@ -4787,5 +4800,5 @@
 !AbstractLauncherApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.78 1999-08-25 16:01:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.79 1999-08-31 10:56:44 cg Exp $'
 ! !