equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 1995-1998 by eXept Software AG |
4 COPYRIGHT (c) 1995-1998 by eXept Software AG |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
5430 ifFalse:[ |
5432 ifFalse:[ |
5431 (Dialog confirm:(resources |
5433 (Dialog confirm:(resources |
5432 stringWithCRs:'Browse implementors of %1 ?' |
5434 stringWithCRs:'Browse implementors of %1 ?' |
5433 with:aspect allBold)) |
5435 with:aspect allBold)) |
5434 ifTrue:[ |
5436 ifTrue:[ |
5435 UserPreferences current systemBrowserClass browseImplementorsOf:aspect |
5437 SystemBrowser default browseImplementorsOf:aspect |
5436 ]. |
5438 ]. |
5437 ^ self |
5439 ^ self |
5438 ]. |
5440 ]. |
5439 code := painter |
5441 code := painter |
5440 generateActionMethodFor:aspect |
5442 generateActionMethodFor:aspect |
5442 inClass:cls. |
5444 inClass:cls. |
5443 Class packageQuerySignal answer:painter targetClass package do:[ |
5445 Class packageQuerySignal answer:painter targetClass package do:[ |
5444 code readStream fileIn. |
5446 code readStream fileIn. |
5445 ]. |
5447 ]. |
5446 ]. |
5448 ]. |
5447 UserPreferences current systemBrowserClass openInClass:cls selector:aspect |
5449 SystemBrowser default openInClass:cls selector:aspect |
5448 |
5450 |
5449 "Modified: / 28-01-2014 / 21:55:56 / cg" |
5451 "Modified: / 28-01-2014 / 21:55:56 / cg" |
5450 ! |
5452 ! |
5451 |
5453 |
5452 doBrowseAspectClass: aspect |
5454 doBrowseAspectClass: aspect |