--- a/LibraryDefinition.st Wed Aug 30 15:22:57 2006 +0200
+++ b/LibraryDefinition.st Wed Aug 30 15:31:57 2006 +0200
@@ -893,6 +893,21 @@
"Created: / 18-08-2006 / 13:01:52 / cg"
! !
+!LibraryDefinition 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:53 / cg"
+! !
+
!LibraryDefinition class methodsFor:'sanity checks'!
searchForInconsistencies
@@ -961,5 +976,5 @@
!LibraryDefinition class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/LibraryDefinition.st,v 1.55 2006-08-30 12:48:18 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/LibraryDefinition.st,v 1.56 2006-08-30 13:31:57 cg Exp $'
! !