equal
deleted
inserted
replaced
4380 (cls respondsTo:#visualFor:) ifTrue:[ |
4380 (cls respondsTo:#visualFor:) ifTrue:[ |
4381 image := cls visualFor:sel. |
4381 image := cls visualFor:sel. |
4382 image ~~ (cls perform:sel ifNotUnderstood:nil) ifTrue:[ |
4382 image ~~ (cls perform:sel ifNotUnderstood:nil) ifTrue:[ |
4383 self warn:'The image as returned by #visualFor: is probably provided by another class.\\Showing all implementors of #',sel. |
4383 self warn:'The image as returned by #visualFor: is probably provided by another class.\\Showing all implementors of #',sel. |
4384 "/ sel := #visualFor:. |
4384 "/ sel := #visualFor:. |
4385 UserPreferences systemBrowserClass browseImplementorsOf:sel. |
4385 SystemBrowser default browseImplementorsOf:sel. |
4386 ^ self. |
4386 ^ self. |
4387 ]. |
4387 ]. |
4388 ]. |
4388 ]. |
4389 UserPreferences systemBrowserClass openInClass:(cls class) selector:sel |
4389 SystemBrowser default openInClass:(cls class) selector:sel |
4390 ] |
4390 ] |
4391 ] |
4391 ] |
4392 |
4392 |
4393 "Created: / 20-09-2010 / 13:27:34 / cg" |
4393 "Created: / 20-09-2010 / 13:27:34 / cg" |
|
4394 "Modified: / 01-09-2017 / 14:21:02 / cg" |
4394 ! |
4395 ! |
4395 |
4396 |
4396 doEditImage |
4397 doEditImage |
4397 |sel cls item image| |
4398 |sel cls item image| |
4398 |
4399 |