equal
deleted
inserted
replaced
80 "ResourceSelectionBrowser open" |
80 "ResourceSelectionBrowser open" |
81 |
81 |
82 <resource: #canvas> |
82 <resource: #canvas> |
83 |
83 |
84 ^ |
84 ^ |
85 |
85 |
86 #(#FullSpec |
86 #(#FullSpec |
87 #'window:' |
87 #'window:' |
88 #(#WindowSpec |
88 #(#WindowSpec |
89 #'name:' 'Resource Browser' |
89 #'name:' 'Resource Browser' |
90 #'layout:' #(#LayoutFrame 74 0 329 0 485 0 628 0) |
90 #'layout:' #(#LayoutFrame 169 0 290 0 580 0 589 0) |
91 #'label:' 'Resource Browser' |
91 #'label:' 'Resource Browser' |
92 #'min:' #(#Point 400 300) |
92 #'min:' #(#Point 400 300) |
93 #'max:' #(#Point 1152 864) |
93 #'max:' #(#Point 1152 864) |
94 #'bounds:' #(#Rectangle 74 329 486 629) |
94 #'bounds:' #(#Rectangle 169 290 581 590) |
95 #'usePreferredExtent:' false |
95 #'usePreferredExtent:' false |
96 ) |
96 ) |
97 #'component:' |
97 #'component:' |
98 #(#SpecCollection |
98 #(#SpecCollection |
99 #'collection:' |
99 #'collection:' |
117 #'model:' #selectionOfClass |
117 #'model:' #selectionOfClass |
118 #'hasHorizontalScrollBar:' true |
118 #'hasHorizontalScrollBar:' true |
119 #'hasVerticalScrollBar:' true |
119 #'hasVerticalScrollBar:' true |
120 #'miniScrollerHorizontal:' true |
120 #'miniScrollerHorizontal:' true |
121 #'showRoot:' false |
121 #'showRoot:' false |
|
122 #'showDirectoryIndicatorForRoot:' false |
|
123 #'showDirectoryIndicator:' true |
122 #'valueChangeSelector:' #'classSelected:' |
124 #'valueChangeSelector:' #'classSelected:' |
123 #'hierarchicalList:' #listOfClasses |
125 #'hierarchicalList:' #listOfClasses |
124 ) |
126 ) |
125 #(#InputFieldSpec |
127 #(#InputFieldSpec |
126 #'name:' 'classNameInputField' |
128 #'name:' 'classNameInputField' |
127 #'layout:' #(#LayoutFrame 0 0.0 -22 1 0 1.0 0 1) |
129 #'layout:' #(#LayoutFrame 0 0.0 -22 1 0 1.0 0 1) |
128 #'model:' #valueOfClassName |
130 #'model:' #valueOfClassName |
129 ) |
131 ) |
130 ) |
132 ) |
131 ) |
133 ) |
132 #'level:' -1 |
|
133 ) |
134 ) |
134 #(#ViewSpec |
135 #(#ViewSpec |
135 #'name:' 'view2' |
136 #'name:' 'view2' |
136 #'component:' |
137 #'component:' |
137 #(#SpecCollection |
138 #(#SpecCollection |
174 #'layout:' #(#LayoutFrame 2 0.0 -22 1 2 1.0 0 1) |
175 #'layout:' #(#LayoutFrame 2 0.0 -22 1 2 1.0 0 1) |
175 #'model:' #valueOfSelector |
176 #'model:' #valueOfSelector |
176 ) |
177 ) |
177 ) |
178 ) |
178 ) |
179 ) |
179 #'level:' -1 |
|
180 ) |
180 ) |
181 ) |
181 ) |
182 ) |
182 ) |
183 #'handles:' #(#Any 0.5 1.0) |
183 #'handles:' #(#Any 0.5 1.0) |
184 ) |
184 ) |
189 #'minorKey:' #windowSpecForCommitWithoutChannels |
189 #'minorKey:' #windowSpecForCommitWithoutChannels |
190 ) |
190 ) |
191 ) |
191 ) |
192 ) |
192 ) |
193 ) |
193 ) |
194 |
|
195 ! ! |
194 ! ! |
196 |
195 |
197 !ResourceSelectionBrowser methodsFor:'accessing - views'! |
196 !ResourceSelectionBrowser methodsFor:'accessing - views'! |
198 |
197 |
199 classNameInputField |
198 classNameInputField |
303 !ResourceSelectionBrowser methodsFor:'initialization'! |
302 !ResourceSelectionBrowser methodsFor:'initialization'! |
304 |
303 |
305 postBuildWith:aBuilder |
304 postBuildWith:aBuilder |
306 |
305 |
307 |classSelection classSelectionBlock| |
306 |classSelection classSelectionBlock| |
308 classSelection := self class lastSelection ? resourceClass. |
307 classSelection := self class lastSelection ? resourceClass ? ''. |
309 classSelectionBlock := [:cls| |
308 classSelectionBlock := [:cls| |
310 self listOfClassesView selectFromListOfNames: |
309 self listOfClassesView selectFromListOfNames: |
311 (((Smalltalk at: cls asSymbol ifAbsent: [Object])) |
310 (((Smalltalk at: cls asSymbol ifAbsent: [Object])) |
312 withAllSuperclasses reverse collect: [:cls| cls name asString])]. |
311 withAllSuperclasses reverse collect: [:cls| cls name asString])]. |
313 classSelectionBlock value: classSelection. |
312 classSelectionBlock value: classSelection. |