--- a/FlyByHelp.st Thu Oct 17 21:32:13 2019 +0200
+++ b/FlyByHelp.st Thu Oct 17 23:47:02 2019 +0200
@@ -341,19 +341,19 @@
with:currentHelpView) infoPrintCR.
].
- key == #Help ifTrue:[
- Error handle:[:ex |
- DebuggingEvents == true ifTrue:[
- ex description infoPrintCR.
- ]
- ] do:[
- DebuggingEvents == true ifTrue:[
- 'open help...' infoPrintCR.
- ].
- aView openDocumentation.
- ^ false
- ].
- ].
+"/ key == #Help ifTrue:[
+"/ Error handle:[:ex |
+"/ DebuggingEvents == true ifTrue:[
+"/ ex description infoPrintCR.
+"/ ]
+"/ ] do:[
+"/ DebuggingEvents == true ifTrue:[
+"/ 'open help...' infoPrintCR.
+"/ ].
+"/ aView openDocumentation.
+"/ ^ false
+"/ ].
+"/ ].
currentHelpView notNil ifTrue:[
"/ Transcript show:'with help view shown: '; showCR:key.