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