equal
deleted
inserted
replaced
422 ! |
422 ! |
423 |
423 |
424 installHelpSpecInto:aClass |
424 installHelpSpecInto:aClass |
425 "install help text |
425 "install help text |
426 " |
426 " |
427 |cls src order| |
427 |cls src superHelpSpecKeys| |
428 |
428 |
429 cls := self applicationClassAssociatedWith:aClass. |
429 cls := self applicationClassAssociatedWith:aClass. |
430 |
430 |
431 cls isNil ifTrue:[ |
431 cls isNil ifTrue:[ |
432 ^ self information:'no application class defined'. |
432 ^ self information:'no application class defined'. |
433 ]. |
433 ]. |
434 dictionary isEmpty ifTrue:[ |
434 dictionary isEmpty ifTrue:[ |
435 ^ self information:'no help text defined' |
435 ^ self information:'no help text defined' |
436 ]. |
436 ]. |
|
437 |
|
438 superHelpSpecKeys := cls superclass helpSpec keys. |
|
439 |
437 src := '' writeStream. |
440 src := '' writeStream. |
438 |
441 |
439 src nextPutAll: |
442 src nextPutAll: |
440 |
443 |
441 'helpSpec |
444 'helpSpec |
448 |
451 |
449 ^ super helpSpec addPairsFrom:#( |
452 ^ super helpSpec addPairsFrom:#( |
450 |
453 |
451 '. |
454 '. |
452 |
455 |
453 order := dictionary keys asSortedCollection. |
456 (dictionary keys removeAll: superHelpSpecKeys; yourself) asSortedCollection |
454 order do:[:key | |
457 do:[:key | |
455 |txt t| |
458 |txt t| |
456 |
459 |
457 txt := dictionary at:key. |
460 txt := dictionary at:key. |
458 src nextPutLine:key storeString. |
461 src nextPutLine:key storeString. |
459 |
462 |