--- a/UIHelpTool.st Tue Oct 16 09:09:12 2012 +0200
+++ b/UIHelpTool.st Thu Oct 18 13:10:18 2012 +0200
@@ -736,11 +736,22 @@
].
value notNil ifTrue:[
- value keysAndValuesDo:[:k :v| |cval|
- cval := lastContents at:k ifAbsent:self.
- cval = v ifFalse:[ root add:(KeyItem helpKey:k helpText:v) ].
+ (value isKindOf:Dictionary) ifTrue:[
+ value keysAndValuesDo:[:k :v| |cval|
+ cval := lastContents at:k ifAbsent:self.
+ cval = v ifFalse:[ root add:(KeyItem helpKey:k helpText:v) ].
+ ].
+ lastContents := value.
+ ] ifFalse:[
+ |dict|
+ dict := Dictionary new.
+ value pairWiseDo:[:k :v| |cval|
+ cval := lastContents at:k ifAbsent:self.
+ cval = v ifFalse:[ root add:(KeyItem helpKey:k helpText:v) ].
+ dict at:k put:v.
+ ].
+ lastContents := dict.
].
- lastContents := value.
].
root sort:[:a :b| a label < b label ].
root modified:false.