--- a/LibraryDefinition.st	Sat Aug 26 14:01:45 2006 +0200
+++ b/LibraryDefinition.st	Sat Aug 26 14:01:57 2006 +0200
@@ -948,77 +948,9 @@
 
 !LibraryDefinition class methodsFor:'update description'!
 
-classNamesAndAttributes_code
-    ^ String streamContents:[:s |
-        s nextPutLine:'classNamesAndAttributes'.
-        s nextPutLine:'    ^ #('.
-        s tab; nextPutLine:'"/ <className> or (<className> attributes...)'.
-        self searchForClasses do:[:eachClass |
-            |attributes specEntry|
-
-            (eachClass isLoaded not or:[eachClass isPrivate not]) ifTrue:[
-                specEntry := self classNamesAndAttributes detect:[:entry | entry first = eachClass name] ifNone:nil.
-                specEntry isNil ifTrue:[
-                    eachClass isLoaded ifFalse:[
-                        attributes := #( autoload ).
-                    ].
-                ] ifFalse:[
-                    attributes := specEntry copyFrom:2.
-                ].
-
-                s tab.
-                attributes isEmptyOrNil ifTrue:[
-                    s nextPutAll:eachClass name asString storeString.
-                ] ifFalse:[
-                    s nextPutAll:'('; nextPutAll:eachClass name asString storeString.
-                    attributes do:[:eachAttribute | s nextPutAll:' '. s nextPutAll:eachAttribute storeString.].
-                    s nextPutAll:')'.
-                ].
-                s cr.
-             ]
-        ].
-        s nextPutLine:'    )'
-    ].
-
-"
-    stx_libbasic3 classNamesAndAttributes_code
-"
-
-    "Modified: / 08-08-2006 / 19:24:34 / fm"
-    "Created: / 17-08-2006 / 21:03:07 / cg"
-    "Modified: / 21-08-2006 / 19:16:14 / cg"
-!
-
-extensionMethodNames_code
-    ^ String streamContents:[:s |
-        s nextPutLine:'extensionMethodNames'.
-        s nextPutLine:'    ^ #('.
-        self searchForExtensions do:[:eachMethod | 
-            s nextPutAll:eachMethod mclass name storeString. 
-            s nextPutAll:' '.
-            s nextPutLine: eachMethod selector storeString. 
-        ]. 
-        s nextPutLine:'    )'
-    ].
-
-"
-    self extensionMethodNames_code
-"
-
-    "Created: / 17-08-2006 / 21:21:48 / cg"
-!
-
 forEachMethodsCodeToCompileDo:aTwoArgBlock
     super forEachMethodsCodeToCompileDo:aTwoArgBlock.
 
-    aTwoArgBlock 
-        value:self classNamesAndAttributes_code
-        value:'description'.
-
-    aTwoArgBlock 
-        value: self extensionMethodNames_code
-        value: 'description'.
-
     "Created: / 10-08-2006 / 16:35:47 / cg"
     "Modified: / 18-08-2006 / 16:22:49 / cg"
 ! !
@@ -1026,5 +958,5 @@
 !LibraryDefinition class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/LibraryDefinition.st,v 1.51 2006-08-24 21:05:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/LibraryDefinition.st,v 1.52 2006-08-26 12:01:57 cg Exp $'
 ! !