equal
deleted
inserted
replaced
505 |
505 |
506 isModified not ifTrue:[ |
506 isModified not ifTrue:[ |
507 ^nil |
507 ^nil |
508 ]. |
508 ]. |
509 |
509 |
510 helpSpec := dictionaries at: cls name ifAbsent: [dictionary]. |
510 helpSpec := dictionaries at: cls name |
|
511 ifAbsent: [aClass = cls name asString ifTrue: [dictionary] ifFalse: [Dictionary new]]. |
511 |
512 |
512 (cls class implements: #helpSpec) |
513 (cls class implements: #helpSpec) |
513 ifTrue: |
514 ifTrue: |
514 [ |
515 [ |
515 |superclassHelpKeys implementedHelpSpec hasChanged| |
516 |superclassHelpKeys implementedHelpSpec hasChanged| |