FlyByHelp.st
changeset 4372 64e5908a7478
parent 4370 38e83293bcad
child 4379 0d9f544dd9c8
--- 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.