--- a/ChangesBrowser.st	Tue Feb 06 19:41:00 2007 +0100
+++ b/ChangesBrowser.st	Tue Feb 06 19:57:17 2007 +0100
@@ -21,7 +21,7 @@
 		lastSearchString applyInOriginalNameSpace lastSaveFileName
 		readOnly enforcedPackage enforcedNameSpace updateChangeSet
 		showingDiffs diffViewBox autoloadAsRequired encodingIfKnown'
-	classVariableNames:'CompressSnapshotInfo NoColoring ShowWarningDialogs DefaultIcon
+	classVariableNames:'CompressSnapshotInfo NoColoring ShowWarningDialogs
 		DefaultAutoCompare DefaultShowingDiffs'
 	poolDictionaries:''
 	category:'Interface-Browsers'
@@ -142,33 +142,9 @@
 defaultIcon
     "return the browsers default window icon"
 
-    <resource: #style (#CHANGESBROWSER_ICON #CHANGESBROWSER_ICON_FILE)>
-
-    |nm i|
-
-    (i := DefaultIcon) isNil ifTrue:[
-        i := ToolbarIconLibrary changesBrowserIcon.
-
-"/        i := self classResources at:#CHANGESBROWSER_ICON default:nil.
-"/        i isNil ifTrue:[
-"/            nm := ClassResources at:#CHANGESBROWSER_ICON_FILE default:'CBrowser.xbm'.
-"/            i := Smalltalk imageFromFileNamed:nm inPackage:#'stx:libtool'.
-"/            i isNil ifTrue:[
-"/                i := StandardSystemView defaultIcon
-"/            ]
-"/        ].
-        i notNil ifTrue:[
-            DefaultIcon := i := i onDevice:Display
-        ]
-    ].
-    ^ i
-
-    "
-       DefaultIcon := nil
-    "
-
-    "Modified: 19.3.1997 / 20:48:34 / ca"
-    "Modified: 18.4.1997 / 15:16:24 / cg"
+    <resource: #programImage>
+
+    ^ ToolbarIconLibrary startChangesBrowserIcon    
 !
 
 defaultLabel
@@ -5941,5 +5917,5 @@
 !ChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.367 2007-02-06 10:36:48 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.368 2007-02-06 18:57:17 stefan Exp $'
 ! !