author | Claus Gittinger <cg@exept.de> |
Fri, 10 Feb 2017 11:22:12 +0100 | |
changeset 5461 | d259ac0f3ba6 |
parent 5459 | 9f38d94ea752 |
child 5462 | 6a7b577cd2b9 |
--- a/AbstractHierarchicalItem.st Wed Feb 08 18:41:24 2017 +0100 +++ b/AbstractHierarchicalItem.st Fri Feb 10 11:22:12 2017 +0100 @@ -101,6 +101,16 @@ ^ true ! ! +!AbstractHierarchicalItem class methodsFor:'queries'! + +isAbstract + "Return if this class is an abstract class. + True is returned here for myself only; false for subclasses. + Abstract subclasses must redefine this again." + + ^ self == AbstractHierarchicalItem. +! ! + !AbstractHierarchicalItem methodsFor:'accessing'! getChildren