# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1458931340 -3600
# Node ID e2b5484e34679a19486609bc290fd5a690f58a65
# Parent  7aca47a2689a0f7bcc4c3afbfb49b86d05e451e4
#DOCUMENTATION
class: AbstractFileFinderApplicationComponent
added: #isAbstract

diff -r 7aca47a2689a -r e2b5484e3467 AbstractFileFinderApplicationComponent.st
--- a/AbstractFileFinderApplicationComponent.st	Fri Mar 25 19:41:28 2016 +0100
+++ b/AbstractFileFinderApplicationComponent.st	Fri Mar 25 19:42:20 2016 +0100
@@ -39,6 +39,16 @@
 "
 ! !
 
+!AbstractFileFinderApplicationComponent 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 == AbstractFileFinderApplicationComponent.
+! !
+
 !AbstractFileFinderApplicationComponent methodsFor:'accessing'!
 
 accessLock