Re: [Pharo-users] Detecting a class is abstract

[Henrik Nergaard]

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:
        ^ self model selectedPackage 
                ifNil: [result, anElement name]
                ifNotNil: [:package | 
                                | mrph |
                        mrph :=
                        (package includesClass: anElement)
                                ifTrue: [ (result, anElement name) 
asStringMorph ]
                                ifFalse: [ (result , anElement 
name)asStringMorph color: self model extensionColor;yourself].
                        (self isAbstract: anElement) ifTrue: [ mrph emphasis: 
3; color: Color orange ].
                        mrph.           
                ]

Best regards,
Henrik

-----Original Message-----
From: Pharo-users [mailto:pharo-users-boun...@lists.pharo.org] On Behalf Of 
Hilaire
Sent: Monday, April 4, 2016 11:49 AM
To: pharo-users@lists.pharo.org
Subject: [Pharo-users] Detecting a class is abstract

Hi,

Can Nautilius indicate when a class is abstract (i.e.  at least one method in 
the class, then its hierarchy is definted respond
subclassResponsability?)

I did not find it in the Analyze menu.


Thanks

Hilaire

--
Dr. Geo
http://drgeo.eu