equal
deleted
inserted
replaced
7 inclusion of the above copyright notice. This software may not |
7 inclusion of the above copyright notice. This software may not |
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
|
12 |
|
13 "{ Package: 'stx:libbasic2' }" |
12 |
14 |
13 CharacterArray variableWordSubclass:#TwoByteString |
15 CharacterArray variableWordSubclass:#TwoByteString |
14 instanceVariableNames:'' |
16 instanceVariableNames:'' |
15 classVariableNames:'' |
17 classVariableNames:'' |
16 poolDictionaries:'' |
18 poolDictionaries:'' |
88 basicAt:index put:aCharacter |
90 basicAt:index put:aCharacter |
89 "store the argument, aCharacter at position index, an Integer. |
91 "store the argument, aCharacter at position index, an Integer. |
90 Returns aCharacter (sigh). |
92 Returns aCharacter (sigh). |
91 - reimplemented here since we store 16-bit characters" |
93 - reimplemented here since we store 16-bit characters" |
92 |
94 |
93 |val| |
95 super basicAt:index put:aCharacter codePoint. |
94 |
|
95 val := aCharacter asciiValue. |
|
96 super basicAt:index put:val. |
|
97 ^ aCharacter |
96 ^ aCharacter |
98 |
97 |
99 "Modified: 19.4.1996 / 11:16:22 / cg" |
98 "Modified: 19.4.1996 / 11:16:22 / cg" |
100 ! ! |
99 ! ! |
101 |
100 |
111 ! ! |
110 ! ! |
112 |
111 |
113 !TwoByteString class methodsFor:'documentation'! |
112 !TwoByteString class methodsFor:'documentation'! |
114 |
113 |
115 version |
114 version |
116 ^ '$Header: /cvs/stx/stx/libbasic/TwoByteString.st,v 1.30 2000-12-19 08:45:13 cg Exp $' |
115 ^ '$Header: /cvs/stx/stx/libbasic/TwoByteString.st,v 1.31 2004-03-05 19:04:38 stefan Exp $' |
117 ! ! |
116 ! ! |
|
117 |
118 TwoByteString initialize! |
118 TwoByteString initialize! |