equal
deleted
inserted
replaced
73 component: |
73 component: |
74 (SpecCollection |
74 (SpecCollection |
75 collection: ( |
75 collection: ( |
76 (ViewSpec |
76 (ViewSpec |
77 name: 'ReceiverArgBox' |
77 name: 'ReceiverArgBox' |
78 layout: (LayoutFrame 0 0 0 0 0 1 -75 0.5) |
78 layout: (LayoutFrame 0 0 0 0 0 1 -100 0.5) |
79 component: |
79 component: |
80 (SpecCollection |
80 (SpecCollection |
81 collection: ( |
81 collection: ( |
82 (LabelSpec |
82 (LabelSpec |
83 label: 'Receiver' |
83 label: 'Receiver' |
115 hasVerticalScrollBar: true |
115 hasVerticalScrollBar: true |
116 miniScrollerHorizontal: true |
116 miniScrollerHorizontal: true |
117 miniScrollerVertical: true |
117 miniScrollerVertical: true |
118 autoHideScrollBars: true |
118 autoHideScrollBars: true |
119 hasKeyboardFocusInitially: false |
119 hasKeyboardFocusInitially: false |
120 extent: (Point 87 99) |
120 extent: (Point 87 74) |
121 postBuildCallback: receiverWidgetCreated: |
121 postBuildCallback: receiverWidgetCreated: |
122 ) |
122 ) |
123 (VerticalPanelViewSpec |
123 (VerticalPanelViewSpec |
124 name: 'VerticalPanel1' |
124 name: 'VerticalPanel1' |
125 horizontalLayout: fit |
125 horizontalLayout: fit |
148 postBuildCallback: argument1WidgetCreated: |
148 postBuildCallback: argument1WidgetCreated: |
149 ) |
149 ) |
150 ) |
150 ) |
151 |
151 |
152 ) |
152 ) |
153 extent: (Point 87 31) |
153 extent: (Point 87 23) |
154 ) |
154 ) |
155 (ViewSpec |
155 (ViewSpec |
156 name: 'Box2' |
156 name: 'Box2' |
157 visibilityChannel: arg2BoxVisible |
157 visibilityChannel: arg2BoxVisible |
158 component: |
158 component: |
171 postBuildCallback: argument2WidgetCreated: |
171 postBuildCallback: argument2WidgetCreated: |
172 ) |
172 ) |
173 ) |
173 ) |
174 |
174 |
175 ) |
175 ) |
176 extent: (Point 87 31) |
176 extent: (Point 87 22) |
177 ) |
177 ) |
178 (ViewSpec |
178 (ViewSpec |
179 name: 'Box3' |
179 name: 'Box3' |
180 visibilityChannel: arg3BoxVisible |
180 visibilityChannel: arg3BoxVisible |
181 component: |
181 component: |
194 postBuildCallback: argument3WidgetCreated: |
194 postBuildCallback: argument3WidgetCreated: |
195 ) |
195 ) |
196 ) |
196 ) |
197 |
197 |
198 ) |
198 ) |
199 extent: (Point 87 31) |
199 extent: (Point 87 23) |
200 ) |
200 ) |
201 ) |
201 ) |
202 |
202 |
203 ) |
203 ) |
204 extent: (Point 87 99) |
204 extent: (Point 87 74) |
205 ) |
205 ) |
206 (WorkspaceSpec |
206 (WorkspaceSpec |
207 name: 'AnswerEditor' |
207 name: 'AnswerEditor' |
208 tabable: true |
208 tabable: true |
209 hasHorizontalScrollBar: true |
209 hasHorizontalScrollBar: true |
210 hasVerticalScrollBar: true |
210 hasVerticalScrollBar: true |
211 miniScrollerHorizontal: true |
211 miniScrollerHorizontal: true |
212 miniScrollerVertical: true |
212 miniScrollerVertical: true |
213 autoHideScrollBars: true |
213 autoHideScrollBars: true |
214 hasKeyboardFocusInitially: false |
214 hasKeyboardFocusInitially: false |
215 extent: (Point 88 99) |
215 extent: (Point 88 74) |
216 postBuildCallback: messageAnswerWidgetCreated: |
216 postBuildCallback: messageAnswerWidgetCreated: |
217 ) |
217 ) |
218 ) |
218 ) |
219 |
219 |
220 ) |
220 ) |
223 |
223 |
224 ) |
224 ) |
225 ) |
225 ) |
226 (ViewSpec |
226 (ViewSpec |
227 name: 'ReceiverArgBoxActionBox' |
227 name: 'ReceiverArgBoxActionBox' |
228 layout: (LayoutFrame 0 0 -73 0.5 0 1 -50 0.5) |
228 layout: (LayoutFrame 0 0 -98 0.5 0 1 -75 0.5) |
229 component: |
229 component: |
230 (SpecCollection |
230 (SpecCollection |
231 collection: ( |
231 collection: ( |
232 (ActionButtonSpec |
232 (ActionButtonSpec |
233 label: 'Clear' |
233 label: 'Clear' |
248 |
248 |
249 ) |
249 ) |
250 ) |
250 ) |
251 (ViewSpec |
251 (ViewSpec |
252 name: 'MatchActionBox' |
252 name: 'MatchActionBox' |
253 layout: (LayoutFrame 0 0 -50 0.5 0 1 0 0.5) |
253 layout: (LayoutFrame 0 0 -70 0.5 0 1 -20 0.5) |
254 component: |
254 component: |
255 (SpecCollection |
255 (SpecCollection |
256 collection: ( |
256 collection: ( |
257 (LabelSpec |
257 (LabelSpec |
258 label: 'Selector Pattern:' |
258 label: 'Selector Pattern:' |
259 name: 'Label1' |
259 name: 'Label1' |
260 layout: (LayoutFrame 0 0 -25 0.5 0 0.5 0 0.5) |
260 layout: (LayoutFrame 0 0 0 0 0 0.5 25 0) |
261 translateLabel: true |
261 translateLabel: true |
262 adjust: left |
262 adjust: left |
263 ) |
263 ) |
264 (InputFieldSpec |
264 (InputFieldSpec |
265 name: 'EntryField1' |
265 name: 'EntryField1' |
266 layout: (LayoutFrame 0 0 -25 1 0 0.5 0 1) |
266 layout: (LayoutFrame 0 0 -25 1 0 0.5 -5 1) |
267 model: selectorPattern |
267 model: selectorPattern |
268 immediateAccept: true |
268 immediateAccept: true |
269 acceptOnReturn: true |
269 acceptOnReturn: true |
270 acceptOnTab: true |
270 acceptOnTab: true |
271 acceptOnPointerLeave: true |
271 acceptOnPointerLeave: true |
282 |
282 |
283 ) |
283 ) |
284 ) |
284 ) |
285 (SequenceViewSpec |
285 (SequenceViewSpec |
286 name: 'ResultList' |
286 name: 'ResultList' |
287 layout: (LayoutFrame 0 0 0 0.5 0 1 0 1) |
287 layout: (LayoutFrame 0 0 -15 0.5 0 1 0 1) |
288 hasHorizontalScrollBar: true |
288 hasHorizontalScrollBar: true |
289 hasVerticalScrollBar: true |
289 hasVerticalScrollBar: true |
290 autoHideScrollBars: true |
290 autoHideScrollBars: true |
291 valueChangeSelector: updateImplementorsOf: |
291 valueChangeSelector: updateImplementorsOf: |
292 useIndex: true |
292 useIndex: true |
851 |
851 |
852 |holder| |
852 |holder| |
853 (holder := builder bindingAt:#resultHolder) isNil ifTrue:[ |
853 (holder := builder bindingAt:#resultHolder) isNil ifTrue:[ |
854 holder := ValueHolder new. |
854 holder := ValueHolder new. |
855 builder aspectAt:#resultHolder put:holder. |
855 builder aspectAt:#resultHolder put:holder. |
856 holder value:#('Please enter combination of' |
856 holder value:{ |
857 ' receiver, arg and result' |
857 'Please enter combination of' . |
858 ' into the above fields, then click on "search".'). |
858 ' ',('receiver, arg and result' allBold) . |
|
859 'or a'. |
|
860 ' ',('selector search pattern' allBold) . |
|
861 'into the above fields,'. |
|
862 'then click on either ',('"search"' allBold),'-button.' |
|
863 } |
859 ]. |
864 ]. |
860 ^ holder. |
865 ^ holder. |
861 |
866 |
862 "Modified: / 27-04-2012 / 14:25:33 / cg" |
867 "Modified: / 27-04-2012 / 15:14:32 / cg" |
863 ! |
868 ! |
864 |
869 |
865 selectedClassOfResultHolder |
870 selectedClassOfResultHolder |
866 "Return a valueHolder which contains the index of the selected result class |
871 "Return a valueHolder which contains the index of the selected result class |
867 (right list)" |
872 (right list)" |