# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1486722132 -3600
# Node ID d259ac0f3ba6c00cbafc708982a21652db176127
# Parent  9f38d94ea7529f4505c72dd627734a7aa05ab020
#OTHER by cg
added: #isAbstract

diff -r 9f38d94ea752 -r d259ac0f3ba6 AbstractHierarchicalItem.st
--- 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