equal
deleted
inserted
replaced
440 cls := self applicationClassAssociatedWith:aClass. |
440 cls := self applicationClassAssociatedWith:aClass. |
441 |
441 |
442 cls isNil ifTrue:[ |
442 cls isNil ifTrue:[ |
443 ^ self information:'No application class defined!!'. |
443 ^ self information:'No application class defined!!'. |
444 ]. |
444 ]. |
445 dictionary isEmpty | isModified not ifTrue:[ |
445 isModified not ifTrue:[ |
446 ^nil |
446 ^nil |
447 ]. |
447 ]. |
448 |
448 |
449 superHelpSpecKeys := cls superclass helpSpec keys. |
449 superHelpSpecKeys := cls superclass helpSpec keys. |
|
450 dictionary := dictionary keys removeAll: superHelpSpecKeys; yourself. |
|
451 dictionary isEmpty ifTrue:[ |
|
452 ^nil |
|
453 ]. |
450 |
454 |
451 src := '' writeStream. |
455 src := '' writeStream. |
452 |
456 |
453 src nextPutAll: |
457 src nextPutAll: |
454 |
458 |
462 |
466 |
463 ^ super helpSpec addPairsFrom:#( |
467 ^ super helpSpec addPairsFrom:#( |
464 |
468 |
465 '. |
469 '. |
466 |
470 |
467 (dictionary keys removeAll: superHelpSpecKeys; yourself) asSortedCollection |
471 dictionary asSortedCollection |
468 do:[:key | |
472 do:[:key | |
469 |txt t| |
473 |txt t| |
470 |
474 |
471 txt := dictionary at:key. |
475 txt := dictionary at:key. |
472 src nextPutLine:key storeString. |
476 src nextPutLine:key storeString. |