equal
deleted
inserted
replaced
493 ]. |
493 ]. |
494 ^ TAB |
494 ^ TAB |
495 ! ! |
495 ! ! |
496 |
496 |
497 |
497 |
498 |
|
499 !String class methodsFor:'queries'! |
498 !String class methodsFor:'queries'! |
500 |
499 |
501 defaultPlatformClass |
500 defaultPlatformClass |
502 "dummy for ST-80 compatibility" |
501 "dummy for ST-80 compatibility" |
503 |
502 |
512 |
511 |
513 ^ self == String |
512 ^ self == String |
514 |
513 |
515 "Modified: 23.4.1996 / 16:00:38 / cg" |
514 "Modified: 23.4.1996 / 16:00:38 / cg" |
516 ! ! |
515 ! ! |
517 |
|
518 |
516 |
519 !String methodsFor:'Compatibility-VW5.4'! |
517 !String methodsFor:'Compatibility-VW5.4'! |
520 |
518 |
521 asGUID |
519 asGUID |
522 "return self as a GUID (or UUID if not present)" |
520 "return self as a GUID (or UUID if not present)" |
2641 ^ self copyFrom:1 |
2639 ^ self copyFrom:1 |
2642 ]. |
2640 ]. |
2643 ^ super simpleDeepCopy |
2641 ^ super simpleDeepCopy |
2644 ! ! |
2642 ! ! |
2645 |
2643 |
2646 |
|
2647 !String methodsFor:'filling & replacing'! |
2644 !String methodsFor:'filling & replacing'! |
2648 |
2645 |
2649 atAllPut:aCharacter |
2646 atAllPut:aCharacter |
2650 "replace all elements with aCharacter |
2647 "replace all elements with aCharacter |
2651 - reimplemented here for speed" |
2648 - reimplemented here for speed" |
3062 This method does NOT (by purpose) use the stream classes and |
3059 This method does NOT (by purpose) use the stream classes and |
3063 will therefore work even in case of emergency (but only, if Stdout is nil)." |
3060 will therefore work even in case of emergency (but only, if Stdout is nil)." |
3064 |
3061 |
3065 %{ /* NOCONTEXT */ |
3062 %{ /* NOCONTEXT */ |
3066 |
3063 |
3067 if (__isStringLike(self) == String) { |
3064 if (__isStringLike(self)) { |
3068 if (@global(Stderr) == nil) { |
3065 if (@global(Stderr) == nil) { |
3069 console_fprintf(stderr, "%s\n" , __stringVal(self)); |
3066 console_fprintf(stderr, "%s\n" , __stringVal(self)); |
3070 console_fflush(stderr); |
3067 console_fflush(stderr); |
3071 RETURN (self); |
3068 RETURN (self); |
3072 } |
3069 } |
3858 ! ! |
3855 ! ! |
3859 |
3856 |
3860 !String class methodsFor:'documentation'! |
3857 !String class methodsFor:'documentation'! |
3861 |
3858 |
3862 version |
3859 version |
3863 ^ '$Header: /cvs/stx/stx/libbasic/String.st,v 1.290 2012-08-23 15:47:22 cg Exp $' |
3860 ^ '$Header: /cvs/stx/stx/libbasic/String.st,v 1.291 2012-09-14 13:31:18 stefan Exp $' |
3864 ! |
3861 ! |
3865 |
3862 |
3866 version_CVS |
3863 version_CVS |
3867 ^ '$Header: /cvs/stx/stx/libbasic/String.st,v 1.290 2012-08-23 15:47:22 cg Exp $' |
3864 ^ '$Header: /cvs/stx/stx/libbasic/String.st,v 1.291 2012-09-14 13:31:18 stefan Exp $' |
3868 ! ! |
3865 ! ! |