# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1156944719 -7200
# Node ID 50b986cea25b224817dfe2d280a0052957c7f51a
# Parent  ff093d59cd37332b8d197b7701cd131715fe1fdb
*** empty log message ***

diff -r ff093d59cd37 -r 50b986cea25b ApplicationDefinition.st
--- a/ApplicationDefinition.st	Wed Aug 30 15:31:57 2006 +0200
+++ b/ApplicationDefinition.st	Wed Aug 30 15:31:59 2006 +0200
@@ -722,6 +722,21 @@
     "Modified: / 23-08-2006 / 15:38:27 / cg"
 ! !
 
+!ApplicationDefinition class methodsFor:'queries'!
+
+canHaveExtensions
+    "return true, if this class allows extensions from other packages.
+     Private classes, namespaces and projectDefinitions dont allow this"
+
+    ^ self == ApplicationDefinition
+
+    "
+     Smalltalk allClasses select:[:each | each canHaveExtensions not]
+    "
+
+    "Created: / 30-08-2006 / 15:29:49 / cg"
+! !
+
 !ApplicationDefinition class methodsFor:'sanity checks'!
 
 validateDescription
@@ -844,5 +859,5 @@
 !ApplicationDefinition class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ApplicationDefinition.st,v 1.20 2006-08-28 17:11:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ApplicationDefinition.st,v 1.21 2006-08-30 13:31:59 cg Exp $'
 ! !