Mercurial Mercurial > hg > stx-libtool2 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
empty help string - add key anyway
authorClaus Gittinger <cg@exept.de>
Mon, 04 Nov 2002 17:07:37 +0100
changeset 1648 d88ec5777284
parent 1647 caa90f350d18
child 1649 80586cf27eb8
empty help string - add key anyway
UIHelpTool.st file | annotate | diff | comparison | revisions 
--- 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.
hg/stx-libtool2