equal
deleted
inserted
replaced
187 defaultIcon |
187 defaultIcon |
188 "return the browsers default window icon" |
188 "return the browsers default window icon" |
189 |
189 |
190 <resource: #style (#SYSTEMBROWSER_ICON #SYSTEMBROWSER_ICON_FILE)> |
190 <resource: #style (#SYSTEMBROWSER_ICON #SYSTEMBROWSER_ICON_FILE)> |
191 |
191 |
192 |nm i| |
192 |nm i resources| |
193 |
193 |
194 (i := DefaultIcon) isNil ifTrue:[ |
194 (i := DefaultIcon) isNil ifTrue:[ |
195 i := self classResources at:'SYSTEMBROWSER_ICON' default:nil. |
195 resources := self classResources. |
|
196 i := resources at:'SYSTEMBROWSER_ICON' default:nil. |
196 i isNil ifTrue:[ |
197 i isNil ifTrue:[ |
197 nm := ClassResources at:'SYSTEMBROWSER_ICON_FILE' default:'SBrowser.xbm'. |
198 nm := resources at:'SYSTEMBROWSER_ICON_FILE' default:'SBrowser.xbm'. |
198 i := Image fromFile:nm resolution:100. |
199 i := Image fromFile:nm resolution:100. |
199 i isNil ifTrue:[ |
200 i isNil ifTrue:[ |
200 i := Image fromFile:('bitmaps/' , nm) resolution:100. |
201 i := Image fromFile:('bitmaps/' , nm) resolution:100. |
201 i isNil ifTrue:[ |
202 i isNil ifTrue:[ |
202 i := StandardSystemView defaultIcon |
203 i := StandardSystemView defaultIcon |
207 DefaultIcon := i := i on:Display |
208 DefaultIcon := i := i on:Display |
208 ] |
209 ] |
209 ]. |
210 ]. |
210 ^ i |
211 ^ i |
211 |
212 |
212 "Modified: 19.3.1997 / 20:48:34 / ca" |
213 "Modified: / 19.3.1997 / 20:48:34 / ca" |
213 "Modified: 15.8.1997 / 15:29:16 / cg" |
214 "Modified: / 27.4.1999 / 17:16:24 / cg" |
214 ! |
215 ! |
215 |
216 |
216 fileImageIcon |
217 fileImageIcon |
217 "answer an icon to mark file-loading image methods" |
218 "answer an icon to mark file-loading image methods" |
218 |
219 |
13501 ! ! |
13502 ! ! |
13502 |
13503 |
13503 !BrowserView class methodsFor:'documentation'! |
13504 !BrowserView class methodsFor:'documentation'! |
13504 |
13505 |
13505 version |
13506 version |
13506 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.498 1999-04-24 20:38:57 cg Exp $' |
13507 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.499 1999-04-27 16:31:17 cg Exp $' |
13507 ! ! |
13508 ! ! |
13508 BrowserView initialize! |
13509 BrowserView initialize! |