--- a/FlyByHelp.st	Fri Aug 23 20:20:05 2013 +0200
+++ b/FlyByHelp.st	Sat Aug 31 00:54:27 2013 +0200
@@ -95,12 +95,15 @@
 !
 
 keyPress:key x:x y:y view:aView
+    <resource: #keyboard (#Escape)>
+
     |prevView|
 
     currentHelpView notNil ifTrue:[
         key == $§ ifTrue:[
             "/ generate a line suitable for the resources file (a null translation)
-            "/ into the clipboard; makes it easy to add missing translations to a .rs file.
+            "/ into the clipboard; makes it easy to add missing translations to a .rs file,
+            "/ by pressing paragrapj whenever you see an untranslated helptext
             aView setClipboardText:(lastHelpText storeString , '    ' , lastHelpText storeString).
             self hideHelp.
             ^ true
@@ -111,6 +114,10 @@
             currentView := prevView.
             ^ true
         ].
+        (#('Shift' #'Shift_L' #'Shift_R') includes:key) ifTrue:[
+            "/ do not close on those...
+            ^ false
+        ].
     ].
 
     "/ hideHelp nils the currentView
@@ -410,10 +417,10 @@
 !FlyByHelp class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.53 2013-07-22 09:16:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.54 2013-08-30 22:54:27 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.53 2013-07-22 09:16:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.54 2013-08-30 22:54:27 cg Exp $'
 ! !