comment in: #keyPress:x:y:view:
authorClaus Gittinger <cg@exept.de>
Sun, 25 Dec 2011 10:25:41 +0100
changeset 2979 306456bdfb61
parent 2978 4358a9302b95
child 2980 b2a90134c2cd
comment in: #keyPress:x:y:view:
FlyByHelp.st
--- a/FlyByHelp.st	Sun Dec 25 10:23:49 2011 +0100
+++ b/FlyByHelp.st	Sun Dec 25 10:25:41 2011 +0100
@@ -91,22 +91,21 @@
 
 keyPress:key x:x y:y view:aView
     currentHelpView notNil ifTrue:[
-        "/ generate a line suitable for the resources file
         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.
             aView setClipboardText:(lastHelpText storeString , '    ' , lastHelpText storeString).
             self hideHelp.
             ^ true
         ].
-        true "aView == currentHelpView" ifTrue:[
-            key == #Escape ifTrue:[
-                self hideHelp.
-                ^ true
-            ].
+        key == #Escape ifTrue:[
+            self hideHelp.
+            ^ true
         ].
     ].
     ^ super keyPress:key x:x y:y view:aView
 
-    "Modified: / 13-07-2011 / 15:13:43 / cg"
+    "Modified (format): / 25-12-2011 / 10:25:23 / cg"
 !
 
 mouseWheelMotion:state x:x y:y amount:amount deltaTime:dTime view:aView
@@ -381,6 +380,10 @@
 
 !FlyByHelp class methodsFor:'documentation'!
 
+version
+    ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.51 2011-12-25 09:25:41 cg Exp $'
+!
+
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.50 2011-12-25 09:23:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.51 2011-12-25 09:25:41 cg Exp $'
 ! !