st/WideString.st

   1
   2
   3 WideString method!
   4 at: anInteger
   5         <primitive: 'WideString_at'>
   6         anInteger isInteger
   7                 ifTrue: [self error: 'index out of bounds'].
   8         anInteger isNumber
   9                 ifTrue: [^ self at: anInteger asInteger]
  10                 ifFalse: [self error: 'index is not an integer']!
  11
  12 WideString method!
  13 at: anInteger put: aCharacter
  14         <primitive: 'WideString_at_put'>
  15         anInteger isInteger
  16                 ifTrue: [self error: 'index out of bounds'].
  17         anInteger isNumber
  18                 ifTrue: [^ self at: anInteger asInteger]
  19                 ifFalse: [self error: 'index is not an integer'].
  20         aCharacter isCharacter
  21                 ifFalse: [self error: 'object is not a character']!
  22
  23