PositionableStream.st
changeset 6777 5efddf5358b2
parent 6707 790fc577c403
child 6921 6f21c707fbff
equal deleted inserted replaced
6776:11df52e55905 6777:5efddf5358b2
   145 
   145 
   146      Be prepared for this to be changed to return 0 as other ST's do.
   146      Be prepared for this to be changed to return 0 as other ST's do.
   147         "
   147         "
   148 
   148 
   149     ^ ZeroPosition
   149     ^ ZeroPosition
       
   150 ! !
       
   151 
       
   152 !PositionableStream class methodsFor:'queries'!
       
   153 
       
   154 currentFileInDirectory
       
   155     "during a fileIn (if a script), the script can ask for the current directory"
       
   156 
       
   157     ^ CurrentFileInDirectoryQuerySignal query
   150 ! !
   158 ! !
   151 
   159 
   152 !PositionableStream methodsFor:'Compatibility - Dolphin'!
   160 !PositionableStream methodsFor:'Compatibility - Dolphin'!
   153 
   161 
   154 endChunk
   162 endChunk
  1127 ! !
  1135 ! !
  1128 
  1136 
  1129 !PositionableStream class methodsFor:'documentation'!
  1137 !PositionableStream class methodsFor:'documentation'!
  1130 
  1138 
  1131 version
  1139 version
  1132     ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.114 2002-08-02 17:27:04 cg Exp $'
  1140     ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.115 2002-09-26 20:10:26 cg Exp $'
  1133 ! !
  1141 ! !
       
  1142 
  1134 PositionableStream initialize!
  1143 PositionableStream initialize!