--- a/LibraryDefinition.st	Thu Aug 17 16:10:58 2006 +0200
+++ b/LibraryDefinition.st	Thu Aug 17 16:11:00 2006 +0200
@@ -35,56 +35,6 @@
 "
 ! !
 
-!ProjectDefinition class methodsFor:'instance creation'!
-
-definitionClassForPackage:aPackageID
-    ^ self definitionClassForPackage:aPackageID createIfAbsent:false
-
-    "Modified: / 11-08-2006 / 14:29:21 / cg"
-!
-
-definitionClassForPackage:aPackageID createIfAbsent:doCreateIfAbsent
-    |class|
-
-    class := Smalltalk at:(aPackageID asString copy replaceAny:':/' with:$_) asSymbol.
-    class isNil ifTrue:[
-        doCreateIfAbsent ifTrue:[
-            ^ self newForPackage:aPackageID    
-        ]
-    ].
-    ^ class.
-
-    "Created: / 11-08-2006 / 14:28:51 / cg"
-!
-
-newForPackage:packageID
-    ^ self 
-        newNamed:(self initialClassNameForDefinitionOf:packageID) 
-        package:packageID.
-
-    "Created: / 11-08-2006 / 14:27:19 / cg"
-!
-
-newNamed:newName package:packageID
-    |newClass|
-
-    "/ for now, we are strict.
-    self assert:(self initialClassNameForDefinitionOf:packageID) = newName.
-    newClass := self
-                    subclass:(newName asSymbol)
-                    instanceVariableNames:''
-                    classVariableNames:''
-                    poolDictionaries:''
-                    category:(self defaultCategory).
-
-    newClass package:packageID asSymbol.
-    ^ newClass
-
-    "Created: / 09-08-2006 / 17:57:37 / fm"
-    "Modified: / 09-08-2006 / 19:27:53 / fm"
-    "Modified: / 11-08-2006 / 14:18:01 / cg"
-! !
-
 !ProjectDefinition class methodsFor:'defaults'!
 
 defaultDescription
@@ -751,6 +701,14 @@
     "Created: / 09-08-2006 / 16:31:54 / fm"
 ! !
 
+!ProjectDefinition class methodsFor:'testing'!
+
+isProjectDefinition
+    ^ self ~~ ProjectDefinition
+
+    "Created: / 17-08-2006 / 14:11:46 / cg"
+! !
+
 !ProjectDefinition class methodsFor:'update description'!
 
 autoloadedClassNamesGeneratedCodeToCompile
@@ -893,22 +851,8 @@
     "Created: / 10-08-2006 / 16:35:47 / cg"
 ! !
 
-!ProjectDefinition class methodsFor:'xxx'!
-
-try
-   ^ 'hhh' , '989898'
-
-    "Created: / 09-08-2006 / 16:50:52 / fm"
-!
-
-try2
-   ^ 1 + 2
-
-    "Created: / 09-08-2006 / 16:53:16 / fm"
-! !
-
 !ProjectDefinition class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/LibraryDefinition.st,v 1.20 2006-08-16 16:52:14 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/LibraryDefinition.st,v 1.21 2006-08-17 14:11:00 cg Exp $'
 ! !