MethodSelectionBrowser.st
changeset 821 950e6fbbc1f0
parent 789 ee325d04f292
child 823 47e7d348e01a
--- 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'!