equal
deleted
inserted
replaced
129 |
129 |
130 ^ String new:size |
130 ^ String new:size |
131 ! ! |
131 ! ! |
132 |
132 |
133 |
133 |
|
134 |
|
135 |
134 !Symbol class methodsFor:'queries'! |
136 !Symbol class methodsFor:'queries'! |
135 |
137 |
136 findInterned:aString |
138 findInterned:aString |
137 "for ST-80 compatibility - if the argument, aString is known |
139 "for ST-80 compatibility - if the argument, aString is known |
138 as Symbol, return this symbol. Otherwise return nil." |
140 as Symbol, return this symbol. Otherwise return nil." |
167 True returned here - there is only one of each symbol (per contents)." |
169 True returned here - there is only one of each symbol (per contents)." |
168 |
170 |
169 ^ true |
171 ^ true |
170 |
172 |
171 ! ! |
173 ! ! |
|
174 |
|
175 |
172 |
176 |
173 |
177 |
174 !Symbol methodsFor:'Compatibility-Squeak'! |
178 !Symbol methodsFor:'Compatibility-Squeak'! |
175 |
179 |
176 isUnary |
180 isUnary |
539 - reimplemented here since symbols are immutable." |
543 - reimplemented here since symbols are immutable." |
540 |
544 |
541 ^ self |
545 ^ self |
542 ! ! |
546 ! ! |
543 |
547 |
|
548 !Symbol methodsFor:'evaluation'! |
|
549 |
|
550 value: el |
|
551 "this is sent by collection enumeration methods, if a symbol is given instead of a block |
|
552 as loop-block argument" |
|
553 |
|
554 ^ el perform:self. |
|
555 |
|
556 " |
|
557 this allows us to say: |
|
558 |
|
559 #(1 2 3 4) do: #printCR |
|
560 #(1 -2 -3 4) collect: #abs |
|
561 " |
|
562 ! |
|
563 |
|
564 value: el value:arg |
|
565 "this is sent by collection enumeration methods, if a symbol is given instead of a block |
|
566 as loop-block argument" |
|
567 |
|
568 ^ el perform:self with:arg. |
|
569 |
|
570 " |
|
571 this allows us to say: |
|
572 |
|
573 #(1 2 3 4) with:#(10 20 30 40) collect: #+ |
|
574 " |
|
575 ! ! |
|
576 |
544 |
577 |
545 !Symbol methodsFor:'printing & storing'! |
578 !Symbol methodsFor:'printing & storing'! |
546 |
579 |
547 printOn:aStream |
580 printOn:aStream |
548 "append a user printed representation of the receiver to aStream. |
581 "append a user printed representation of the receiver to aStream. |
742 ! ! |
775 ! ! |
743 |
776 |
744 !Symbol class methodsFor:'documentation'! |
777 !Symbol class methodsFor:'documentation'! |
745 |
778 |
746 version_CVS |
779 version_CVS |
747 ^ '$Header: /cvs/stx/stx/libbasic/Symbol.st,v 1.103 2013-09-28 12:09:50 cg Exp $' |
780 ^ '$Header: /cvs/stx/stx/libbasic/Symbol.st,v 1.104 2014-02-25 16:48:03 cg Exp $' |
748 ! |
781 ! |
749 |
782 |
750 version_SVN |
783 version_SVN |
751 ^ '$ Id: Symbol.st 10648 2011-06-23 15:55:10Z vranyj1 $' |
784 ^ '$ Id: Symbol.st 10648 2011-06-23 15:55:10Z vranyj1 $' |
752 ! ! |
785 ! ! |