CheckBox.st
changeset 284 8e6ed630468b
parent 282 95209b20eaca
child 299 740258e44b3c
equal deleted inserted replaced
283:7441b4d65776 284:8e6ed630468b
   552 
   552 
   553     "Created: 18.7.1996 / 11:57:01 / cg"
   553     "Created: 18.7.1996 / 11:57:01 / cg"
   554 !
   554 !
   555 
   555 
   556 initStyle
   556 initStyle
       
   557     "setup viewStyle specifics"
       
   558 
   557     super initStyle.
   559     super initStyle.
   558 
   560 
   559     DefaultLabelForegroundColor notNil ifTrue:[
   561     DefaultLabelForegroundColor notNil ifTrue:[
   560 	labelForegroundColor := DefaultLabelForegroundColor on:device.
   562         labelForegroundColor := DefaultLabelForegroundColor on:device.
   561     ].
   563     ].
   562     DefaultDisabledLabelForegroundColor notNil ifTrue:[
   564     DefaultDisabledLabelForegroundColor notNil ifTrue:[
   563 	disabledLabelForegroundColor := DefaultDisabledLabelForegroundColor on:device.
   565         disabledLabelForegroundColor := DefaultDisabledLabelForegroundColor on:device.
   564     ].
   566     ].
   565 
   567 
   566     "Created: 14.12.1995 / 14:50:03 / cg"
   568     "Created: 14.12.1995 / 14:50:03 / cg"
       
   569     "Modified: 22.1.1997 / 11:57:03 / cg"
   567 !
   570 !
   568 
   571 
   569 initialize
   572 initialize
   570     <resource: #style (#name)>
   573     <resource: #style (#name)>
   571 
   574 
   643 ! !
   646 ! !
   644 
   647 
   645 !CheckBox class methodsFor:'documentation'!
   648 !CheckBox class methodsFor:'documentation'!
   646 
   649 
   647 version
   650 version
   648     ^ '$Header: /cvs/stx/stx/libwidg2/CheckBox.st,v 1.36 1997-01-17 22:26:10 cg Exp $'
   651     ^ '$Header: /cvs/stx/stx/libwidg2/CheckBox.st,v 1.37 1997-01-22 17:17:59 cg Exp $'
   649 ! !
   652 ! !