equal
deleted
inserted
replaced
19 |
19 |
20 Symbol comment:' |
20 Symbol comment:' |
21 COPYRIGHT (c) 1988 by Claus Gittinger |
21 COPYRIGHT (c) 1988 by Claus Gittinger |
22 All Rights Reserved |
22 All Rights Reserved |
23 |
23 |
24 $Header: /cvs/stx/stx/libbasic/Symbol.st,v 1.12 1994-10-10 00:28:50 claus Exp $ |
24 $Header: /cvs/stx/stx/libbasic/Symbol.st,v 1.13 1994-10-28 01:32:25 claus Exp $ |
25 '! |
25 '! |
26 |
26 |
27 !Symbol class methodsFor:'documentation'! |
27 !Symbol class methodsFor:'documentation'! |
28 |
28 |
29 copyright |
29 copyright |
40 " |
40 " |
41 ! |
41 ! |
42 |
42 |
43 version |
43 version |
44 " |
44 " |
45 $Header: /cvs/stx/stx/libbasic/Symbol.st,v 1.12 1994-10-10 00:28:50 claus Exp $ |
45 $Header: /cvs/stx/stx/libbasic/Symbol.st,v 1.13 1994-10-28 01:32:25 claus Exp $ |
46 " |
46 " |
47 ! |
47 ! |
48 |
48 |
49 documentation |
49 documentation |
50 " |
50 " |
205 |
205 |
206 ^ self printString |
206 ^ self printString |
207 ! |
207 ! |
208 |
208 |
209 asSymbol |
209 asSymbol |
210 "I am a symbol - just return myself" |
210 "return the receiver as a symbol. |
|
211 SInce I am a symbol - just return myself" |
211 |
212 |
212 ^ self |
213 ^ self |
213 ! ! |
214 ! ! |
214 |
215 |
215 !Symbol methodsFor:'misc'! |
216 !Symbol methodsFor:'queries'! |
216 |
217 |
217 species |
218 species |
|
219 "when copying, or concatenating, return instances of this class" |
|
220 |
218 ^ String |
221 ^ String |
|
222 ! |
|
223 |
|
224 isSymbol |
|
225 "return true, if the receiver is some kind of symbol. |
|
226 Since I am a symbol, return always true" |
|
227 |
|
228 ^ true |
219 ! ! |
229 ! ! |
220 |
230 |
221 !Symbol methodsFor:'system primitives'! |
231 !Symbol methodsFor:'system primitives'! |
222 |
232 |
223 become:anotherObject |
233 become:anotherObject |