# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1036426057 -3600
# Node ID d88ec57772845b3a735d1505f959c75c4bec5745
# Parent  caa90f350d1884f622f67d6ec960a1741ddf711e
empty help string - add key anyway

diff -r caa90f350d18 -r d88ec5777284 UIHelpTool.st
--- a/UIHelpTool.st	Mon Nov 04 17:07:17 2002 +0100
+++ b/UIHelpTool.st	Mon Nov 04 17:07:37 2002 +0100
@@ -1127,12 +1127,14 @@
 
     |key txt|   
 
-    contentsModifiedChannel value ifFalse:[^ self].
-    contentsModifiedChannel value:false.
-
     key := self helpKey.
     key isNil ifTrue:[^ self].
 
+    contentsModifiedChannel value ifFalse:[
+        (dictionary includes:key) ifTrue:[^ self].   
+    ].
+    contentsModifiedChannel value:false.
+
     txt := editTextView contents ? ''.
     txt := txt asString.