equal
deleted
inserted
replaced
2241 " |
2241 " |
2242 |
2242 |
2243 "Modified: / 18.6.1998 / 16:04:46 / cg" |
2243 "Modified: / 18.6.1998 / 16:04:46 / cg" |
2244 ! ! |
2244 ! ! |
2245 |
2245 |
|
2246 !CharacterArray methodsFor:'Compatibility - Squeak'! |
|
2247 |
|
2248 includesSubstring:aString caseSensitive:caseSensitive |
|
2249 "return true, if a substring is contained in the receiver. |
|
2250 The argument, caseSensitive controls if case is ignored in the compare." |
|
2251 |
|
2252 "/ for now, a q&d hack ... |
|
2253 |
|
2254 caseSensitive ifFalse:[ |
|
2255 ^ self asLowercase includesString:aString asLowercase |
|
2256 ]. |
|
2257 ^ self includesString:aString |
|
2258 |
|
2259 " |
|
2260 'hello world' includesSubstring:'Hel' caseSensitive:true |
|
2261 'hello world' includesSubstring:'Hel' caseSensitive:false |
|
2262 " |
|
2263 |
|
2264 |
|
2265 |
|
2266 ! ! |
|
2267 |
2246 !CharacterArray methodsFor:'Compatibility - V''Age'! |
2268 !CharacterArray methodsFor:'Compatibility - V''Age'! |
2247 |
2269 |
2248 addLineDelimiter |
2270 addLineDelimiter |
2249 "replace all '\'-characters by line delimiter (cr) - characters. |
2271 "replace all '\'-characters by line delimiter (cr) - characters. |
2250 This has been added for VisualAge compatibility." |
2272 This has been added for VisualAge compatibility." |
5327 ! ! |
5349 ! ! |
5328 |
5350 |
5329 !CharacterArray class methodsFor:'documentation'! |
5351 !CharacterArray class methodsFor:'documentation'! |
5330 |
5352 |
5331 version |
5353 version |
5332 ^ '$Header: /cvs/stx/stx/libbasic/Attic/CharArray.st,v 1.162 1999-07-15 13:34:07 cg Exp $' |
5354 ^ '$Header: /cvs/stx/stx/libbasic/Attic/CharArray.st,v 1.163 1999-07-19 17:32:35 cg Exp $' |
5333 ! ! |
5355 ! ! |
5334 CharacterArray initialize! |
5356 CharacterArray initialize! |