# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1164202246 -3600
# Node ID 6eea73c5dc65b226a20ac72e353c304dc9cbcb0e
# Parent  5f4d5b42752409fce3de1b6f687f528a0f685a05
*** empty log message ***

diff -r 5f4d5b427524 -r 6eea73c5dc65 extensions.st
--- 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
+! !
+