#UI_ENHANCEMENT by cg
authorClaus Gittinger <cg@exept.de>
Fri, 13 May 2016 14:36:06 +0200
changeset 16575 75ddd50aad18
parent 16574 635deee55b29
child 16576 dec4e8eb5e7c
#UI_ENHANCEMENT by cg class: NewLauncher changed: #allWindowsMenu menu stays open for some operations, so we can deiconify/iconify/close multiple
NewLauncher.st
--- 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