--- a/ChangeSetBrowser.st	Sun Dec 03 15:31:21 1995 +0100
+++ b/ChangeSetBrowser.st	Sun Dec 03 15:32:27 1995 +0100
@@ -33,10 +33,6 @@
 "
 !
 
-version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.9 1995-11-11 15:39:24 cg Exp $'
-!
-
 documentation
 "
     like a changesBrowser, but manipulates the per-project change-lists.
@@ -102,20 +98,6 @@
 
 !ChangeSetBrowser methodsFor:'private'!
 
-queryCloseText
-	^ 'Quit without updating changeSet ?'
-!
-
-streamForChange:changeNr
-    "answer a stream for change"
-
-    |change|
-
-    change := changeSet at:changeNr.
-    change isNil ifTrue:[^nil].
-    ^ ReadStream on:(change source)
-!
-
 changeSet:aChangeSet
     originalChangeSet := aChangeSet.
     changeSet := OrderedCollection new.
@@ -126,6 +108,26 @@
     ].
 !
 
+checkIfFileHasChanged
+    Processor removeTimedBlock:checkBlock.
+    changeSet size ~= originalChangeSet size ifTrue:[
+        self newLabel:'(outdated)'.
+        autoUpdate ifTrue:[
+            self doUpdate
+        ]
+    ] ifFalse:[
+        self newLabel:''
+    ].
+    Processor addTimedBlock:checkBlock afterSeconds:5.
+
+    "Created: 3.12.1995 / 13:52:30 / cg"
+    "Modified: 3.12.1995 / 14:15:06 / cg"
+!
+
+queryCloseText
+	^ 'Quit without updating changeSet ?'
+!
+
 readChangesFileInBackground:dummy
     "read the changeSet, create a list of header-lines"
 
@@ -162,6 +164,16 @@
     changeChunks removeIndex:changeNr.
     changeClassNames removeIndex:changeNr.
     changeSet removeIndex:changeNr
+!
+
+streamForChange:changeNr
+    "answer a stream for change"
+
+    |change|
+
+    change := changeSet at:changeNr.
+    change isNil ifTrue:[^nil].
+    ^ ReadStream on:(change source)
 ! !
 
 !ChangeSetBrowser methodsFor:'user actions'!
@@ -171,4 +183,22 @@
 	self saveBackChanges.
 	self doUpdate
     ]
+!
+
+doUpdate
+    changeSet := OrderedCollection new.
+    originalChangeSet notNil ifTrue:[
+        originalChangeSet do:[:aChange |
+            changeSet add:aChange
+        ].
+    ].
+    super doUpdate
+
+    "Created: 3.12.1995 / 13:54:14 / cg"
 ! !
+
+!ChangeSetBrowser class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.10 1995-12-03 14:32:27 cg Exp $'
+! !

--- a/ChgSetBrwsr.st	Sun Dec 03 15:31:21 1995 +0100
+++ b/ChgSetBrwsr.st	Sun Dec 03 15:32:27 1995 +0100
@@ -33,10 +33,6 @@
 "
 !
 
-version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/ChgSetBrwsr.st,v 1.9 1995-11-11 15:39:24 cg Exp $'
-!
-
 documentation
 "
     like a changesBrowser, but manipulates the per-project change-lists.
@@ -102,20 +98,6 @@
 
 !ChangeSetBrowser methodsFor:'private'!
 
-queryCloseText
-	^ 'Quit without updating changeSet ?'
-!
-
-streamForChange:changeNr
-    "answer a stream for change"
-
-    |change|
-
-    change := changeSet at:changeNr.
-    change isNil ifTrue:[^nil].
-    ^ ReadStream on:(change source)
-!
-
 changeSet:aChangeSet
     originalChangeSet := aChangeSet.
     changeSet := OrderedCollection new.
@@ -126,6 +108,26 @@
     ].
 !
 
+checkIfFileHasChanged
+    Processor removeTimedBlock:checkBlock.
+    changeSet size ~= originalChangeSet size ifTrue:[
+        self newLabel:'(outdated)'.
+        autoUpdate ifTrue:[
+            self doUpdate
+        ]
+    ] ifFalse:[
+        self newLabel:''
+    ].
+    Processor addTimedBlock:checkBlock afterSeconds:5.
+
+    "Created: 3.12.1995 / 13:52:30 / cg"
+    "Modified: 3.12.1995 / 14:15:06 / cg"
+!
+
+queryCloseText
+	^ 'Quit without updating changeSet ?'
+!
+
 readChangesFileInBackground:dummy
     "read the changeSet, create a list of header-lines"
 
@@ -162,6 +164,16 @@
     changeChunks removeIndex:changeNr.
     changeClassNames removeIndex:changeNr.
     changeSet removeIndex:changeNr
+!
+
+streamForChange:changeNr
+    "answer a stream for change"
+
+    |change|
+
+    change := changeSet at:changeNr.
+    change isNil ifTrue:[^nil].
+    ^ ReadStream on:(change source)
 ! !
 
 !ChangeSetBrowser methodsFor:'user actions'!
@@ -171,4 +183,22 @@
 	self saveBackChanges.
 	self doUpdate
     ]
+!
+
+doUpdate
+    changeSet := OrderedCollection new.
+    originalChangeSet notNil ifTrue:[
+        originalChangeSet do:[:aChange |
+            changeSet add:aChange
+        ].
+    ].
+    super doUpdate
+
+    "Created: 3.12.1995 / 13:54:14 / cg"
 ! !
+
+!ChangeSetBrowser class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/ChgSetBrwsr.st,v 1.10 1995-12-03 14:32:27 cg Exp $'
+! !