equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 1997 by eXept Software AG |
2 COPYRIGHT (c) 1997 by eXept Software AG |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
4384 cls := Smalltalk classNamed:cls. |
4382 cls := Smalltalk classNamed:cls. |
4385 cls isNil ifTrue:[ |
4383 cls isNil ifTrue:[ |
4386 Dialog warn:'No such resource retriever class.'. |
4384 Dialog warn:'No such resource retriever class.'. |
4387 ] ifFalse:[ |
4385 ] ifFalse:[ |
4388 (cls respondsTo:#visualFor:) ifTrue:[ |
4386 (cls respondsTo:#visualFor:) ifTrue:[ |
4389 image := cls visualFor:sel. |
4387 Error handle:[:ex | |
4390 image ~~ (cls perform:sel ifNotUnderstood:nil) ifTrue:[ |
4388 self warn:'The class seems to not understand #',sel. |
|
4389 ] do:[ |
|
4390 image := cls visualFor:sel. |
|
4391 ]. |
|
4392 (image notNil and:[image ~~ (cls perform:sel ifNotUnderstood:nil)]) ifTrue:[ |
4391 self warn:'The image as returned by #visualFor: is probably provided by another class.\\Showing all implementors of #',sel. |
4393 self warn:'The image as returned by #visualFor: is probably provided by another class.\\Showing all implementors of #',sel. |
4392 "/ sel := #visualFor:. |
4394 "/ sel := #visualFor:. |
4393 SystemBrowser default browseImplementorsOf:sel. |
4395 SystemBrowser default browseImplementorsOf:sel. |
4394 ^ self. |
4396 ^ self. |
4395 ]. |
4397 ]. |
4398 ] |
4400 ] |
4399 ] |
4401 ] |
4400 |
4402 |
4401 "Created: / 20-09-2010 / 13:27:34 / cg" |
4403 "Created: / 20-09-2010 / 13:27:34 / cg" |
4402 "Modified: / 01-09-2017 / 14:21:02 / cg" |
4404 "Modified: / 01-09-2017 / 14:21:02 / cg" |
|
4405 "Modified: / 08-07-2018 / 15:41:37 / Claus Gittinger" |
4403 ! |
4406 ! |
4404 |
4407 |
4405 doEditImage |
4408 doEditImage |
4406 |sel cls item image| |
4409 |sel cls item image| |
4407 |
4410 |