equal
deleted
inserted
replaced
5033 with:(resources string:aspectNameShown) allBold). |
5033 with:(resources string:aspectNameShown) allBold). |
5034 ]. |
5034 ]. |
5035 ^ self |
5035 ^ self |
5036 ]. |
5036 ]. |
5037 |
5037 |
5038 implementingClass := (cls whichClassImplements:aspect asSymbol). |
5038 implementingClass := (cls whichClassIncludesSelector:aspect asSymbol). |
5039 implementingClass isNil ifTrue:[ |
5039 implementingClass isNil ifTrue:[ |
5040 implementingClass := (cls class whichClassImplements:aspect asSymbol). |
5040 implementingClass := (cls class whichClassIncludesSelector:aspect asSymbol). |
5041 ]. |
5041 ]. |
5042 implementingClass isNil ifTrue:[ |
5042 implementingClass isNil ifTrue:[ |
5043 answer := OptionBox |
5043 answer := OptionBox |
5044 request:(resources |
5044 request:(resources |
5045 stringWithCRs:'%1 does not implement %2.\\Create ?' |
5045 stringWithCRs:'%1 does not implement %2.\\Create ?' |
6760 |
6760 |
6761 !UIPainter class methodsFor:'documentation'! |
6761 !UIPainter class methodsFor:'documentation'! |
6762 |
6762 |
6763 version |
6763 version |
6764 ^ '$Header$' |
6764 ^ '$Header$' |
|
6765 ! |
|
6766 |
|
6767 version_CVS |
|
6768 ^ '$Header$' |
6765 ! ! |
6769 ! ! |
6766 |
6770 |
6767 UIPainter initialize! |
6771 UIPainter initialize! |