ClassDescription.st
changeset 18475 481255dbea63
parent 18458 c0a0b169ae66
child 18481 2d8c1c806f1a
--- a/ClassDescription.st	Wed Jun 10 00:04:20 2015 +0200
+++ b/ClassDescription.st	Wed Jun 10 00:05:50 2015 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
@@ -662,26 +660,6 @@
 
 !ClassDescription methodsFor:'Compatibility-Dolphin'!
 
-categoriesFor:aMethodSelector
-    "this method allows fileIn of Dolphin methods -
-     return a MethodCategoriesReader to read in a methods categories for me.
-     Since Dolphin uses a different way to assign method categories,
-     loaded methods are temporarily categorized as 'Dolphin methods'
-     and later reassigned, when a categoriesFor: message arrives."
-
-    ^ Dolphin::MethodCategoriesReader class:self selector:aMethodSelector
-!
-
-categoriesForClass
-    "this method allows fileIn of Dolphin classes -
-     return a ClassCategoriesReader to read in a classes categories for me.
-     Since Dolphin uses a different way to assign class categories,
-     the loaded classes are temporarily categorized as 'ST/V classes'
-     and later reassigned, when a categoriesForClass message arrives."
-
-    ^ Dolphin::ClassCategoriesReader class:self
-!
-
 methodsFor
     "this method allows fileIn of Dolphin methods -
      return a ClassCategoryReader to read in and compile methods for me.
@@ -2010,22 +1988,6 @@
 
 !ClassDescription methodsFor:'fileIn interface'!
 
-commentStamp:aStamp prior:whatever
-    "return a ClassCategoryReader to read in and compile methods for me.
-     This was added to allow squeak code to be filedIn."
-
-    Squeak::ClassCommentReader isNil ifTrue:[
-        Smalltalk loadPackage:'stx:libcompat'
-    ].
-
-    ^ Squeak::ClassCommentReader new
-        class:self
-        category:#Comment
-        changeStamp:aStamp
-
-    "Modified: / 6.6.1998 / 01:47:06 / cg"
-!
-
 ignoredMethodsFor:aCategory
     "this is a speciality of ST/X - it allows quick commenting of methods
      from a source-file by replacing the 'methodsFor:' by 'ignoredMethodsFor:'.
@@ -4335,11 +4297,11 @@
 !ClassDescription class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.264 2015-06-08 00:22:59 cg Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.264 2015-06-08 00:22:59 cg Exp $'
+    ^ '$Header$'
 ! !