#FEATURE by cg
authorClaus Gittinger <cg@exept.de>
Fri, 26 Jan 2018 10:45:18 +0100
changeset 4058 d1ad98047781
parent 4057 d5c48c56f434
child 4059 612726a08954
#FEATURE by cg class: ActiveHelp changed: #initiateHelpFor:at: ignore errors if standAloneApp
ActiveHelp.st
--- a/ActiveHelp.st	Wed Jan 24 21:31:28 2018 +0100
+++ b/ActiveHelp.st	Fri Jan 26 10:45:18 2018 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1995 by Claus Gittinger
 	      All Rights Reserved
@@ -712,7 +714,12 @@
      re-negotiation of the displayed helpText 
      (for example in a menu, when the selection changes)"
 
-    self initiateHelpFor:aView at:aPointOrNil now:false
+    "/ in standalone apps, it is better to simply not show the help
+    Error,BreakPointInterrupt handle:[:ex |
+        Smalltalk isStandAloneApp ifFalse:[ex reject].
+    ] do:[
+        self initiateHelpFor:aView at:aPointOrNil now:false
+    ].
 
     "Modified: 28.6.1997 / 14:45:57 / cg"
 !