--- a/Launcher.st Tue Oct 15 12:32:16 1996 +0200
+++ b/Launcher.st Tue Oct 15 13:54:10 1996 +0200
@@ -2158,6 +2158,43 @@
"Created: 12.5.1996 / 15:30:15 / cg"
!
+findAndRaiseWindow
+ |knownTopViews nameList box|
+
+ knownTopViews := IdentitySet new.
+ Screen allScreens do:[:aScreen |
+ aScreen knownViews do:[:aView |
+ aView notNil ifTrue:[
+ knownTopViews add:aView topView
+ ]
+ ]
+ ].
+
+ knownTopViews := knownTopViews select:[:aView | aView windowGroup notNil
+ and:[aView windowGroup isModal not]].
+
+ knownTopViews := knownTopViews asOrderedCollection.
+ knownTopViews sort:[:v1 :v2 | v1 label < v2 label].
+ nameList := knownTopViews collect:[:v | v label].
+
+ box := ListSelectionBox new.
+ box noEnterField.
+ box list:nameList.
+ box label:'view selection'.
+ box title:'select a view to raise deiconified:'.
+ box action:[:selection |
+ |v|
+
+ v := knownTopViews at:box selectionIndex.
+ v raiseDeiconified.
+ box destroy.
+ ].
+ box showAtPointer.
+
+ "Created: 15.10.1996 / 12:43:06 / cg"
+ "Modified: 15.10.1996 / 12:51:49 / cg"
+!
+
fullScreenHardcopy
"after a second (to allow redraw of views under menu ...),
save the contents of the whole screen."
@@ -3146,10 +3183,7 @@
'-'
'monitors'
'-'
- 'view tree (all views)'
- 'view tree'
- 'inspect view'
- 'destroy view'
+ 'views'
'-'
'hardcopy'
'-'
@@ -3160,10 +3194,7 @@
nil
#monitors
nil
- #startFullWindowTreeView
- #startWindowTreeView
- #viewInspect
- #viewDestroy
+ #views
nil
#hardcopy
nil
@@ -3193,6 +3224,26 @@
)
receiver:self).
+ m subMenuAt:#views
+ put:(PopUpMenu
+ labels:(resources array:#(
+ 'find & raise ...'
+ '-'
+ 'view tree (all views)'
+ 'view tree'
+ 'inspect view'
+ 'destroy view'
+ ))
+ selectors:#(
+ #findAndRaiseWindow
+ nil
+ #startFullWindowTreeView
+ #startWindowTreeView
+ #viewInspect
+ #viewDestroy
+ )
+ receiver:self).
+
m subMenuAt:#misc
put:(PopUpMenu
labels:(resources array:#(
@@ -3223,7 +3274,7 @@
)
receiver:self).
- "Modified: 12.5.1996 / 15:29:46 / cg"
+ "Modified: 15.10.1996 / 12:42:47 / cg"
!
setupTranscriptIn:aView
@@ -3495,5 +3546,5 @@
!Launcher class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.196 1996-10-14 18:44:45 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.197 1996-10-15 11:54:10 cg Exp $'
! !