changeset 3010 | 12d3f7411fb6 |
parent 2934 | c01fe2833468 |
child 3030 | c909ebfb2041 |
--- 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$' ! ! +