Unicode16String.st
changeset 14558 b168e9f03911
parent 14124 27e2ee113f53
child 14605 90d502689de9
equal deleted inserted replaced
14557:427740fc4329 14558:b168e9f03911
    57 
    57 
    58     "Created: 30.6.1997 / 15:35:52 / cg"
    58     "Created: 30.6.1997 / 15:35:52 / cg"
    59     "Modified: 30.6.1997 / 15:39:21 / cg"
    59     "Modified: 30.6.1997 / 15:39:21 / cg"
    60 ! !
    60 ! !
    61 
    61 
       
    62 
    62 !Unicode16String class methodsFor:'reading'!
    63 !Unicode16String class methodsFor:'reading'!
    63 
    64 
    64 readFrom:aStreamOrString onError:exceptionBlock
    65 readFrom:aStreamOrString onError:exceptionBlock
    65     "read & return the next String from the (character-)stream aStream;
    66     "read & return the next String from the (character-)stream aStream;
    66      skipping all whitespace first; return the value of exceptionBlock,
    67      skipping all whitespace first; return the value of exceptionBlock,
   121 
   122 
   122 displayOn:aGCOrStream
   123 displayOn:aGCOrStream
   123     "display myself as on aStream.
   124     "display myself as on aStream.
   124      You must use an ISO10646 unicode font to display this string"
   125      You must use an ISO10646 unicode font to display this string"
   125 
   126 
   126     (aGCOrStream isStream or:[aGCOrStream == Transcript]) ifTrue:[
   127     aGCOrStream isStream ifTrue:[
   127         aGCOrStream
   128         aGCOrStream
   128             nextPut:$';
   129             nextPut:$';
   129             nextPutAllUnicode:self;
   130             nextPutAllUnicode:self;
   130             nextPut:$'.
   131             nextPut:$'.
   131         ^ self
   132         ^ self
   207 
   208 
   208 
   209 
   209 !Unicode16String class methodsFor:'documentation'!
   210 !Unicode16String class methodsFor:'documentation'!
   210 
   211 
   211 version
   212 version
   212     ^ '$Header: /cvs/stx/stx/libbasic/Unicode16String.st,v 1.19 2012-04-24 14:56:53 stefan Exp $'
   213     ^ '$Header: /cvs/stx/stx/libbasic/Unicode16String.st,v 1.20 2012-12-12 22:56:32 stefan Exp $'
   213 !
   214 !
   214 
   215 
   215 version_CVS
   216 version_CVS
   216     ^ '$Header: /cvs/stx/stx/libbasic/Unicode16String.st,v 1.19 2012-04-24 14:56:53 stefan Exp $'
   217     ^ '$Header: /cvs/stx/stx/libbasic/Unicode16String.st,v 1.20 2012-12-12 22:56:32 stefan Exp $'
   217 ! !
   218 ! !
   218 
   219 
   219 Unicode16String initialize!
   220 Unicode16String initialize!