equal
deleted
inserted
replaced
2130 Processor removeTimedBlock:checkBlock. |
2130 Processor removeTimedBlock:checkBlock. |
2131 f := changeFileName asFilename. |
2131 f := changeFileName asFilename. |
2132 (info := f info) isNil ifTrue:[ |
2132 (info := f info) isNil ifTrue:[ |
2133 self newLabel:'(unaccessable)' |
2133 self newLabel:'(unaccessable)' |
2134 ] ifFalse:[ |
2134 ] ifFalse:[ |
2135 (info modified) > changeFileTimestamp ifTrue:[ |
2135 (info modificationTime) > changeFileTimestamp ifTrue:[ |
2136 self newLabel:'(outdated)'. |
2136 self newLabel:'(outdated)'. |
2137 autoUpdate value ifTrue:[ |
2137 autoUpdate value ifTrue:[ |
2138 self doUpdate |
2138 self doUpdate |
2139 ] |
2139 ] |
2140 ] ifFalse:[ |
2140 ] ifFalse:[ |
2200 aStream := f readStream. |
2200 aStream := f readStream. |
2201 aStream isNil ifTrue:[^ nil]. |
2201 aStream isNil ifTrue:[^ nil]. |
2202 |
2202 |
2203 i := f info. |
2203 i := f info. |
2204 changeFileSize := i size. |
2204 changeFileSize := i size. |
2205 changeFileTimestamp := i modified. |
2205 changeFileTimestamp := i modificationTime. |
2206 |
2206 |
2207 self withReadCursorDo:[ |
2207 self withReadCursorDo:[ |
2208 " |
2208 " |
2209 this is a time consuming operation (especially, if reading an |
2209 this is a time consuming operation (especially, if reading an |
2210 NFS-mounted directory; therefore lower my priority ... |
2210 NFS-mounted directory; therefore lower my priority ... |
5107 ! ! |
5107 ! ! |
5108 |
5108 |
5109 !ChangesBrowser class methodsFor:'documentation'! |
5109 !ChangesBrowser class methodsFor:'documentation'! |
5110 |
5110 |
5111 version |
5111 version |
5112 ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.272 2002-10-01 08:29:18 cg Exp $' |
5112 ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.273 2002-10-08 19:27:48 cg Exp $' |
5113 ! ! |
5113 ! ! |