--- a/extensions.st Wed Nov 22 14:30:43 2006 +0100
+++ b/extensions.st Wed Nov 22 14:30:46 2006 +0100
@@ -0,0 +1,49 @@
+"{ Package: 'stx:goodies/monticello' }"
+!
+
+!Class methodsFor:'*monticello'!
+
+asClassDefinition
+ ^ MCClassDefinition
+ name: self name
+ superclassName: self superclass name
+ category: self category
+ instVarNames: self instVarNames
+ classVarNames: self classVarNames
+ poolDictionaryNames: self poolDictionaryNames
+ classInstVarNames: self class instVarNames
+ type: self typeOfClass
+ comment: self organization classComment asString
+ commentStamp: self organization commentStamp
+! !
+
+!Class methodsFor:'*monticello'!
+
+classDefinitions
+ ^ Array with: self asClassDefinition
+! !
+
+!Class methodsFor:'*monticello'!
+
+poolDictionaryNames
+ ^ self sharedPools collect: [:ea | self environment keyAtIdentityValue: ea]
+! !
+
+!Object methodsFor:'*monticello'!
+
+isConflict
+ ^false
+! !
+
+!Stream methodsFor:'*monticello'!
+
+isMessageStream
+ ^ false
+! !
+
+!String methodsFor:'*monticello'!
+
+extractNumber
+ ^ ('0', self select: [:ea | ea isDigit]) asNumber
+! !
+