equal
deleted
inserted
replaced
384 ) |
384 ) |
385 ! ! |
385 ! ! |
386 |
386 |
387 !ResourceSelectionBrowser class methodsFor:'list specs'! |
387 !ResourceSelectionBrowser class methodsFor:'list specs'! |
388 |
388 |
389 tableColumnsForResourceMethods |
389 tableColumnsForResourceMethodAttributes |
390 "This resource specification was automatically generated |
390 "This resource specification was automatically generated |
391 by the DataSetBuilder of ST/X." |
391 by the DataSetBuilder of ST/X." |
392 |
392 |
393 "Do not manually edit this!! If it is corrupted, |
393 "Do not manually edit this!! If it is corrupted, |
394 the DataSetBuilder may not be able to read the specification." |
394 the DataSetBuilder may not be able to read the specification." |
395 |
395 |
396 " |
396 " |
397 DataSetBuilder new openOnClass:ResourceSelectionBrowser andSelector:#tableColumnsForResourceMethods |
397 DataSetBuilder new openOnClass:ResourceSelectionBrowser andSelector:#tableColumnsForResourceMethodAttributes |
398 " |
398 " |
399 |
399 |
400 <resource: #tableColumns> |
400 <resource: #tableColumns> |
401 |
401 |
402 |
402 |
444 "returns the columns for the table of the resource methods as value holder" |
444 "returns the columns for the table of the resource methods as value holder" |
445 |
445 |
446 |holder| |
446 |holder| |
447 (holder := builder bindingAt:#resourceMethodColumns) isNil ifTrue:[ |
447 (holder := builder bindingAt:#resourceMethodColumns) isNil ifTrue:[ |
448 builder aspectAt:#resourceMethodColumns put:(holder := List new). |
448 builder aspectAt:#resourceMethodColumns put:(holder := List new). |
449 holder addAll: (self class tableColumnsForResourceMethods collect: [:i| i decodeAsLiteralArray]). |
449 holder addAll: (self class tableColumnsForResourceMethodAttributes collect: [:i| i decodeAsLiteralArray]). |
450 ]. |
450 ]. |
451 ^ holder |
451 ^ holder |
452 ! |
452 ! |
453 |
453 |
454 rootOfClasses |
454 rootOfClasses |