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