# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1370338848 -7200
# Node ID 12d3f7411fb6eb120558a750202972cb622885df
# Parent  d536eb743f2a343d714712d8b3d109eb8b02c3de
class: UIHelpTool
changed: #loadFromClass:

diff -r d536eb743f2a -r 12d3f7411fb6 UIHelpTool.st
--- a/UIHelpTool.st	Tue May 28 12:33:11 2013 +0200
+++ b/UIHelpTool.st	Tue Jun 04 11:40:48 2013 +0200
@@ -740,7 +740,7 @@
                 ].
 
                 value notNil ifTrue:[
-                    (value isKindOf:Dictionary) ifTrue:[
+                    (value isDictionary) ifTrue:[
                         value keysAndValuesDo:[:k :v| |cval|
                             cval := lastContents at:k ifAbsent:self.
                             cval = v ifFalse:[ root add:(KeyItem helpKey:k helpText:v) ].
@@ -1467,3 +1467,4 @@
 version_CVS
     ^ '$Header$'
 ! !
+