--- a/ClassBuilder.st	Sat Aug 20 21:29:33 2011 +0100
+++ b/ClassBuilder.st	Mon Aug 22 11:53:10 2011 +0100
@@ -12,18 +12,18 @@
 "{ Package: 'stx:libbasic' }"
 
 Object subclass:#ClassBuilder
-	instanceVariableNames:'metaclass classClass className environment superClass
-		instanceVariableNames flags classVariableNames poolDictionaries
-		category comment changed classInstanceVariableNames oldMetaClass
-		oldClass oldPoolDictionaries oldSuperClass oldClassVars
-		oldInstVars realNewName buildPrivateClass buildingPrivateClass
-		nameKey newSuperClass superClassChange newClassVars newInstVars
-		classVarChange instVarChange recompileGlobalAccessTo
-		oldClassToBecomeNew oldClassInstVars newClassInstVars'
-	classVariableNames:'LastNamespace LastNamespaceName LastClassesInNameSpace
-		LastClassNamesInNameSpace'
-	poolDictionaries:''
-	category:'Kernel-Support'
+        instanceVariableNames:'metaclass classClass className environment superClass
+                instanceVariableNames flags classVariableNames poolDictionaries
+                category comment changed classInstanceVariableNames oldMetaClass
+                oldClass oldPoolDictionaries oldSuperClass oldClassVars
+                oldInstVars realNewName buildPrivateClass buildingPrivateClass
+                nameKey newSuperClass superClassChange newClassVars newInstVars
+                classVarChange instVarChange recompileGlobalAccessTo
+                oldClassToBecomeNew oldClassInstVars newClassInstVars'
+        classVariableNames:'LastNamespace LastNamespaceName LastClassesInNameSpace
+                LastClassNamesInNameSpace'
+        poolDictionaries:''
+        category:'Kernel-Support'
 !
 
 !ClassBuilder class methodsFor:'documentation'!
@@ -2279,15 +2279,59 @@
     "Modified: 9.1.1997 / 02:10:02 / cg"
 ! !
 
+!ClassBuilder methodsFor:'compatibility - squeak'!
+
+name:newName 
+    inEnvironment:aSystemDictionaryOrClass 
+    subclassOf:aClass
+    type: type 
+    instanceVariableNames: stringOfInstVarNames 
+    classVariableNames: stringOfClassVarNames 
+    poolDictionaries: stringOfPoolNames
+    category: categoryString
+
+    "this returns the created class; it is not a simple accessor"
+
+    |variableBoolean wordsBoolean pointersBoolean|
+
+    variableBoolean := wordsBoolean := pointersBoolean := false.
+    type ~~ #normal ifTrue:[
+        type == #variable ifTrue:[
+            variableBoolean := true
+        ] ifFalse:[
+self halt:'todo'.
+        ].
+    ].
+
+    self 
+        name:newName 
+        inEnvironment:aSystemDictionaryOrClass 
+        subclassOf:aClass 
+        instanceVariableNames:stringOfInstVarNames 
+        variable:variableBoolean 
+        words:wordsBoolean 
+        pointers:pointersBoolean 
+        classVariableNames:stringOfClassVarNames 
+        poolDictionaries:stringOfPoolNames 
+        category:categoryString 
+        comment:''
+        changed:false
+        classInstanceVariableNames:''.
+
+    ^ self buildClass
+
+    "Modified: / 20-08-2011 / 18:33:45 / cg"
+! !
 
 !ClassBuilder class methodsFor:'documentation'!
 
 version
-    ^ '$Id: ClassBuilder.st 10672 2011-08-20 20:29:33Z vranyj1 $'
+    ^ '$Id: ClassBuilder.st 10675 2011-08-22 10:53:10Z vranyj1 $'
 !
 
 version_CVS
-    ^ 'Header: /cvs/stx/stx/libbasic/ClassBuilder.st,v 1.103 2011/08/20 15:44:43 cg Exp '
+    ^ 'Header: /cvs/stx/stx/libbasic/ClassBuilder.st,v 1.104 2011/08/20 17:44:19 cg Exp '
 ! !
 
 ClassBuilder initialize!
+