class: UIHelpTool
authorClaus Gittinger <cg@exept.de>
Tue, 04 Jun 2013 11:40:48 +0200
changeset 3010 12d3f7411fb6
parent 3009 d536eb743f2a
child 3011 ceaec66469ff
class: UIHelpTool changed: #loadFromClass:
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$'
 ! !
+