--- a/ChangesBrowser.st	Fri Apr 19 15:53:42 1996 +0200
+++ b/ChangesBrowser.st	Fri Apr 19 16:31:49 1996 +0200
@@ -68,13 +68,18 @@
     "create a new changes browser"
 
     ^ super label:'Changes Browser'
-	     icon:(Form fromFile:'CBrowser.xbm' resolution:100)
+             icon:(self defaultIcon)
+
+    "Modified: 19.4.1996 / 16:30:45 / cg"
 !
 
 openOn:aFileName
     "create c changes browser on a change file"
 
-    ^ ((self new label:'Changes Browser: ', aFileName) changeFileName:aFileName) open
+    ^ ((self new label:'Changes Browser: ', aFileName) 
+        changeFileName:aFileName) open
+
+    "Modified: 19.4.1996 / 16:31:16 / cg"
 ! !
 
 !ChangesBrowser class methodsFor:'behavior'!
@@ -88,6 +93,12 @@
 
 !ChangesBrowser class methodsFor:'defaults'!
 
+defaultIcon
+    ^ Form fromFile:'CBrowser.xbm' resolution:100
+
+    "Created: 19.4.1996 / 16:30:29 / cg"
+!
+
 defaultLabel
     ^ 'Changes Browser'
 ! !
@@ -2136,5 +2147,5 @@
 !ChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.72 1996-03-02 14:36:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.73 1996-04-19 14:31:49 cg Exp $'
 ! !