equal
deleted
inserted
replaced
738 (aClass respondsTo: helpSpecSelector) ifTrue:[ |
738 (aClass respondsTo: helpSpecSelector) ifTrue:[ |
739 value := aClass perform: helpSpecSelector. |
739 value := aClass perform: helpSpecSelector. |
740 ]. |
740 ]. |
741 |
741 |
742 value notNil ifTrue:[ |
742 value notNil ifTrue:[ |
743 (value isKindOf:Dictionary) ifTrue:[ |
743 (value isDictionary) ifTrue:[ |
744 value keysAndValuesDo:[:k :v| |cval| |
744 value keysAndValuesDo:[:k :v| |cval| |
745 cval := lastContents at:k ifAbsent:self. |
745 cval := lastContents at:k ifAbsent:self. |
746 cval = v ifFalse:[ root add:(KeyItem helpKey:k helpText:v) ]. |
746 cval = v ifFalse:[ root add:(KeyItem helpKey:k helpText:v) ]. |
747 ]. |
747 ]. |
748 lastContents := value. |
748 lastContents := value. |
1465 ! |
1465 ! |
1466 |
1466 |
1467 version_CVS |
1467 version_CVS |
1468 ^ '$Header$' |
1468 ^ '$Header$' |
1469 ! ! |
1469 ! ! |
|
1470 |