NonPositionableExternalStream.st
changeset 4962 0023029d2522
parent 4559 7b454e1d1265
child 5407 d6729266a95b
equal deleted inserted replaced
4961:5419c9a32316 4962:0023029d2522
   321 
   321 
   322 isPositionable
   322 isPositionable
   323     "return true, if the stream supports positioning (this one is not)"
   323     "return true, if the stream supports positioning (this one is not)"
   324 
   324 
   325     ^ false
   325     ^ false
       
   326 !
       
   327 
       
   328 current
       
   329     "for compatibility with Transcript - allow Transcript current,
       
   330      even if redirected to the standardError"
       
   331 
       
   332     self == Transcript ifTrue:[
       
   333 	^ self
       
   334     ].
       
   335     ^ super current
   326 ! !
   336 ! !
   327 
   337 
   328 !NonPositionableExternalStream class methodsFor:'documentation'!
   338 !NonPositionableExternalStream class methodsFor:'documentation'!
   329 
   339 
   330 version
   340 version
   331     ^ '$Header: /cvs/stx/stx/libbasic/NonPositionableExternalStream.st,v 1.37 1999-08-04 19:36:16 cg Exp $'
   341     ^ '$Header: /cvs/stx/stx/libbasic/NonPositionableExternalStream.st,v 1.38 1999-10-27 23:58:45 stefan Exp $'
   332 ! !
   342 ! !