equal
deleted
inserted
replaced
119 |
119 |
120 (i := DefaultIcon) isNil ifTrue:[ |
120 (i := DefaultIcon) isNil ifTrue:[ |
121 i := self classResources at:'ICON' default:nil. |
121 i := self classResources at:'ICON' default:nil. |
122 i isNil ifTrue:[ |
122 i isNil ifTrue:[ |
123 nm := ClassResources at:'ICON_FILE' default:'CBrowser.xbm'. |
123 nm := ClassResources at:'ICON_FILE' default:'CBrowser.xbm'. |
124 i := Image fromFile:nm resolution:100. |
124 i := Smalltalk bitmapFromFileNamed:nm inPackage:#'stx:libtool'. |
125 i isNil ifTrue:[ |
125 i isNil ifTrue:[ |
126 i := Smalltalk bitmapFromFileNamed:nm inPackage:#'stx:libtool'. |
126 i := StandardSystemView defaultIcon |
127 i isNil ifTrue:[ |
|
128 i := StandardSystemView defaultIcon |
|
129 ] |
|
130 ] |
127 ] |
131 ]. |
128 ]. |
132 i notNil ifTrue:[ |
129 i notNil ifTrue:[ |
133 DefaultIcon := i := i onDevice:Display |
130 DefaultIcon := i := i onDevice:Display |
134 ] |
131 ] |
3161 ! ! |
3158 ! ! |
3162 |
3159 |
3163 !ChangesBrowser class methodsFor:'documentation'! |
3160 !ChangesBrowser class methodsFor:'documentation'! |
3164 |
3161 |
3165 version |
3162 version |
3166 ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.177 1999-12-01 19:59:34 cg Exp $' |
3163 ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.178 1999-12-01 20:01:21 cg Exp $' |
3167 ! ! |
3164 ! ! |