One could extend ClassWidget>>#buildTabbedNameOf: to include this functionality.
Quick hack:
ClassWidget>>#isAbstract: aClass
^(aClass whichSelectorsReferTo: #subclassResponsibility) isNotEmpty or: [
(aClass respondsTo: #isAbstract) and: [ aClass isAbstract ] ]
Last part of #buildTabbedNameOf
Thanks Peter.
So I guess, Nautilus does not offer this functionnality.
Hilaire
--
Dr. Geo
http://drgeo.eu
1. To tell whether a class is abstract:
isAbstract := [ :aClass |
(aClass whichSelectorsReferTo: #subclassResponsibility) isNotEmpty or: [
(aClass respondsTo: #isAbstract) and: [ aClass isAbstract ] ]
]
Just be aware that some classes are "abstract", but you can actually
instantiate them, because