--- a/FlyByHelp.st	Thu Jul 18 21:57:46 2019 +0200
+++ b/FlyByHelp.st	Fri Jul 19 11:53:07 2019 +0200
@@ -119,6 +119,8 @@
     |app helpText helpKey|
     
     app := aView topView application.
+    app isNil ifTrue:[ Transcript showCR:'no app for view: %1' with:aView. ^ self ].
+    
     app enqueueDelayedAction:[
         |editor m canDefineTranslationForLabel canDefineTranslationForHelpText|
 
@@ -130,6 +132,10 @@
 
         m := Menu new.
         m addItem:(MenuItem 
+            label:(('>> ',(aView fullName ? 'unnamed'),' <<') withColor:Color grey)).
+        m addSeparator.    
+            
+        m addItem:(MenuItem 
             label: 'Copy Helptext'
             itemValue:[
                 |package key |
@@ -215,6 +221,7 @@
     ].
 
     "Created: / 22-02-2019 / 09:32:35 / Claus Gittinger"
+    "Modified: / 19-07-2019 / 11:51:52 / Claus Gittinger"
 ! !
 
 !FlyByHelp methodsFor:'event handling'!
@@ -269,6 +276,11 @@
 !
 
 keyPress:key x:x y:y view:aView
+    "care for the special keys:
+        Ctrl (while help is shown)
+        L-Shift+R-Shift+Ctrl (while nothing is shown)
+    "
+    
     <resource: #keyboard (#Escape #Control #Shift)>
 
     |prevView text|
@@ -344,7 +356,7 @@
 
     "Modified (format): / 25-12-2011 / 10:25:23 / cg"
     "Modified (format): / 16-04-2018 / 16:53:15 / stefan"
-    "Modified (format): / 18-07-2019 / 21:53:26 / Claus Gittinger"
+    "Modified (comment): / 19-07-2019 / 11:43:52 / Claus Gittinger"
 !
 
 keyRelease:key x:x y:y view:aView