ExternalStream.st
changeset 8008 e80739d6c312
parent 8007 adfabcb563e0
child 8066 0dbcbe8989b8
equal deleted inserted replaced
8007:adfabcb563e0 8008:e80739d6c312
  2249     "{ Pragma: +optSpace }"
  2249     "{ Pragma: +optSpace }"
  2250 
  2250 
  2251     "/ for backward compatibility, use:
  2251     "/ for backward compatibility, use:
  2252     "/ self class openErrorSignal isHandled ifFalse:[^ nil].
  2252     "/ self class openErrorSignal isHandled ifFalse:[^ nil].
  2253 
  2253 
       
  2254     "/ or even:
       
  2255     "/ ^ nil.
       
  2256 
  2254     "report an error, that the open failed"
  2257     "report an error, that the open failed"
  2255     ^ self class openErrorSignal
  2258     ^ self class openErrorSignal
  2256         raiseRequestWith:self
  2259         raiseRequestWith:self
  2257              errorString:('error on open: ' , self lastErrorString)
  2260              errorString:('error on open: ' , self lastErrorString)
  2258                       "/ in:thisContext sender
  2261                       "/ in:thisContext sender
  5881 ! !
  5884 ! !
  5882 
  5885 
  5883 !ExternalStream class methodsFor:'documentation'!
  5886 !ExternalStream class methodsFor:'documentation'!
  5884 
  5887 
  5885 version
  5888 version
  5886     ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.272 2004-02-27 16:50:33 cg Exp $'
  5889     ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.273 2004-02-27 17:05:02 cg Exp $'
  5887 ! !
  5890 ! !
  5888 
  5891 
  5889 ExternalStream initialize!
  5892 ExternalStream initialize!