equal
deleted
inserted
replaced
225 |
225 |
226 #(#FullSpec |
226 #(#FullSpec |
227 #window: |
227 #window: |
228 #(#WindowSpec |
228 #(#WindowSpec |
229 #name: 'Resource Selection Browser' |
229 #name: 'Resource Selection Browser' |
230 #layout: #(#LayoutFrame 293 0 266 0 892 0 615 0) |
230 #layout: #(#LayoutFrame 194 0 307 0 793 0 656 0) |
231 #label: 'Resource Selection Browser' |
231 #label: 'Resource Selection Browser' |
232 #min: #(#Point 400 300) |
232 #min: #(#Point 400 300) |
233 #max: #(#Point 1152 864) |
233 #max: #(#Point 1152 864) |
234 #bounds: #(#Rectangle 293 266 893 616) |
234 #bounds: #(#Rectangle 194 307 794 657) |
235 #usePreferredExtent: false |
235 #usePreferredExtent: false |
236 ) |
236 ) |
237 #component: |
237 #component: |
238 #(#SpecCollection |
238 #(#SpecCollection |
239 #collection: |
239 #collection: |
240 #( |
240 #( |
241 #(#VariableHorizontalPanelSpec |
241 #(#VariableHorizontalPanelSpec |
242 #name: 'VariableHorizontalPanel' |
242 #name: 'VariableHorizontalPanel' |
243 #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) |
243 #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 -36 1.0) |
244 #component: |
244 #component: |
245 #(#SpecCollection |
245 #(#SpecCollection |
246 #collection: |
246 #collection: |
247 #( |
247 #( |
248 #(#ViewSpec |
248 #(#ViewSpec |
264 #translateLabel: true |
264 #translateLabel: true |
265 #model: #selectionOfClassPresentation |
265 #model: #selectionOfClassPresentation |
266 #isTriggerOnDown: true |
266 #isTriggerOnDown: true |
267 #lampColor: #(#Color 0.0 0.0 0.0) |
267 #lampColor: #(#Color 0.0 0.0 0.0) |
268 #select: #'Class Categories' |
268 #select: #'Class Categories' |
269 #extent: #(#Point 150 21) |
269 #extent: #(#Point 124 21) |
270 ) |
270 ) |
271 #(#RadioButtonSpec |
271 #(#RadioButtonSpec |
272 #name: 'ClassHierarchyRadioButton' |
272 #name: 'ClassHierarchyRadioButton' |
273 #label: 'Class Hierarchy' |
273 #label: 'Class Hierarchy' |
274 #translateLabel: true |
274 #translateLabel: true |
285 #horizontalSpace: 3 |
285 #horizontalSpace: 3 |
286 #verticalSpace: 3 |
286 #verticalSpace: 3 |
287 ) |
287 ) |
288 #(#SelectionInTreeViewSpec |
288 #(#SelectionInTreeViewSpec |
289 #name: 'listOfClassHierarchyView' |
289 #name: 'listOfClassHierarchyView' |
290 #layout: #(#LayoutFrame 0 0.0 23 0.0 0 1.0 -60 1.0) |
290 #layout: #(#LayoutFrame 0 0.0 23 0.0 0 1.0 -24 1.0) |
291 #tabable: true |
291 #tabable: true |
292 #model: #selectionOfClassHierarchy |
292 #model: #selectionOfClassHierarchy |
293 #hasHorizontalScrollBar: true |
293 #hasHorizontalScrollBar: true |
294 #hasVerticalScrollBar: true |
294 #hasVerticalScrollBar: true |
295 #miniScrollerHorizontal: true |
295 #miniScrollerHorizontal: true |
303 #childrenSelector: #treeViewClassHierarchyChildren |
303 #childrenSelector: #treeViewClassHierarchyChildren |
304 #iconSelector: #treeViewClassHierarchyIcon |
304 #iconSelector: #treeViewClassHierarchyIcon |
305 ) |
305 ) |
306 #(#SelectionInTreeViewSpec |
306 #(#SelectionInTreeViewSpec |
307 #name: 'listOfClassCategoriesView' |
307 #name: 'listOfClassCategoriesView' |
308 #layout: #(#LayoutFrame 0 0.0 23 0.0 0 1.0 -60 1.0) |
308 #layout: #(#LayoutFrame 0 0.0 23 0.0 0 1.0 -24 1.0) |
309 #tabable: true |
309 #tabable: true |
310 #model: #selectionOfClassCategories |
310 #model: #selectionOfClassCategories |
311 #hasHorizontalScrollBar: true |
311 #hasHorizontalScrollBar: true |
312 #hasVerticalScrollBar: true |
312 #hasVerticalScrollBar: true |
313 #miniScrollerHorizontal: true |
313 #miniScrollerHorizontal: true |
319 #childrenSelector: #treeViewClassCategoryChildren |
319 #childrenSelector: #treeViewClassCategoryChildren |
320 #iconSelector: #treeViewClassCategoryIcon |
320 #iconSelector: #treeViewClassCategoryIcon |
321 ) |
321 ) |
322 #(#InputFieldSpec |
322 #(#InputFieldSpec |
323 #name: 'classNameInputField' |
323 #name: 'classNameInputField' |
324 #layout: #(#LayoutFrame 2 0.0 -58 1 -1 1.0 -36 1) |
324 #layout: #(#LayoutFrame 2 0.0 -22 1 -1 1.0 0 1) |
325 #tabable: true |
325 #tabable: true |
326 #model: #valueOfClassName |
326 #model: #valueOfClassName |
327 ) |
327 ) |
328 ) |
328 ) |
329 ) |
329 ) |
334 #(#SpecCollection |
334 #(#SpecCollection |
335 #collection: |
335 #collection: |
336 #( |
336 #( |
337 #(#DataSetSpec |
337 #(#DataSetSpec |
338 #name: 'resourcesDataSetView' |
338 #name: 'resourcesDataSetView' |
339 #layout: #(#LayoutFrame 2 0.0 2 0.0 -2 1.0 -60 1.0) |
339 #layout: #(#LayoutFrame 2 0.0 2 0.0 -2 1.0 -24 1.0) |
340 #model: #selectionOfResourceMethod |
340 #model: #selectionOfResourceMethod |
341 #hasHorizontalScrollBar: true |
341 #hasHorizontalScrollBar: true |
342 #hasVerticalScrollBar: true |
342 #hasVerticalScrollBar: true |
343 #miniScrollerHorizontal: true |
343 #miniScrollerHorizontal: true |
344 #rowClassName: 'ResourceSelectionBrowser::Row' |
344 #rowClassName: 'ResourceSelectionBrowser::Row' |
351 #valueChangeSelector: #resourceSelected |
351 #valueChangeSelector: #resourceSelected |
352 #verticalSpacing: 1 |
352 #verticalSpacing: 1 |
353 ) |
353 ) |
354 #(#InputFieldSpec |
354 #(#InputFieldSpec |
355 #name: 'selectorInputField' |
355 #name: 'selectorInputField' |
356 #layout: #(#LayoutFrame 2 0.0 -58 1 -2 1.0 -36 1) |
356 #layout: #(#LayoutFrame 2 0.0 -22 1 -2 1.0 0 1) |
357 #tabable: true |
357 #tabable: true |
358 #model: #valueOfResourceSelector |
358 #model: #valueOfResourceSelector |
359 ) |
359 ) |
360 ) |
360 ) |
361 ) |
361 ) |
788 classNameInputField contents:what first. |
788 classNameInputField contents:what first. |
789 oldClassName = classNameInputField contents ifTrue:[classNameInputField flash]. |
789 oldClassName = classNameInputField contents ifTrue:[classNameInputField flash]. |
790 classSelectionBlock value: classNameInputField contents |
790 classSelectionBlock value: classNameInputField contents |
791 ]. |
791 ]. |
792 |
792 |
793 ClassPresentation = #'Class Hierarchy' |
|
794 ifTrue: [(builder componentAt: #listOfClassHierarchyView) raise]. |
|
795 |
|
796 classSelectionBlock value: self valueOfClassName value. |
793 classSelectionBlock value: self valueOfClassName value. |
797 self classSelected. |
794 self classSelected. |
798 self selectionOfResourceMethod value: (self listOfResourceMethods detect: [:m| m selector == resourceMethod] ifNone: nil). |
795 self selectionOfResourceMethod value: (self listOfResourceMethods detect: [:m| m selector == resourceMethod] ifNone: nil). |
799 |
796 |
800 ^super postBuildWith:aBuilder |
797 ^super postBuildWith:aBuilder |
|
798 |
|
799 ! |
|
800 |
|
801 postOpenWith:aBuilder |
|
802 "after opening and if turned on make hierarchy view visible" |
|
803 |
|
804 ClassPresentation = #'Class Hierarchy' |
|
805 ifTrue: [(builder componentAt: #listOfClassHierarchyView) raise]. |
|
806 |
|
807 ^super postOpenWith:aBuilder |
801 |
808 |
802 ! ! |
809 ! ! |
803 |
810 |
804 !ResourceSelectionBrowser::ResourceMethod methodsFor:'accessing'! |
811 !ResourceSelectionBrowser::ResourceMethod methodsFor:'accessing'! |
805 |
812 |