--- 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 $'
! !