--- 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 $'
! !