equal
deleted
inserted
replaced
438 |cls src superHelpSpecKeys| |
438 |cls src superHelpSpecKeys| |
439 |
439 |
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 ifTrue:[ |
445 dictionary isEmpty | isModified not ifTrue:[ |
446 ^ self information:'no help text defined' |
446 ^nil |
447 ]. |
447 ]. |
448 |
448 |
449 superHelpSpecKeys := cls superclass helpSpec keys. |
449 superHelpSpecKeys := cls superclass helpSpec keys. |
450 |
450 |
451 src := '' writeStream. |
451 src := '' writeStream. |