--- a/CBrowser.st	Sat Jun 15 01:30:01 1996 +0200
+++ b/CBrowser.st	Sat Jun 15 15:27:04 1996 +0200
@@ -453,28 +453,30 @@
     Processor addTimedBlock:checkBlock afterSeconds:5.
 !
 
-update:what
+update:what with:aParameter from:changedObject
     |box|
 
     (what == #aboutToExit) ifTrue:[
-	"
-	 smalltalk is about to shut down -
-	 - if change list was modified, ask user and save if requested.
-	"
-	anyChanges ifTrue:[
-	    self raiseDeiconified.
+        "
+         smalltalk is about to shut down -
+         - if change list was modified, ask user and save if requested.
+        "
+        anyChanges ifTrue:[
+            self raiseDeiconified.
 
-	    box := YesNoBox new.
-	    box title:(resources at:'changefile has not been updated from the modified changelist.\\Update before exiting ?') withCRs.
-	    box noText:(resources at:'don''t update').
-	    box okText:(resources at:'update').
-	    box yesAction:[self writeBackChanges] 
-		 noAction:[].
-	    box showAtPointer
-	].
-	^ self
+            box := YesNoBox new.
+            box title:(resources at:'changefile has not been updated from the modified changelist.\\Update before exiting ?') withCRs.
+            box noText:(resources at:'don''t update').
+            box okText:(resources at:'update').
+            box yesAction:[self writeBackChanges] 
+                 noAction:[].
+            box showAtPointer
+        ].
+        ^ self
     ].
     super update:what
+
+    "Created: 15.6.1996 / 15:26:30 / cg"
 ! !
 
 !ChangesBrowser methodsFor:'private'!
@@ -2210,5 +2212,5 @@
 !ChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/CBrowser.st,v 1.84 1996-05-29 15:36:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/CBrowser.st,v 1.85 1996-06-15 13:27:04 cg Exp $'
 ! !

--- a/ChangesBrowser.st	Sat Jun 15 01:30:01 1996 +0200
+++ b/ChangesBrowser.st	Sat Jun 15 15:27:04 1996 +0200
@@ -453,28 +453,30 @@
     Processor addTimedBlock:checkBlock afterSeconds:5.
 !
 
-update:what
+update:what with:aParameter from:changedObject
     |box|
 
     (what == #aboutToExit) ifTrue:[
-	"
-	 smalltalk is about to shut down -
-	 - if change list was modified, ask user and save if requested.
-	"
-	anyChanges ifTrue:[
-	    self raiseDeiconified.
+        "
+         smalltalk is about to shut down -
+         - if change list was modified, ask user and save if requested.
+        "
+        anyChanges ifTrue:[
+            self raiseDeiconified.
 
-	    box := YesNoBox new.
-	    box title:(resources at:'changefile has not been updated from the modified changelist.\\Update before exiting ?') withCRs.
-	    box noText:(resources at:'don''t update').
-	    box okText:(resources at:'update').
-	    box yesAction:[self writeBackChanges] 
-		 noAction:[].
-	    box showAtPointer
-	].
-	^ self
+            box := YesNoBox new.
+            box title:(resources at:'changefile has not been updated from the modified changelist.\\Update before exiting ?') withCRs.
+            box noText:(resources at:'don''t update').
+            box okText:(resources at:'update').
+            box yesAction:[self writeBackChanges] 
+                 noAction:[].
+            box showAtPointer
+        ].
+        ^ self
     ].
     super update:what
+
+    "Created: 15.6.1996 / 15:26:30 / cg"
 ! !
 
 !ChangesBrowser methodsFor:'private'!
@@ -2210,5 +2212,5 @@
 !ChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.84 1996-05-29 15:36:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.85 1996-06-15 13:27:04 cg Exp $'
 ! !