resource spec updated; cache device form
authorClaus Gittinger <cg@exept.de>
Thu, 09 Jan 1997 12:52:16 +0100
changeset 273 01541272ce8d
parent 272 6c6466cd4ea1
child 274 92b51554b1d7
resource spec updated; cache device form
CheckBox.st
--- a/CheckBox.st	Sun Jan 05 01:22:04 1997 +0100
+++ b/CheckBox.st	Thu Jan 09 12:52:16 1997 +0100
@@ -19,7 +19,7 @@
 	category:'Views-Interactors'
 !
 
-!CheckBox  class methodsFor:'documentation'!
+!CheckBox class methodsFor:'documentation'!
 
 copyright
 "
@@ -246,7 +246,7 @@
 "
 ! !
 
-!CheckBox  class methodsFor:'instance creation'!
+!CheckBox class methodsFor:'instance creation'!
 
 label:aStringOrImage model:aModel
     "create & return a new checkBox, on aModel (typically a ValueHolder),
@@ -263,7 +263,7 @@
     ^ self new model:aModel
 ! !
 
-!CheckBox  class methodsFor:'defaults'!
+!CheckBox class methodsFor:'defaults'!
 
 updateStyleCache
     "extract values from the styleSheet and cache them in class variables"
@@ -567,6 +567,8 @@
 !
 
 initialize
+    <resource: #style (#name)>
+
     super initialize.
 
     borderWidth := 0.
@@ -578,7 +580,7 @@
 
     labelView := Label in:self.
     styleSheet name ~~ #motif ifTrue:[
-	labelView label:'check'; borderWidth:0.
+        labelView label:'check'; borderWidth:0.
     ].
     labelView forceResize.
     labelView adjust:#left.
@@ -601,7 +603,7 @@
      b open
     "
 
-    "Modified: 18.7.1996 / 12:05:10 / cg"
+    "Modified: 9.1.1997 / 10:56:50 / cg"
 ! !
 
 !CheckBox methodsFor:'private'!
@@ -639,8 +641,8 @@
     "Modified: 19.7.1996 / 20:43:47 / cg"
 ! !
 
-!CheckBox  class methodsFor:'documentation'!
+!CheckBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/CheckBox.st,v 1.34 1996-12-16 22:11:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/CheckBox.st,v 1.35 1997-01-09 11:52:16 cg Exp $'
 ! !