equal
deleted
inserted
replaced
5614 |w h magnify iconOrSymbol| |
5614 |w h magnify iconOrSymbol| |
5615 |
5615 |
5616 selector := aSelector asSymbol. |
5616 selector := aSelector asSymbol. |
5617 selector numArgs == 0 ifFalse:[^ self]. |
5617 selector numArgs == 0 ifFalse:[^ self]. |
5618 |
5618 |
5619 "do waht the ResourceRetriever will do" |
5619 "do what the ResourceRetriever will do" |
5620 (aClass respondsTo:#visualFor:) ifTrue:[ |
5620 (aClass respondsTo:#visualFor:) ifTrue:[ |
5621 iconOrSymbol := aClass visualFor:selector. |
5621 iconOrSymbol := aClass visualFor:selector. |
5622 ]. |
5622 ]. |
5623 iconOrSymbol isNil ifTrue:[ |
5623 iconOrSymbol isNil ifTrue:[ |
5624 iconOrSymbol := aClass perform:selector. |
5624 iconOrSymbol := aClass perform:selector. |
5639 h > 32 ifFalse:[^ self]. |
5639 h > 32 ifFalse:[^ self]. |
5640 magnify := 32 / h. |
5640 magnify := 32 / h. |
5641 ]. |
5641 ]. |
5642 icon := icon magnifiedBy: magnify. |
5642 icon := icon magnifiedBy: magnify. |
5643 |
5643 |
5644 "Modified: / 07-02-2011 / 12:26:04 / cg" |
5644 "Modified: / 13-04-2011 / 18:56:45 / cg" |
5645 ! |
5645 ! |
5646 |
5646 |
5647 initialize |
5647 initialize |
5648 super initialize. |
5648 super initialize. |
5649 children := #(). |
5649 children := #(). |