--- a/NewChangesBrowser.st Thu Dec 04 12:51:59 2003 +0100
+++ b/NewChangesBrowser.st Thu Dec 04 12:54:00 2003 +0100
@@ -1764,16 +1764,16 @@
Processor removeTimedBlock:autoUpdateBlock.
f := changeFileName asFilename.
(info := f info) isNil ifTrue:[
- self newLabel:'unaccessable'
+ self newLabel:'unaccessable'
] ifFalse:[
- (info modified) > changeFileTimestamp ifTrue:[
- self newLabel:'outdated'.
- AutoUpdate ifTrue:[
- self doReload
- ]
- ] ifFalse:[
- self newLabel:''
- ]
+ (info modificationTime) > changeFileTimestamp ifTrue:[
+ self newLabel:'outdated'.
+ AutoUpdate ifTrue:[
+ self doReload
+ ]
+ ] ifFalse:[
+ self newLabel:''
+ ]
].
Processor addTimedBlock:autoUpdateBlock afterSeconds:5.
!
@@ -3528,5 +3528,5 @@
!NewChangesBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/NewChangesBrowser.st,v 1.27 2003-12-04 11:51:59 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/NewChangesBrowser.st,v 1.28 2003-12-04 11:54:00 stefan Exp $'
! !