added windowTree on all views on all screens
authorClaus Gittinger <cg@exept.de>
Tue, 31 Aug 1999 12:57:27 +0200
changeset 2371 7ce8ba08aca1
parent 2370 453caa0c1907
child 2372 35004b0ee916
added windowTree on all views on all screens
AbstractLauncherApplication.st
NewLauncher.st
--- 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 $'
 ! !
--- a/NewLauncher.st	Tue Aug 31 00:19:17 1999 +0200
+++ b/NewLauncher.st	Tue Aug 31 12:57:27 1999 +0200
@@ -1095,6 +1095,12 @@
                   #argument: 'WindowTreeView'
                 )
                #(#MenuItem
+                  #label: 'View Tree (all on all screens)'
+                  #translateLabel: true
+                  #value: #startWindowTreeViewForAll
+                  #activeHelpKey: #windowsViewTree
+                )
+               #(#MenuItem
                   #label: '-'
                 )
                #(#MenuItem
@@ -2709,5 +2715,5 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.151 1999-08-19 12:45:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.152 1999-08-31 10:57:27 cg Exp $'
 ! !