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 resourceMethodColumns |
389 tableColumnsForResourceMethods |
390 "returns the columns for the table of the resource methods" |
390 "This resource specification was automatically generated |
391 |
391 by the DataSetBuilder of ST/X." |
392 ^ #(#(#DataSetColumnSpec |
392 |
393 #width: 20 |
393 "Do not manually edit this!! If it is corrupted, |
394 #height: 20 |
394 the DataSetBuilder may not be able to read the specification." |
395 #printSelector: #iconOn: |
395 |
396 #canSelect: false |
396 " |
397 ) |
397 DataSetBuilder new openOnClass:ResourceSelectionBrowser andSelector:#tableColumnsForResourceMethods |
398 #(#DataSetColumnSpec |
398 " |
399 #label: ' Selector' |
399 |
400 #'labelAlignment:' #left |
400 <resource: #tableColumns> |
401 #model: #selector |
401 |
402 #canSelect: false |
402 |
403 ) |
403 ^ #( |
404 (#DataSetColumnSpec |
404 #(#DataSetColumnSpec |
405 #label: ' Resource Type' |
405 #width: 20 |
406 #'labelAlignment:' #left |
406 #height: 20 |
407 #model: #resourceType |
407 #printSelector: #iconOn: |
408 #canSelect: false |
408 #canSelect: false |
409 )) |
409 ) |
|
410 #(#DataSetColumnSpec |
|
411 #label: ' Selector' |
|
412 #labelAlignment: #left |
|
413 #model: #selector |
|
414 #canSelect: false |
|
415 ) |
|
416 #(#DataSetColumnSpec |
|
417 #label: ' Resource Type' |
|
418 #labelAlignment: #left |
|
419 #model: #resourceType |
|
420 #canSelect: false |
|
421 ) |
|
422 ) |
410 ! ! |
423 ! ! |
411 |
424 |
412 !ResourceSelectionBrowser methodsFor:'aspects'! |
425 !ResourceSelectionBrowser methodsFor:'aspects'! |
413 |
426 |
414 helpEnabled |
427 helpEnabled |
430 resourceMethodColumns |
443 resourceMethodColumns |
431 "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" |
432 |
445 |
433 |holder| |
446 |holder| |
434 (holder := builder bindingAt:#resourceMethodColumns) isNil ifTrue:[ |
447 (holder := builder bindingAt:#resourceMethodColumns) isNil ifTrue:[ |
435 builder aspectAt:#resourceMethodColumns put:(holder := List new). |
448 builder aspectAt:#resourceMethodColumns put:(holder := List new). |
436 holder addAll: (self class resourceMethodColumns collect: [:i| i decodeAsLiteralArray]). |
449 holder addAll: (self class tableColumnsForResourceMethods collect: [:i| i decodeAsLiteralArray]). |
437 ]. |
450 ]. |
438 ^ holder |
451 ^ holder |
439 ! |
452 ! |
440 |
453 |
441 rootOfClasses |
454 rootOfClasses |