UIHelpTool.st
changeset 454 8b016ffd83ce
parent 393 a824a3a9b834
child 456 e2bbb3f9c5fd
equal deleted inserted replaced
453:6fe8c481bab0 454:8b016ffd83ce
   414         dictionary at:key put:txt.
   414         dictionary at:key put:txt.
   415         isModified := true.
   415         isModified := true.
   416 
   416 
   417         listChgd ifTrue:[
   417         listChgd ifTrue:[
   418             self updateList
   418             self updateList
   419         ]
   419         ].
       
   420         modifiedHolder value:true
   420     ]
   421     ]
   421 !
   422 !
   422 
   423 
   423 installHelpSpecInto:aClass
   424 installHelpSpecInto:aClass
   424     "install help text
   425     "install help text
   573         view left ~~ 0 ifTrue:[
   574         view left ~~ 0 ifTrue:[
   574             (maxCharsPerLine := view extent x // view font width) < 10 ifTrue:[
   575             (maxCharsPerLine := view extent x // view font width) < 10 ifTrue:[
   575                 maxCharsPerLine := nil
   576                 maxCharsPerLine := nil
   576             ]
   577             ]
   577         ].
   578         ].
   578     ].
   579     ].       
   579     ^ view
   580     ^ view
   580 ! !
   581 ! !
   581 
   582 
   582 !UIHelpTool methodsFor:'queries'!
   583 !UIHelpTool methodsFor:'queries'!
   583 
   584