equal
deleted
inserted
replaced
4941 self doGenerateAspectMethodsForAll:(Array with:aspect). |
4941 self doGenerateAspectMethodsForAll:(Array with:aspect). |
4942 implementingClass := self painter targetClass. |
4942 implementingClass := self painter targetClass. |
4943 |
4943 |
4944 answer == #create ifTrue:[^ self]. |
4944 answer == #create ifTrue:[^ self]. |
4945 ] ifFalse:[ |
4945 ] ifFalse:[ |
4946 (Dialog confirm:(resources string:'Browse the implementation of %1?')) ifFalse:[ |
4946 (Dialog confirm:(resources string:'Browse the implementation of "%1" ?' with:aspect)) ifFalse:[ |
4947 ^ self. |
4947 ^ self. |
4948 ]. |
4948 ]. |
4949 ]. |
4949 ]. |
4950 |
4950 |
4951 UserPreferences current systemBrowserClass |
4951 UserPreferences current systemBrowserClass |