equal
deleted
inserted
replaced
734 (aClass respondsTo: helpSpecSelector) ifTrue:[ |
734 (aClass respondsTo: helpSpecSelector) ifTrue:[ |
735 value := aClass perform: helpSpecSelector. |
735 value := aClass perform: helpSpecSelector. |
736 ]. |
736 ]. |
737 |
737 |
738 value notNil ifTrue:[ |
738 value notNil ifTrue:[ |
739 value keysAndValuesDo:[:k :v| |cval| |
739 (value isKindOf:Dictionary) ifTrue:[ |
740 cval := lastContents at:k ifAbsent:self. |
740 value keysAndValuesDo:[:k :v| |cval| |
741 cval = v ifFalse:[ root add:(KeyItem helpKey:k helpText:v) ]. |
741 cval := lastContents at:k ifAbsent:self. |
|
742 cval = v ifFalse:[ root add:(KeyItem helpKey:k helpText:v) ]. |
|
743 ]. |
|
744 lastContents := value. |
|
745 ] ifFalse:[ |
|
746 |dict| |
|
747 dict := Dictionary new. |
|
748 value pairWiseDo:[:k :v| |cval| |
|
749 cval := lastContents at:k ifAbsent:self. |
|
750 cval = v ifFalse:[ root add:(KeyItem helpKey:k helpText:v) ]. |
|
751 dict at:k put:v. |
|
752 ]. |
|
753 lastContents := dict. |
742 ]. |
754 ]. |
743 lastContents := value. |
|
744 ]. |
755 ]. |
745 root sort:[:a :b| a label < b label ]. |
756 root sort:[:a :b| a label < b label ]. |
746 root modified:false. |
757 root modified:false. |
747 list add:root. |
758 list add:root. |
748 ] |
759 ] |