--- 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 $'
! !