equal
deleted
inserted
replaced
170 |
170 |
171 #(#FullSpec |
171 #(#FullSpec |
172 #'window:' |
172 #'window:' |
173 #(#WindowSpec |
173 #(#WindowSpec |
174 #'name:' 'HelpTool' |
174 #'name:' 'HelpTool' |
175 #'layout:' #(#LayoutFrame 199 0 167 0 794 0 664 0) |
175 #'layout:' #(#LayoutFrame 136 0 718 0 731 0 1215 0) |
176 #'label:' 'HelpTool' |
176 #'label:' 'HelpTool' |
177 #'min:' #(#Point 10 10) |
177 #'min:' #(#Point 10 10) |
178 #'max:' #(#Point 1160 870) |
178 #'max:' #(#Point 1160 870) |
179 #'bounds:' #(#Rectangle 199 167 795 665) |
179 #'bounds:' #(#Rectangle 136 718 732 1216) |
180 ) |
180 ) |
181 #'component:' |
181 #'component:' |
182 #(#SpecCollection |
182 #(#SpecCollection |
183 #'collection:' |
183 #'collection:' |
184 #( |
184 #( |
201 #'miniScrollerHorizontal:' true |
201 #'miniScrollerHorizontal:' true |
202 #'miniScrollerVertical:' true |
202 #'miniScrollerVertical:' true |
203 ) |
203 ) |
204 #(#SequenceViewSpec |
204 #(#SequenceViewSpec |
205 #'name:' 'selectionList' |
205 #'name:' 'selectionList' |
206 #'model:' #selectionListModel |
206 #'model:' #listModel |
207 #'hasHorizontalScrollBar:' true |
207 #'hasHorizontalScrollBar:' true |
208 #'hasVerticalScrollBar:' true |
208 #'hasVerticalScrollBar:' true |
209 #'miniScrollerHorizontal:' true |
209 #'miniScrollerHorizontal:' true |
210 #'miniScrollerVertical:' true |
210 #'miniScrollerVertical:' true |
|
211 #'useIndex:' false |
|
212 #'sequenceList:' #listChannel |
211 ) |
213 ) |
212 ) |
214 ) |
213 ) |
215 ) |
|
216 #'handles:' #(#Any 0.5 1.0) |
214 ) |
217 ) |
215 ) |
218 ) |
216 ) |
219 ) |
217 ) |
220 ) |
218 ! |
221 ! |
432 (holder := builder bindingAt:#listModel) isNil ifTrue:[ |
435 (holder := builder bindingAt:#listModel) isNil ifTrue:[ |
433 holder := AspectAdaptor new subject:self; forAspect:#listSelection. |
436 holder := AspectAdaptor new subject:self; forAspect:#listSelection. |
434 builder aspectAt:#listModel put:holder. |
437 builder aspectAt:#listModel put:holder. |
435 ]. |
438 ]. |
436 ^ holder |
439 ^ holder |
437 ! |
|
438 |
|
439 selectionListModel |
|
440 "automatically generated by UIPainter ..." |
|
441 |
|
442 |holder| |
|
443 |
|
444 (holder := builder bindingAt:#selectionListModel) isNil ifTrue:[ |
|
445 builder aspectAt:#selectionListModel put:(holder := SelectionInList new). |
|
446 holder listHolder:(self listChannel). |
|
447 holder selectionIndexHolder:(self listModel). |
|
448 ]. |
|
449 ^ holder |
|
450 ! ! |
440 ! ! |
451 |
441 |
452 !UIHelpTool methodsFor:'initialization'! |
442 !UIHelpTool methodsFor:'initialization'! |
453 |
443 |
454 initialize |
444 initialize |