--- a/FlyByHelp.st	Thu Aug 01 01:52:38 2019 +0200
+++ b/FlyByHelp.st	Thu Aug 01 14:21:02 2019 +0200
@@ -169,7 +169,7 @@
         m addSeparator.
 
         m addItem:(MenuItem 
-            label: 'Edit Resources'
+            label: ('Edit Resources (of %1)' bindWith:((app ? aView) class package))
             itemValue:[ 
                 app enqueueDelayedAction:[
                     app withWaitCursorDo:[
@@ -220,7 +220,7 @@
 
         m addSeparator. 
         m addItem:(i := MenuItem 
-            label: 'Browse Application'
+            label:('Browse Application (%1)' bindWith:(viewsApp ? app) className)
             itemValue:[ SystemBrowser default openInClass:(viewsApp ? app) class]).
         i enabled:((viewsApp ? app) notNil).
 
@@ -237,7 +237,7 @@
         viewsApp ~~ app ifTrue:[    
             m addSeparator. 
             m addItem:(MenuItem 
-                label: 'Browse Top Application'
+                label:('Browse Top Application (%1)' bindWith:app className)
                 itemValue:[ SystemBrowser default openInClass:app class]).
 
             m addItem:(MenuItem 
@@ -248,8 +248,8 @@
         m addSeparator. 
         m addItem:(i := MenuItem label: 'Inspect Application' itemValue:[ app inspect ]).
         i enabled:(app notNil).
-        m addItem:(i := MenuItem label: 'Inspect View' itemValue:[ aView inspect ]).
-        m addItem:(i := MenuItem label: 'Inspect Model' itemValue:[ aView model inspect ]).
+        m addItem:(i := MenuItem label:('Inspect View (%1)' bindWith:aView className) itemValue:[ aView inspect ]).
+        m addItem:(i := MenuItem label:('Inspect Model (%1)' bindWith:aView model className) itemValue:[ aView model inspect ]).
         i enabled:(aView model notNil).
             
         menuItem notNil ifTrue:[
@@ -344,6 +344,12 @@
             ^ false
         ].
         (#(#'Control' #'Control_L' #'Control_R') includes:key) ifTrue:[
+            Smalltalk isStandAloneApp ifFalse:[
+                aView device shiftDown ifTrue:[
+                    self openDeveloperMenuFor:aView at:x@y.
+                    ^ false
+                ].
+            ].
             "/ reopen showing the key
             "/ Transcript show:'re initialize help: '; showCR:key.
             self initiateHelpFor:aView at:(x@y) now:true.
@@ -377,10 +383,20 @@
             (#(#'Control' #'Control_L' #'Control_R') includes:key) ifTrue:[
                 aView device leftShiftDown ifTrue:[
                     aView device rightShiftDown ifTrue:[
-                        self openDeveloperMenuFor:aView at:x@y
+                        self openDeveloperMenuFor:aView at:x@y.
+                        ^ false
                     ].
                 ].
-                ^ false
+            ].
+            (#('Shift' #'Shift_L' #'Shift_R' ) includes:key) ifTrue:[
+                aView device ctrlDown ifTrue:[
+                    aView device leftShiftDown ifTrue:[
+                        aView device rightShiftDown ifTrue:[
+                            self openDeveloperMenuFor:aView at:x@y.
+                            ^ false
+                        ].
+                    ].
+                ].
             ].
         ].    
     ].