UIHelpTool.st
changeset 3397 1009583a873c
parent 3392 ade42ddd74fe
child 3402 f5ef58c6082b
equal deleted inserted replaced
3396:efbf0e6f05b4 3397:1009583a873c
  1268 ! !
  1268 ! !
  1269 
  1269 
  1270 !UIHelpTool::ClassItem methodsFor:'instance creation'!
  1270 !UIHelpTool::ClassItem methodsFor:'instance creation'!
  1271 
  1271 
  1272 initialize
  1272 initialize
  1273     "setup defaults
  1273     "setup defaults"
  1274     "
  1274 
  1275     super initialize.
  1275     super initialize.
  1276 
  1276 
  1277     children   := OrderedCollection new.
  1277     children   := OrderedCollection new.
  1278     isExpanded := true.
  1278     isExpanded := true.
  1279     modified   := false.
  1279     modified   := false.
       
  1280 
       
  1281     "Modified: / 08-02-2017 / 01:02:14 / cg"
  1280 !
  1282 !
  1281 
  1283 
  1282 onClass:aClass
  1284 onClass:aClass
  1283     "the class the ys are assigned to; if the class is nil,
  1285     "the class the ys are assigned to; if the class is nil,
  1284      the class is not yet specified.
  1286      the class is not yet specified.
  1431     helpKey  := aKey asSymbol.
  1433     helpKey  := aKey asSymbol.
  1432     helpText := self formatText:aText.
  1434     helpText := self formatText:aText.
  1433 !
  1435 !
  1434 
  1436 
  1435 initialize
  1437 initialize
  1436     "setup defaults
  1438     "setup defaults"
  1437     "
  1439 
  1438     super initialize.
  1440     super initialize.
  1439     children := #().
  1441     children := #().
  1440     modified := false.
  1442     modified := false.
       
  1443 
       
  1444     "Modified: / 08-02-2017 / 01:01:49 / cg"
  1441 ! !
  1445 ! !
  1442 
  1446 
  1443 !UIHelpTool::KeyItem methodsFor:'private'!
  1447 !UIHelpTool::KeyItem methodsFor:'private'!
  1444 
  1448 
  1445 formatText:aText
  1449 formatText:aText