equal
deleted
inserted
replaced
53 [author:] |
53 [author:] |
54 Claus Gittinger |
54 Claus Gittinger |
55 " |
55 " |
56 ! ! |
56 ! ! |
57 |
57 |
|
58 |
58 !True methodsFor:'conditional evaluation'! |
59 !True methodsFor:'conditional evaluation'! |
59 |
60 |
60 and:aBlock |
61 and:aBlock |
61 "evaluate aBlock if the receiver is true. |
62 "evaluate aBlock if the receiver is true. |
62 since the receiver is known to be true, |
63 since the receiver is known to be true, |
115 |
116 |
116 ^ self |
117 ^ self |
117 ! ! |
118 ! ! |
118 |
119 |
119 !True methodsFor:'converting'! |
120 !True methodsFor:'converting'! |
|
121 |
|
122 asInteger |
|
123 "false->0; true->1" |
|
124 |
|
125 ^ 1 |
|
126 ! |
120 |
127 |
121 asNumber |
128 asNumber |
122 "false->0; true->1" |
129 "false->0; true->1" |
123 |
130 |
124 ^ 1 |
131 ^ 1 |
187 ! ! |
194 ! ! |
188 |
195 |
189 !True class methodsFor:'documentation'! |
196 !True class methodsFor:'documentation'! |
190 |
197 |
191 version |
198 version |
192 ^ '$Header: /cvs/stx/stx/libbasic/True.st,v 1.25 2007-12-19 14:33:28 cg Exp $' |
199 ^ '$Header: /cvs/stx/stx/libbasic/True.st,v 1.26 2009-06-11 15:31:18 cg Exp $' |
193 ! ! |
200 ! ! |