try bitmaps in package directory
authorClaus Gittinger <cg@exept.de>
Wed, 01 Dec 1999 21:16:11 +0100
changeset 2452 2cb5d3d8f8c4
parent 2451 2a01088e75d3
child 2453 63c50508c4cd
try bitmaps in package directory
DebugView.st
--- a/DebugView.st	Wed Dec 01 21:01:45 1999 +0100
+++ b/DebugView.st	Wed Dec 01 21:16:11 1999 +0100
@@ -371,12 +371,9 @@
         i := self classResources at:'ICON' default:nil.
         i isNil ifTrue:[
             nm := ClassResources at:'ICON_FILE' default:'Debugger.xbm'.
-            i := Image fromFile:nm resolution:100.
+            i := Smalltalk bitmapFromFileNamed:nm forClass:self.
             i isNil ifTrue:[
-                i := Image fromFile:('bitmaps/' , nm) resolution:100.
-                i isNil ifTrue:[
-                    i := StandardSystemView defaultIcon
-                ]
+                i := StandardSystemView defaultIcon
             ]
         ].
         i notNil ifTrue:[
@@ -4079,6 +4076,6 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.251 1999-11-26 14:26:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.252 1999-12-01 20:16:11 cg Exp $'
 ! !
 DebugView initialize!