--- a/Class.st	Mon Oct 09 12:46:31 2000 +0200
+++ b/Class.st	Mon Oct 09 15:22:19 2000 +0200
@@ -3355,6 +3355,22 @@
     "
 !
 
+hasExtensionsFrom:aPackageID
+    "return true, if there are methods in the receiver, which belong to
+     the package with aPackageID (i.e. package of class ~= package of method).
+     Those are class extensions, which must be treated specially when checking classes
+     into the sourceCode repository. (extensions are stored separate)" 
+
+    self allSelectorsAndMethodsDo:[:sel :mthd |
+        mthd package ~= package ifTrue:[^ true].
+    ].
+    ^ false
+
+    "
+     Smalltalk allClasses select:[:each | each hasExtensionsFrom:'stx:goodies/refactyBrowser'] 
+    "
+!
+
 isClass
     "return true, if the receiver is some kind of class 
      (a real class, not just behavior);
@@ -4486,5 +4502,5 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.381 2000-09-27 07:40:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.382 2000-10-09 13:22:08 cg Exp $'
 ! !

--- a/Metaclass.st	Mon Oct 09 12:46:31 2000 +0200
+++ b/Metaclass.st	Mon Oct 09 15:22:19 2000 +0200
@@ -2004,6 +2004,12 @@
 
 !
 
+hasExtensionsFrom:aPackageID
+    "return true if I have extensions from a package"
+
+    ^ myClass hasExtensionsFrom:aPackageID
+!
+
 isBuiltInClass
     "return true if this class is known by the run-time-system.
      Here, true is returned for myself, false for subclasses."
@@ -2133,6 +2139,6 @@
 !Metaclass class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.171 2000-09-26 12:40:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.172 2000-10-09 13:22:19 cg Exp $'
 ! !
 Metaclass initialize!