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.
moved icon search to smalltalk utility method
authorClaus Gittinger <cg@exept.de>
Wed, 15 Dec 1999 21:43:24 +0100
changeset 2492 055eef2763e3
parent 2491 0222b19ee371
child 2493 e25c257bda20
moved icon search to smalltalk utility method
FileBrowser.st file | annotate | diff | comparison | revisions 
--- a/FileBrowser.st	Wed Dec 15 21:39:51 1999 +0100
+++ b/FileBrowser.st	Wed Dec 15 21:43:24 1999 +0100
@@ -179,19 +179,7 @@
         nm isNil ifTrue:[
             nm := 'xpmBitmaps/document_images/' , defaultName
         ].
-        img := Smalltalk imageFromFileNamed:nm forClass:self.
-        img isNil ifTrue:[
-            "/ try under the goodies package ...
-            img := Smalltalk imageFromFileNamed:nm inPackage:'stx:goodies'.
-            img isNil ifTrue:[
-                nm := 'bitmaps/' , nm.
-                img := Smalltalk imageFromFileNamed:nm forClass:self.
-                img isNil ifTrue:[
-                    img := Smalltalk imageFromFileNamed:nm inPackage:'stx:goodies'.
-                ]
-            ]
-        ].
-        Icons at:key put:img.
+        Icons at:key put:(Smalltalk imageFromFileNamed:nm forClass:self).
     ]
 
     "
@@ -6923,5 +6911,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.354 1999-12-15 20:39:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.355 1999-12-15 20:43:24 cg Exp $'
 ! !
hg/stx-libtool