equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 1997 by eXept Software AG |
4 COPYRIGHT (c) 1997 by eXept Software AG |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
4387 Dialog warn:'No such resource retriever class.'. |
4389 Dialog warn:'No such resource retriever class.'. |
4388 ] ifFalse:[ |
4390 ] ifFalse:[ |
4389 (cls respondsTo:#visualFor:) ifTrue:[ |
4391 (cls respondsTo:#visualFor:) ifTrue:[ |
4390 image := cls visualFor:sel. |
4392 image := cls visualFor:sel. |
4391 image ~~ (cls perform:sel ifNotUnderstood:nil) ifTrue:[ |
4393 image ~~ (cls perform:sel ifNotUnderstood:nil) ifTrue:[ |
4392 self warn:'The image is resolved via #visualFor: from some unknown class'. |
4394 self warn:'The image as returned by #visualFor: is probably provided by another class.\\Showing all implementors of #',sel. |
4393 sel := #visualFor:. |
4395 "/ sel := #visualFor:. |
|
4396 UserPreferences systemBrowserClass browseImplementorsOf:sel. |
|
4397 ^ self. |
4394 ]. |
4398 ]. |
4395 ]. |
4399 ]. |
4396 UserPreferences systemBrowserClass openInClass:cls class selector:sel |
4400 UserPreferences systemBrowserClass openInClass:(cls class) selector:sel |
4397 ] |
4401 ] |
4398 ] |
4402 ] |
4399 |
4403 |
4400 "Created: / 20-09-2010 / 13:27:34 / cg" |
4404 "Created: / 20-09-2010 / 13:27:34 / cg" |
4401 ! |
4405 ! |