equal
deleted
inserted
replaced
426 isModified := true. |
426 isModified := true. |
427 |
427 |
428 listChgd ifTrue:[ |
428 listChgd ifTrue:[ |
429 self updateList |
429 self updateList |
430 ]. |
430 ]. |
431 modifiedHolder value:true |
431 modifiedHolder notNil ifTrue: [modifiedHolder value:true] |
432 ] |
432 ] |
433 ! |
433 ! |
434 |
434 |
435 installHelpSpecInto:aClass |
435 installHelpSpecInto:aClass |
436 "install help text |
436 "install help text |
437 " |
437 " |
438 |cls src superHelpSpecKeys| |
438 |cls src superHelpSpecKeys helpSpec| |
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!!'. |
445 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. |
450 |
451 dictionary isEmpty ifTrue:[ |
451 helpSpec := IdentityDictionary new. |
|
452 dictionary associationsDo: |
|
453 [:asso| |
|
454 (superHelpSpecKeys includes: asso key) ifFalse: [helpSpec at: asso key put: asso value] |
|
455 ]. |
|
456 helpSpec isEmpty ifTrue:[ |
452 ^nil |
457 ^nil |
453 ]. |
458 ]. |
454 |
459 |
455 src := '' writeStream. |
460 src := '' writeStream. |
456 |
461 |
466 |
471 |
467 ^ super helpSpec addPairsFrom:#( |
472 ^ super helpSpec addPairsFrom:#( |
468 |
473 |
469 '. |
474 '. |
470 |
475 |
471 dictionary asSortedCollection |
476 helpSpec keys asSortedCollection |
472 do:[:key | |
477 do:[:key | |
473 |txt t| |
478 |txt t| |
474 |
479 |
475 txt := dictionary at:key. |
480 txt := helpSpec at:key. |
476 src nextPutLine:key storeString. |
481 src nextPutLine:key storeString. |
477 |
482 |
478 t := txt asString replaceAll:(Character cr) with:(Character space). |
483 t := txt asString replaceAll:(Character cr) with:(Character space). |
479 |
484 |
480 (t endsWith:Character space) ifTrue:[ |
485 (t endsWith:Character space) ifTrue:[ |