Stream.st
changeset 6314 e1aad938d629
parent 6313 30374121d853
child 6348 202f389800c7
equal deleted inserted replaced
6313:30374121d853 6314:e1aad938d629
    96 "/    StreamErrorSignal := ErrorSignal newSignalMayProceed:false.
    96 "/    StreamErrorSignal := ErrorSignal newSignalMayProceed:false.
    97 "/    StreamErrorSignal nameClass:self message:#streamErrorSignal.
    97 "/    StreamErrorSignal nameClass:self message:#streamErrorSignal.
    98     StreamErrorSignal := StreamError.
    98     StreamErrorSignal := StreamError.
    99     StreamErrorSignal notifierString:'Stream error'.
    99     StreamErrorSignal notifierString:'Stream error'.
   100 
   100 
   101 "/    PositionErrorSignal := StreamErrorSignal newSignalMayProceed:true.
   101     PositionErrorSignal := StreamErrorSignal newSignalMayProceed:true.
   102 "/    PositionErrorSignal nameClass:self message:#positionErrorSignal.
   102     PositionErrorSignal nameClass:self message:#positionErrorSignal.
   103     PositionErrorSignal := PositionOutOfBoundsError.
   103     PositionErrorSignal notifierString:'stream has no concept of a position'.
   104     PositionErrorSignal notifierString:'position out of bounds: '.
       
   105 
       
   106     "/ NotPositionableErrorSignal := PositionErrorSignal newSignalMayProceed:true.
       
   107     "/ NotPositionableErrorSignal nameClass:self message:#notPositionableErrorSignal.
       
   108     "/ NotPositionableErrorSignal notifierString:'stream has no concept of a position'.
       
   109 
   104 
   110     ReadErrorSignal := StreamErrorSignal newSignalMayProceed:true.
   105     ReadErrorSignal := StreamErrorSignal newSignalMayProceed:true.
   111     ReadErrorSignal nameClass:self message:#readErrorSignal.
   106     ReadErrorSignal nameClass:self message:#readErrorSignal.
   112     ReadErrorSignal notifierString:'read error'.
   107     ReadErrorSignal notifierString:'read error'.
   113 
   108 
  2238 ! !
  2233 ! !
  2239 
  2234 
  2240 !Stream class methodsFor:'documentation'!
  2235 !Stream class methodsFor:'documentation'!
  2241 
  2236 
  2242 version
  2237 version
  2243     ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.97 2001-12-13 18:53:43 cg Exp $'
  2238     ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.98 2001-12-13 19:00:23 cg Exp $'
  2244 ! !
  2239 ! !
  2245 Stream initialize!
  2240 Stream initialize!