--- a/MethodSelectionBrowser.st	Wed May 13 14:35:02 1998 +0200
+++ b/MethodSelectionBrowser.st	Wed May 13 14:38:36 1998 +0200
@@ -88,26 +88,34 @@
 
 !MethodSelectionBrowser class methodsFor:'list specs'!
 
-resourceMethodColumns
-    "returns the columns for the table of the resource methods"
+tableColumnsForResourceMethods
+    "This resource specification was automatically generated
+     by the DataSetBuilder of ST/X."
 
-  ^ #(
-   #(#DataSetColumnSpec
-      #label: ' Selector'
-      #'labelAlignment:' #left
-      #model: #selector
-      #canSelect: false
-  )
-   (#DataSetColumnSpec
-      #label: ' Protocol'
-      #'labelAlignment:' #left
-      #model: #protocol
-      #canSelect: false
-  ))
+    "Do not manually edit this!! If it is corrupted,
+     the DataSetBuilder may not be able to read the specification."
+
+    "
+     DataSetBuilder new openOnClass:MethodSelectionBrowser andSelector:#tableColumnsForResourceMethods
+    "
+
+    <resource: #tableColumns>
 
 
-
-
+    ^ #(
+        #(#DataSetColumnSpec
+           #label: ' Selector'
+           #labelAlignment: #left
+           #model: #selector
+           #canSelect: false
+       )
+        #(#DataSetColumnSpec
+           #label: ' Protocol'
+           #labelAlignment: #left
+           #model: #protocol
+           #canSelect: false
+       )
+     )
 ! !
 
 !MethodSelectionBrowser methodsFor:'aspects'!

--- a/ResourceSelectionBrowser.st	Wed May 13 14:35:02 1998 +0200
+++ b/ResourceSelectionBrowser.st	Wed May 13 14:38:36 1998 +0200
@@ -386,27 +386,40 @@
 
 !ResourceSelectionBrowser class methodsFor:'list specs'!
 
-resourceMethodColumns
-    "returns the columns for the table of the resource methods"
+tableColumnsForResourceMethods
+    "This resource specification was automatically generated
+     by the DataSetBuilder of ST/X."
+
+    "Do not manually edit this!! If it is corrupted,
+     the DataSetBuilder may not be able to read the specification."
+
+    "
+     DataSetBuilder new openOnClass:ResourceSelectionBrowser andSelector:#tableColumnsForResourceMethods
+    "
+
+    <resource: #tableColumns>
+
 
-  ^ #(#(#DataSetColumnSpec
-      #width: 20
-      #height: 20
-      #printSelector: #iconOn:
-      #canSelect: false
-  )
-   #(#DataSetColumnSpec
-      #label: ' Selector'
-      #'labelAlignment:' #left
-      #model: #selector
-      #canSelect: false
-  )
-   (#DataSetColumnSpec
-      #label: ' Resource Type'
-      #'labelAlignment:' #left
-      #model: #resourceType
-      #canSelect: false
-  ))
+    ^ #(
+        #(#DataSetColumnSpec
+           #width: 20
+           #height: 20
+           #printSelector: #iconOn:
+           #canSelect: false
+       )
+        #(#DataSetColumnSpec
+           #label: ' Selector'
+           #labelAlignment: #left
+           #model: #selector
+           #canSelect: false
+       )
+        #(#DataSetColumnSpec
+           #label: ' Resource Type'
+           #labelAlignment: #left
+           #model: #resourceType
+           #canSelect: false
+       )
+     )
 ! !
 
 !ResourceSelectionBrowser methodsFor:'aspects'!
@@ -432,8 +445,8 @@
 
     |holder|
     (holder := builder bindingAt:#resourceMethodColumns) isNil ifTrue:[
-	builder aspectAt:#resourceMethodColumns put:(holder := List new).
-	holder addAll: (self class resourceMethodColumns collect: [:i| i decodeAsLiteralArray]).
+        builder aspectAt:#resourceMethodColumns put:(holder := List new).
+        holder addAll: (self class tableColumnsForResourceMethods collect: [:i| i decodeAsLiteralArray]).
     ].
     ^ holder
 !