|
1 " |
|
2 COPYRIGHT (c) 2006 by eXept Software AG |
|
3 All Rights Reserved |
|
4 |
|
5 This software is furnished under a license and may be used |
|
6 only in accordance with the terms of that license and with the |
|
7 inclusion of the above copyright notice. This software may not |
|
8 be provided or otherwise made available to, or used by, any |
|
9 other person. No title to or ownership of the software is |
|
10 hereby transferred. |
|
11 " |
1 "{ Package: 'stx:libtool' }" |
12 "{ Package: 'stx:libtool' }" |
2 |
13 |
3 "{ NameSpace: Tools }" |
14 "{ NameSpace: Tools }" |
4 |
15 |
5 SimpleDialog subclass:#ChangeSetSelectionDialog |
16 SimpleDialog subclass:#ChangeSetSelectionDialog |
6 instanceVariableNames:'specHolder specLabelList specLabelIndexHolder |
17 instanceVariableNames:'enabledHolder specHolder specLabelList specLabelIndexHolder |
7 specEditorSpecHolder' |
18 specEditorSpecHolder' |
8 classVariableNames:'' |
19 classVariableNames:'' |
9 poolDictionaries:'' |
20 poolDictionaries:'' |
10 category:'Interface-Dialogs' |
21 category:'Interface-Dialogs' |
11 ! |
22 ! |
12 |
23 |
|
24 !ChangeSetSelectionDialog class methodsFor:'documentation'! |
|
25 |
|
26 copyright |
|
27 " |
|
28 COPYRIGHT (c) 2006 by eXept Software AG |
|
29 All Rights Reserved |
|
30 |
|
31 This software is furnished under a license and may be used |
|
32 only in accordance with the terms of that license and with the |
|
33 inclusion of the above copyright notice. This software may not |
|
34 be provided or otherwise made available to, or used by, any |
|
35 other person. No title to or ownership of the software is |
|
36 hereby transferred. |
|
37 " |
|
38 ! ! |
13 |
39 |
14 !ChangeSetSelectionDialog class methodsFor:'instance creation'! |
40 !ChangeSetSelectionDialog class methodsFor:'instance creation'! |
15 |
41 |
16 requestChangeSet: title |
42 requestChangeSet: title |
17 |
43 |
133 label: 'Select...' |
159 label: 'Select...' |
134 name: 'SpecType' |
160 name: 'SpecType' |
135 layout: (LayoutFrame 103 0 3 0 -3 1 25 0) |
161 layout: (LayoutFrame 103 0 3 0 -3 1 25 0) |
136 tabable: true |
162 tabable: true |
137 model: specLabelIndexHolder |
163 model: specLabelIndexHolder |
|
164 enableChannel: enabledHolder |
138 menu: specLabelList |
165 menu: specLabelList |
139 useIndex: true |
166 useIndex: true |
140 ) |
167 ) |
141 (SubCanvasSpec |
168 (SubCanvasSpec |
142 name: 'SubCanvas1' |
169 name: 'SubCanvas1' |
143 layout: (LayoutFrame 3 0 30 0 -3 1 0 1) |
170 layout: (LayoutFrame 3 0 30 0 -3 1 0 1) |
|
171 level: 0 |
144 hasHorizontalScrollBar: false |
172 hasHorizontalScrollBar: false |
145 hasVerticalScrollBar: false |
173 hasVerticalScrollBar: false |
146 specHolder: specEditorSpecHolder |
174 specHolder: specEditorSpecHolder |
147 createNewBuilder: false |
175 createNewBuilder: false |
148 ) |
176 ) |
182 (SpecCollection |
210 (SpecCollection |
183 collection: ( |
211 collection: ( |
184 (FilenameInputFieldSpec |
212 (FilenameInputFieldSpec |
185 name: 'Directory' |
213 name: 'Directory' |
186 layout: (LayoutFrame 103 0 0 0 0 1 22 0) |
214 layout: (LayoutFrame 103 0 0 0 0 1 22 0) |
|
215 enableChannel: enabledHolder |
187 model: directoryAspect |
216 model: directoryAspect |
188 acceptOnPointerLeave: true |
217 acceptOnPointerLeave: true |
189 viewClassName: FilenameWidgetWithHistory |
218 viewClassName: FilenameWidgetWithHistory |
190 ) |
219 ) |
191 (LabelSpec |
220 (LabelSpec |
199 |
228 |
200 ) |
229 ) |
201 ) |
230 ) |
202 ! |
231 ! |
203 |
232 |
|
233 editorSpecForExplicit |
|
234 "This resource specification was automatically generated |
|
235 by the UIPainter of ST/X." |
|
236 |
|
237 "Do not manually edit this!! If it is corrupted, |
|
238 the UIPainter may not be able to read the specification." |
|
239 |
|
240 " |
|
241 UIPainter new openOnClass:Tools::ChangeSetSelectionDialog andSelector:#editorSpecForExplicit |
|
242 Tools::ChangeSetSelectionDialog new openInterface:#editorSpecForExplicit |
|
243 " |
|
244 |
|
245 <resource: #canvas> |
|
246 |
|
247 ^ |
|
248 #(FullSpec |
|
249 name: 'editorSpecForExplicit' |
|
250 window: |
|
251 (WindowSpec |
|
252 label: 'ChangeSet Spec Editor' |
|
253 name: 'ChangeSet Spec Editor' |
|
254 min: (Point 10 10) |
|
255 bounds: (Rectangle 0 0 441 310) |
|
256 ) |
|
257 component: |
|
258 (SpecCollection |
|
259 collection: () |
|
260 ) |
|
261 ) |
|
262 ! |
|
263 |
|
264 editorSpecForFile |
|
265 "This resource specification was automatically generated |
|
266 by the UIPainter of ST/X." |
|
267 |
|
268 "Do not manually edit this!! If it is corrupted, |
|
269 the UIPainter may not be able to read the specification." |
|
270 |
|
271 " |
|
272 UIPainter new openOnClass:Tools::ChangeSetSelectionDialog andSelector:#editorSpecForFile |
|
273 Tools::ChangeSetSelectionDialog new openInterface:#editorSpecForFile |
|
274 " |
|
275 |
|
276 <resource: #canvas> |
|
277 |
|
278 ^ |
|
279 #(FullSpec |
|
280 name: editorSpecForFile |
|
281 window: |
|
282 (WindowSpec |
|
283 label: 'Directory Spec Editor' |
|
284 name: 'Directory Spec Editor' |
|
285 min: (Point 10 10) |
|
286 bounds: (Rectangle 0 0 441 310) |
|
287 ) |
|
288 component: |
|
289 (SpecCollection |
|
290 collection: ( |
|
291 (FilenameInputFieldSpec |
|
292 name: 'Directory' |
|
293 layout: (LayoutFrame 103 0 0 0 0 1 22 0) |
|
294 enableChannel: enabledHolder |
|
295 model: fileAspect |
|
296 acceptOnPointerLeave: true |
|
297 viewClassName: FilenameWidgetWithHistory |
|
298 ) |
|
299 (LabelSpec |
|
300 label: 'File:' |
|
301 name: 'FileLabel' |
|
302 layout: (LayoutFrame 0 0 3 0 100 0 22 0) |
|
303 translateLabel: true |
|
304 adjust: left |
|
305 ) |
|
306 ) |
|
307 |
|
308 ) |
|
309 ) |
|
310 |
|
311 "Modified: / 20-03-2012 / 11:13:32 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
312 ! |
|
313 |
204 editorSpecForPackage |
314 editorSpecForPackage |
205 "This resource specification was automatically generated |
315 "This resource specification was automatically generated |
206 by the UIPainter of ST/X." |
316 by the UIPainter of ST/X." |
207 |
317 |
208 "Do not manually edit this!! If it is corrupted, |
318 "Do not manually edit this!! If it is corrupted, |
269 "Return a description of exported aspects; |
381 "Return a description of exported aspects; |
270 these can be connected to aspects of an embedding application |
382 these can be connected to aspects of an embedding application |
271 (if this app is embedded in a subCanvas)." |
383 (if this app is embedded in a subCanvas)." |
272 |
384 |
273 ^ #( |
385 ^ #( |
|
386 #enabledHolder |
274 #specHolder |
387 #specHolder |
275 ). |
388 ). |
276 |
389 |
277 "Modified: / 06-07-2011 / 10:57:46 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
278 ! ! |
390 ! ! |
279 |
391 |
280 !ChangeSetSelectionDialog methodsFor:'actions'! |
392 !ChangeSetSelectionDialog methodsFor:'actions'! |
281 |
393 |
282 selectPackage |
394 selectPackage |
306 ^ holder. |
418 ^ holder. |
307 |
419 |
308 "Created: / 06-07-2011 / 10:48:20 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
420 "Created: / 06-07-2011 / 10:48:20 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
309 ! |
421 ! |
310 |
422 |
|
423 enabledHolder |
|
424 "return/create the 'enabledHolder' value holder (automatically generated)" |
|
425 |
|
426 enabledHolder isNil ifTrue:[ |
|
427 enabledHolder := true asValue |
|
428 ]. |
|
429 ^ enabledHolder |
|
430 |
|
431 "Modified: / 19-03-2012 / 23:25:11 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
432 ! |
|
433 |
|
434 enabledHolder:something |
|
435 "set the 'enabledHolder' value holder (automatically generated)" |
|
436 |
|
437 enabledHolder := something. |
|
438 ! |
|
439 |
311 specEditorSpecHolder |
440 specEditorSpecHolder |
312 "return/create the 'specEditorSpecHolder' value holder (automatically generated)" |
441 "return/create the 'specEditorSpecHolder' value holder (automatically generated)" |
313 |
442 |
314 specEditorSpecHolder isNil ifTrue:[ |
443 specEditorSpecHolder isNil ifTrue:[ |
315 specEditorSpecHolder := ValueHolder new. |
444 specEditorSpecHolder := ValueHolder new. |
375 ]. |
504 ]. |
376 ! |
505 ! |
377 |
506 |
378 specLabelList |
507 specLabelList |
379 <resource: #uiAspect> |
508 <resource: #uiAspect> |
380 |
|
381 "automatically generated by UIPainter ..." |
|
382 |
|
383 "*** the code below creates a default model when invoked." |
|
384 "*** (which may not be the one you wanted)" |
|
385 "*** Please change as required and accept it in the browser." |
|
386 "*** (and replace this comment by something more useful ;-)" |
|
387 |
509 |
388 specLabelList isNil ifTrue:[ |
510 specLabelList isNil ifTrue:[ |
389 specLabelList := List withAll: |
511 specLabelList := List withAll: |
390 (ChangeSetSpec specClasses collect:[:cls|cls label]) |
512 (ChangeSetSpec specClasses collect:[:cls|cls label]) |
391 |
513 |
409 builder aspectAt:#directoryAspect put:holder. |
531 builder aspectAt:#directoryAspect put:holder. |
410 ]. |
532 ]. |
411 ^ holder. |
533 ^ holder. |
412 |
534 |
413 "Modified: / 06-07-2011 / 10:28:23 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
535 "Modified: / 06-07-2011 / 10:28:23 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
536 ! |
|
537 |
|
538 fileAspect |
|
539 <resource: #uiAspect> |
|
540 |
|
541 |holder| |
|
542 |
|
543 (holder := builder bindingAt:#fileAspect) isNil ifTrue:[ |
|
544 holder := (AspectAdaptor forAspect:#file) |
|
545 subjectChannel: self specHolder. |
|
546 builder aspectAt:#fileAspect put:holder. |
|
547 ]. |
|
548 ^ holder. |
|
549 |
|
550 "Modified: / 06-07-2011 / 10:28:23 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
551 "Created: / 19-03-2012 / 22:07:26 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
414 ! |
552 ! |
415 |
553 |
416 packageAspect |
554 packageAspect |
417 <resource: #uiAspect> |
555 <resource: #uiAspect> |
418 |
556 |