--- 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