equal
deleted
inserted
replaced
128 Real symbols are only created with intern: or asSymbol." |
128 Real symbols are only created with intern: or asSymbol." |
129 |
129 |
130 ^ String new:size |
130 ^ String new:size |
131 ! ! |
131 ! ! |
132 |
132 |
133 !Symbol class methodsFor:'Compatibility-ST80'! |
133 |
134 |
|
135 tableSize |
|
136 "return the size of the systems symbol table" |
|
137 |
|
138 "/ claus: I dont know, if the returned value should be exact. |
|
139 "/ the number below is just arbitrary ... |
|
140 |
|
141 ^ 10000 |
|
142 |
|
143 "Created: 18.4.1997 / 20:52:20 / cg" |
|
144 ! ! |
|
145 |
134 |
146 |
135 |
147 !Symbol class methodsFor:'queries'! |
136 !Symbol class methodsFor:'queries'! |
148 |
137 |
149 findInterned:aString |
138 findInterned:aString |
247 "report an error if an interned symbol is about to be changed |
236 "report an error if an interned symbol is about to be changed |
248 - interned symbols may NOT be changed. |
237 - interned symbols may NOT be changed. |
249 For uninterned symbols, this is allowed." |
238 For uninterned symbols, this is allowed." |
250 |
239 |
251 self knownAsSymbol ifTrue:[ |
240 self knownAsSymbol ifTrue:[ |
252 self error:'interned symbols may not be changed'. |
241 self noModificationError. |
|
242 "Even if you hit continue - you cannot change symbols. |
|
243 Raise again non-resumable" |
|
244 NoModificationError raiseWith:self errorString:' - interned symbols cannot be changed'. |
253 ]. |
245 ]. |
254 " |
246 " |
255 uninterned - allow change |
247 uninterned - allow change |
256 " |
248 " |
257 ^ super basicAt:index put:something |
249 ^ super basicAt:index put:something |
794 ! ! |
786 ! ! |
795 |
787 |
796 !Symbol class methodsFor:'documentation'! |
788 !Symbol class methodsFor:'documentation'! |
797 |
789 |
798 version_CVS |
790 version_CVS |
799 ^ '$Header: /cvs/stx/stx/libbasic/Symbol.st,v 1.101 2013-01-16 11:01:26 stefan Exp $' |
791 ^ '$Header: /cvs/stx/stx/libbasic/Symbol.st,v 1.102 2013-07-15 10:32:42 stefan Exp $' |
800 ! |
792 ! |
801 |
793 |
802 version_SVN |
794 version_SVN |
803 ^ '§ Id: Symbol.st 10648 2011-06-23 15:55:10Z vranyj1 §' |
795 ^ '$ Id: Symbol.st 10648 2011-06-23 15:55:10Z vranyj1 $' |
804 ! ! |
796 ! ! |
805 |
797 |