--- 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
!