--- a/NewLauncher.st Fri May 13 14:35:16 2016 +0200
+++ b/NewLauncher.st Fri May 13 14:36:06 2016 +0200
@@ -4224,12 +4224,14 @@
label := assoc key.
submenu := Menu new.
- submenu addItem:(MenuItem
+ submenu addItem:((MenuItem
label: 'Raise Deiconified'
- itemValue: [view raiseDeiconified; setForegroundWindow]).
- submenu addItem:(item := MenuItem
+ itemValue: [view raiseDeiconified; setForegroundWindow])
+ hideMenuOnActivated:false).
+ submenu addItem:((item := MenuItem
label: 'Iconify'
- itemValue: [view collapse]).
+ itemValue: [view collapse])
+ hideMenuOnActivated:false).
view topView isCollapsed ifTrue:[
item disable
].
@@ -4237,9 +4239,10 @@
label: 'Migrate...'
itemValue: [self migrateWindow:view]
enabled:(view windowGroup isModal not) ).
- submenu addItem:(MenuItem
+ submenu addItem:((MenuItem
label: 'Bring onto Screen...'
- itemValue: [self bringWindowOntoScreen:view] ).
+ itemValue: [self bringWindowOntoScreen:view] )
+ hideMenuOnActivated:false).
submenu addSeparator.
submenu addItem:(MenuItem
@@ -4265,9 +4268,10 @@
itemValue: [Debugger openOn:view windowGroup process] ).
submenu addSeparator.
- submenu addItem:(MenuItem
+ submenu addItem:((MenuItem
label: 'Close'
- itemValue: [view destroy] ).
+ itemValue: [view destroy] )
+ hideMenuOnActivated:false).
likeThis :=
allViewsAndLabels