Do not use obsolete method
authorStefan Vogel <sv@exept.de>
Thu, 04 Dec 2003 12:54:00 +0100
changeset 5396 d924769c9cc4
parent 5395 ff5fc88d4a4b
child 5397 4a35da2c915b
Do not use obsolete method
NewChangesBrowser.st
--- 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 $'
 ! !