Mercurial Mercurial > hg > stx-libtool / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
try bitmaps in package directory
authorClaus Gittinger <cg@exept.de>
Wed, 01 Dec 1999 21:01:45 +0100
changeset 2451 2a01088e75d3
parent 2450 5c364546ba11
child 2452 2cb5d3d8f8c4
try bitmaps in package directory
BrowserView.st file | annotate | diff | comparison | revisions
ChangesBrowser.st file | annotate | diff | comparison | revisions 
--- a/BrowserView.st	Wed Dec 01 20:59:34 1999 +0100
+++ b/BrowserView.st	Wed Dec 01 21:01:45 1999 +0100
@@ -196,12 +196,9 @@
         i := resources at:'SYSTEMBROWSER_ICON' default:nil.
         i isNil ifTrue:[
             nm := resources at:'SYSTEMBROWSER_ICON_FILE' default:'SBrowser.xbm'.
-            i := Image fromFile:nm resolution:100.
+            i := Smalltalk bitmapFromFileNamed:nm inPackage:#'stx:libtool'.
             i isNil ifTrue:[
-                i := Smalltalk bitmapFromFileNamed:nm inPackage:#'stx:libtool'.
-                i isNil ifTrue:[
-                    i := StandardSystemView defaultIcon
-                ]
+                i := StandardSystemView defaultIcon
             ]
         ].
         i notNil ifTrue:[
@@ -14023,6 +14020,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.572 1999-12-01 19:57:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.573 1999-12-01 20:01:45 cg Exp $'
 ! !
 BrowserView initialize!
--- a/ChangesBrowser.st	Wed Dec 01 20:59:34 1999 +0100
+++ b/ChangesBrowser.st	Wed Dec 01 21:01:45 1999 +0100
@@ -121,12 +121,9 @@
         i := self classResources at:'ICON' default:nil.
         i isNil ifTrue:[
             nm := ClassResources at:'ICON_FILE' default:'CBrowser.xbm'.
-            i := Image fromFile:nm resolution:100.
+            i := Smalltalk bitmapFromFileNamed:nm inPackage:#'stx:libtool'.
             i isNil ifTrue:[
-                i := Smalltalk bitmapFromFileNamed:nm inPackage:#'stx:libtool'.
-                i isNil ifTrue:[
-                    i := StandardSystemView defaultIcon
-                ]
+                i := StandardSystemView defaultIcon
             ]
         ].
         i notNil ifTrue:[
@@ -3163,5 +3160,5 @@
 !ChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.177 1999-12-01 19:59:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.178 1999-12-01 20:01:21 cg Exp $'
 ! !
hg/stx-libtool