equal
deleted
inserted
replaced
50 To allow for portable code, this method can be asked to return the initial position. |
50 To allow for portable code, this method can be asked to return the initial position. |
51 (for code, which ought to execute under other systems, use: |
51 (for code, which ought to execute under other systems, use: |
52 posZero := (PositionableStream class respondsTo:#zeroPosition) |
52 posZero := (PositionableStream class respondsTo:#zeroPosition) |
53 ifTrue:[PositionableStream zeroPosition] |
53 ifTrue:[PositionableStream zeroPosition] |
54 ifFalse:[0] |
54 ifFalse:[0] |
|
55 Please use this query for ST/X programs - we will eventually switch to a 0-based |
|
56 indexing scheme, and your programs should be prepared for that. |
55 |
57 |
56 [author:] |
58 [author:] |
57 Claus Gittinger |
59 Claus Gittinger |
58 " |
60 " |
59 ! ! |
61 ! ! |
108 |
110 |
109 !PositionableStream class methodsFor:'Signal constants'! |
111 !PositionableStream class methodsFor:'Signal constants'! |
110 |
112 |
111 currentFileInDirectoryQuerySignal |
113 currentFileInDirectoryQuerySignal |
112 "return the querySignal, which can be used to ask for the current directory |
114 "return the querySignal, which can be used to ask for the current directory |
113 during a fileIn (that is the directory where the filed-in file resides)" |
115 during a fileIn (that is the directory where the filed-in file resides), |
|
116 and in a fileBrowsers doIt. |
|
117 Using this, allows for the loaded code or doIts to ask for the fileBrowsers |
|
118 current directory, by asking this querySignal (which is nice sometimes)." |
114 |
119 |
115 ^ CurrentFileInDirectoryQuerySignal |
120 ^ CurrentFileInDirectoryQuerySignal |
116 ! |
121 ! |
117 |
122 |
118 invalidPositionErrorSignal |
123 invalidPositionErrorSignal |
1051 ! ! |
1056 ! ! |
1052 |
1057 |
1053 !PositionableStream class methodsFor:'documentation'! |
1058 !PositionableStream class methodsFor:'documentation'! |
1054 |
1059 |
1055 version |
1060 version |
1056 ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.87 2000-02-01 13:19:49 tm Exp $' |
1061 ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.88 2000-02-02 12:39:32 cg Exp $' |
1057 ! ! |
1062 ! ! |
1058 PositionableStream initialize! |
1063 PositionableStream initialize! |