equal
deleted
inserted
replaced
53 " |
53 " |
54 ! ! |
54 ! ! |
55 |
55 |
56 !ResourceSelectionBrowser class methodsFor:'instance creation'! |
56 !ResourceSelectionBrowser class methodsFor:'instance creation'! |
57 |
57 |
58 request: aTitle onSuperclass: aSuperclass andClass: aClass andSelector: aSelector withResourceTypes: aResourceTypes |
58 request: aTitle onSuperclass: aSuperclass andClass: aClass andSelector: aSelector withResourceTypes: resourceTypes |
59 |
59 |
60 "self |
60 " |
61 request: 'Select A Resource Selector' |
61 ResourceSelectionBrowser |
|
62 request: 'Select a Resource Selector' |
62 onSuperclass: #ApplicationModel |
63 onSuperclass: #ApplicationModel |
63 andClass: #ToolApplicationModel |
64 andClass: #ToolApplicationModel |
64 andSelector: #saveIcon |
65 andSelector: #saveIcon |
65 withResourceTypes: #(image) |
66 withResourceTypes: #(image) |
66 " |
67 " |
68 ^self new |
69 ^self new |
69 title: aTitle; |
70 title: aTitle; |
70 openOnSuperclass: aSuperclass |
71 openOnSuperclass: aSuperclass |
71 andClass: aClass |
72 andClass: aClass |
72 andSelector: aSelector |
73 andSelector: aSelector |
73 withResourceTypes: aResourceTypes |
74 withResourceTypes: resourceTypes |
74 ! ! |
75 ! ! |
75 |
76 |
76 !ResourceSelectionBrowser class methodsFor:'callbacks - default'! |
77 !ResourceSelectionBrowser class methodsFor:'callbacks - default'! |
77 |
78 |
78 treeViewChildren |
79 treeViewChildren |
237 #height: 20 |
238 #height: 20 |
238 #printSelector: #iconOn: |
239 #printSelector: #iconOn: |
239 #canSelect: false |
240 #canSelect: false |
240 ) |
241 ) |
241 #(#DataSetColumnSpec |
242 #(#DataSetColumnSpec |
242 #label: 'Selector' |
243 #label: ' Selector' |
|
244 #'labelAlignment:' #left |
243 #model: #selector |
245 #model: #selector |
244 #canSelect: false |
246 #canSelect: false |
245 ) |
247 ) |
246 (#DataSetColumnSpec |
248 (#DataSetColumnSpec |
247 #label: 'Resource' |
249 #label: ' Resource Type' |
|
250 #'labelAlignment:' #left |
248 #model: #resourceType |
251 #model: #resourceType |
249 #canSelect: false |
252 #canSelect: false |
250 )) |
253 )) |
251 ! ! |
254 ! ! |
252 |
255 |
419 ! |
422 ! |
420 |
423 |
421 resourceSelected |
424 resourceSelected |
422 |
425 |
423 resourceMethod := self selectionOfResource value. |
426 resourceMethod := self selectionOfResource value. |
424 self valueOfSelector value: self selectionOfResource value selector |
427 self selectionOfResource value notNil |
|
428 ifTrue: [self valueOfSelector value: self selectionOfResource value selector] |
425 ! ! |
429 ! ! |
426 |
430 |
427 !ResourceSelectionBrowser methodsFor:'instance creation'! |
431 !ResourceSelectionBrowser methodsFor:'instance creation'! |
428 |
432 |
429 openOnSuperclass: aSuperclassOrSymbol andClass: aClassOrSymbol andSelector: aSelector withResourceTypes: aResourceTypes |
433 openOnSuperclass: aSuperclassOrSymbol andClass: aClassOrSymbol andSelector: aSelector withResourceTypes: aResourceTypes |