equal
deleted
inserted
replaced
4207 cls isNil ifTrue:[ |
4207 cls isNil ifTrue:[ |
4208 Dialog warn:'No such resource retriever class.'. |
4208 Dialog warn:'No such resource retriever class.'. |
4209 ] ifFalse:[ |
4209 ] ifFalse:[ |
4210 (cls respondsTo:#visualFor:) ifTrue:[ |
4210 (cls respondsTo:#visualFor:) ifTrue:[ |
4211 image := cls visualFor:sel. |
4211 image := cls visualFor:sel. |
4212 image ~~ (cls perform:sel) ifTrue:[ |
4212 image ~~ (cls perform:sel ifNotUnderstood:nil) ifTrue:[ |
4213 self warn:'The image is resolved via #visualFor: from some unknown class'. |
4213 self warn:'The image is resolved via #visualFor: from some unknown class'. |
4214 sel := #visualFor:. |
4214 sel := #visualFor:. |
4215 ]. |
4215 ]. |
4216 ]. |
4216 ]. |
4217 UserPreferences systemBrowserClass openInClass:cls class selector:sel |
4217 UserPreferences systemBrowserClass openInClass:cls class selector:sel |