--- 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 $'
! !