UIHelpTool.st
changeset 479 83ebfc3320aa
parent 478 7ba29987cc0d
child 696 e91402372900
equal deleted inserted replaced
478:7ba29987cc0d 479:83ebfc3320aa
   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:[