4640 |
4642 |
4641 forClass:aClass selector:aSelector |
4643 forClass:aClass selector:aSelector |
4642 |w h magnify iconOrSymbol| |
4644 |w h magnify iconOrSymbol| |
4643 |
4645 |
4644 selector := aSelector asSymbol. |
4646 selector := aSelector asSymbol. |
4645 selector numArgs == 0 ifFalse:[^ self]. |
4647 selector argumentCount == 0 ifFalse:[^ self]. |
4646 |
4648 |
4647 "do what the ResourceRetriever will do" |
4649 "do what the ResourceRetriever will do" |
4648 (aClass respondsTo:#visualFor:) ifTrue:[ |
4650 (aClass respondsTo:#visualFor:) ifTrue:[ |
4649 iconOrSymbol := aClass visualFor:selector. |
4651 iconOrSymbol := aClass visualFor:selector. |
4650 ]. |
4652 ]. |
4651 iconOrSymbol isNil ifTrue:[ |
4653 iconOrSymbol isNil ifTrue:[ |
4652 iconOrSymbol := aClass perform:selector. |
4654 iconOrSymbol := aClass perform:selector. |
4653 ]. |
4655 ]. |
4654 iconOrSymbol isNil ifTrue:[^ self]. |
4656 iconOrSymbol isNil ifTrue:[^ self]. |
4655 |
4657 |
4656 iconOrSymbol isSymbol ifTrue:[ |
4658 iconOrSymbol isSymbol ifTrue:[ |
4657 icon := ToolbarIconLibrary perform:iconOrSymbol. |
4659 icon := ToolbarIconLibrary perform:iconOrSymbol. |
4658 ] ifFalse:[ |
4660 ] ifFalse:[ |
4659 icon := iconOrSymbol. |
4661 icon := iconOrSymbol. |
4660 ]. |
4662 ]. |
4661 |
4663 |
4662 w := icon width. |
4664 w := icon width. |
4663 h := icon height. |
4665 h := icon height. |
4664 |
4666 |
4665 w > 32 ifTrue:[ |
4667 w > 32 ifTrue:[ |
4666 magnify := 32 / w. |
4668 magnify := 32 / w. |
4667 h > 32 ifTrue:[ magnify := (32 / h) max:magnify ]. |
4669 h > 32 ifTrue:[ magnify := (32 / h) max:magnify ]. |
4668 ] ifFalse:[ |
4670 ] ifFalse:[ |
4669 h > 32 ifFalse:[^ self]. |
4671 h > 32 ifFalse:[^ self]. |
4670 magnify := 32 / h. |
4672 magnify := 32 / h. |
4671 ]. |
4673 ]. |
4672 icon := icon magnifiedBy: magnify. |
4674 icon := icon magnifiedBy: magnify. |
4673 |
4675 |
4674 "Modified: / 13-04-2011 / 18:56:45 / cg" |
4676 "Modified: / 13-04-2011 / 18:56:45 / cg" |
4675 "Created: / 03-08-2011 / 10:47:16 / cg" |
4677 "Created: / 03-08-2011 / 10:47:16 / cg" |