equal
deleted
inserted
replaced
369 |
369 |
370 (i := DefaultIcon) isNil ifTrue:[ |
370 (i := DefaultIcon) isNil ifTrue:[ |
371 i := self classResources at:'ICON' default:nil. |
371 i := self classResources at:'ICON' default:nil. |
372 i isNil ifTrue:[ |
372 i isNil ifTrue:[ |
373 nm := ClassResources at:'ICON_FILE' default:'Debugger.xbm'. |
373 nm := ClassResources at:'ICON_FILE' default:'Debugger.xbm'. |
374 i := Image fromFile:nm resolution:100. |
374 i := Smalltalk bitmapFromFileNamed:nm forClass:self. |
375 i isNil ifTrue:[ |
375 i isNil ifTrue:[ |
376 i := Image fromFile:('bitmaps/' , nm) resolution:100. |
376 i := StandardSystemView defaultIcon |
377 i isNil ifTrue:[ |
|
378 i := StandardSystemView defaultIcon |
|
379 ] |
|
380 ] |
377 ] |
381 ]. |
378 ]. |
382 i notNil ifTrue:[ |
379 i notNil ifTrue:[ |
383 DefaultIcon := i := i onDevice:Display |
380 DefaultIcon := i := i onDevice:Display |
384 ] |
381 ] |
4077 ! ! |
4074 ! ! |
4078 |
4075 |
4079 !DebugView class methodsFor:'documentation'! |
4076 !DebugView class methodsFor:'documentation'! |
4080 |
4077 |
4081 version |
4078 version |
4082 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.251 1999-11-26 14:26:12 cg Exp $' |
4079 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.252 1999-12-01 20:16:11 cg Exp $' |
4083 ! ! |
4080 ! ! |
4084 DebugView initialize! |
4081 DebugView initialize! |