|
1 " |
|
2 COPYRIGHT (c) 2000 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 " |
|
12 "{ Package: 'stx:libtool' }" |
|
13 |
|
14 "{ NameSpace: Tools }" |
|
15 |
|
16 NavigatorModel subclass:#OrganizerCanvas |
|
17 instanceVariableNames:'projectListSlaveMode namespaceListSlaveMode categoryListSlaveMode |
|
18 classInheritanceListSlaveMode classListSlaveMode |
|
19 classHierarchyListSlaveMode organizerMode metaToggle |
|
20 notMetaToggle meta classList classCategoryDoubleClickChannel |
|
21 classDoubleClickChannel classGeneratorHolder |
|
22 classGeneratorHolderFromClassCategory |
|
23 classGeneratorHolderFromClassHierarchy |
|
24 classGeneratorHolderFromProject classGeneratorHolderFromNamespace |
|
25 classCategoryListMenuHolder categoryListShown |
|
26 classCategoryListUpdateTrigger classListUpdateTrigger |
|
27 classListMenuHolder classHierarchyListMenuHolder |
|
28 projectListMenuHolder variablesMenuHolder filterClassVars |
|
29 variableFilter packageFilter nameSpaceFilter hidePrivateClasses |
|
30 hideUnloadedClasses showClassPackages immediateUpdate |
|
31 metaToggleLabelHolder selectedCategories selectedClasses |
|
32 selectedNamespaces selectedProjects selectionChangeCondition |
|
33 nameSpaceFilterSelection markApplicationsHolder |
|
34 sortVariablesByName showAllClassesInNameSpaceView |
|
35 showMethodInheritance showMethodComplexity showMethodTypeIcon |
|
36 methodVisibilityHolder showCoverageInformation |
|
37 sortByNameAndInheritance' |
|
38 classVariableNames:'' |
|
39 poolDictionaries:'' |
|
40 category:'Interface-Browsers-New' |
|
41 ! |
|
42 |
|
43 !OrganizerCanvas class methodsFor:'documentation'! |
|
44 |
|
45 copyright |
|
46 " |
|
47 COPYRIGHT (c) 2000 by eXept Software AG |
|
48 All Rights Reserved |
|
49 |
|
50 This software is furnished under a license and may be used |
|
51 only in accordance with the terms of that license and with the |
|
52 inclusion of the above copyright notice. This software may not |
|
53 be provided or otherwise made available to, or used by, any |
|
54 other person. No title to or ownership of the software is |
|
55 hereby transferred. |
|
56 " |
|
57 ! |
|
58 |
|
59 documentation |
|
60 " |
|
61 I implement the top part containing the list views in the new system browser |
|
62 " |
|
63 ! ! |
|
64 |
|
65 !OrganizerCanvas class methodsFor:'constants'! |
|
66 |
|
67 organizerModeCategory |
|
68 ^ #category |
|
69 ! |
|
70 |
|
71 organizerModeClassHierarchy |
|
72 ^ #classHierarchy |
|
73 ! |
|
74 |
|
75 organizerModeClassInheritance |
|
76 ^ #classInheritance |
|
77 ! |
|
78 |
|
79 organizerModeHierarchy |
|
80 ^ #hierarchy |
|
81 ! |
|
82 |
|
83 organizerModeNamespace |
|
84 ^ #namespace |
|
85 ! |
|
86 |
|
87 organizerModePackageDiagram |
|
88 ^ #packageDiagram |
|
89 ! |
|
90 |
|
91 organizerModeProject |
|
92 ^ #project |
|
93 ! ! |
|
94 |
|
95 !OrganizerCanvas class methodsFor:'interface specs'! |
|
96 |
|
97 embeddedNameSpaceListSpec |
|
98 "This resource specification was automatically generated |
|
99 by the UIPainter of ST/X." |
|
100 |
|
101 "Do not manually edit this!! If it is corrupted, |
|
102 the UIPainter may not be able to read the specification." |
|
103 |
|
104 " |
|
105 UIPainter new openOnClass:Tools::OrganizerCanvas andSelector:#embeddedNameSpaceListSpec |
|
106 Tools::OrganizerCanvas new openInterface:#embeddedNameSpaceListSpec |
|
107 " |
|
108 |
|
109 <resource: #canvas> |
|
110 |
|
111 ^ |
|
112 #(FullSpec |
|
113 name: embeddedNameSpaceListSpec |
|
114 window: |
|
115 (WindowSpec |
|
116 label: 'Organizer' |
|
117 name: 'Organizer' |
|
118 min: (Point 0 0) |
|
119 max: (Point 1024 721) |
|
120 bounds: (Rectangle 0 0 300 300) |
|
121 ) |
|
122 component: |
|
123 (SpecCollection |
|
124 collection: ( |
|
125 (SubCanvasSpec |
|
126 name: 'NamespaceList2' |
|
127 layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) |
|
128 level: 1 |
|
129 majorKey: NamespaceList |
|
130 subAspectHolders: |
|
131 (Array |
|
132 |
|
133 (SubChannelInfoSpec |
|
134 subAspect: doubleClickChannel |
|
135 aspect: nameSpaceFilterDoubleClickChannel |
|
136 ) |
|
137 (SubChannelInfoSpec |
|
138 subAspect: environmentHolder |
|
139 aspect: environmentHolder |
|
140 ) |
|
141 |
|
142 (SubChannelInfoSpec |
|
143 subAspect: forceGeneratorTrigger |
|
144 aspect: forceNamespaceGeneratorTrigger |
|
145 ) |
|
146 (SubChannelInfoSpec |
|
147 subAspect: hideUnloadedClasses |
|
148 aspect: hideUnloadedClasses |
|
149 ) |
|
150 |
|
151 (SubChannelInfoSpec |
|
152 subAspect: immediateUpdate |
|
153 aspect: immediateUpdate |
|
154 ) |
|
155 (SubChannelInfoSpec |
|
156 subAspect: menuHolder |
|
157 aspect: nameSpaceListMenuHolder |
|
158 ) |
|
159 |
|
160 (SubChannelInfoSpec |
|
161 subAspect: organizerMode |
|
162 aspect: organizerMode |
|
163 ) |
|
164 (SubChannelInfoSpec |
|
165 subAspect: outGeneratorHolder |
|
166 aspect: classGeneratorHolder |
|
167 ) |
|
168 |
|
169 (SubChannelInfoSpec |
|
170 subAspect: selectedNamespaces |
|
171 aspect: nameSpaceFilterSelection |
|
172 ) |
|
173 (SubChannelInfoSpec |
|
174 subAspect: selectionChangeCondition |
|
175 aspect: selectionChangeCondition |
|
176 ) |
|
177 |
|
178 (SubChannelInfoSpec |
|
179 subAspect: slaveMode |
|
180 aspect: popUpNameSpaceListSlaveMode |
|
181 ) |
|
182 (SubChannelInfoSpec |
|
183 subAspect: updateTrigger |
|
184 aspect: nameSpaceListUpdateTrigger |
|
185 ) |
|
186 ) |
|
187 createNewApplication: true |
|
188 createNewBuilder: true |
|
189 postBuildCallback: nameSpaceListWidgetWasBuilt: |
|
190 ) |
|
191 ) |
|
192 |
|
193 ) |
|
194 ) |
|
195 ! |
|
196 |
|
197 windowSpec |
|
198 ^ self windowSpecNonHierarchicalWithClassDiagram |
|
199 "/ ^ self windowSpecNonHierarchical |
|
200 "/ ^ self windowSpecHierarchical |
|
201 |
|
202 " |
|
203 self openInterface:#windowSpec |
|
204 self openInterface:#windowSpecWithoutMetaToggles |
|
205 self openInterface:#windowSpecNonHierarchicalWithClassDiagram |
|
206 " |
|
207 |
|
208 "Modified: / 03-09-2006 / 10:47:15 / cg" |
|
209 ! |
|
210 |
|
211 windowSpecHierarchical |
|
212 "This resource specification was automatically generated |
|
213 by the UIPainter of ST/X." |
|
214 |
|
215 "Do not manually edit this!! If it is corrupted, |
|
216 the UIPainter may not be able to read the specification." |
|
217 |
|
218 " |
|
219 UIPainter new openOnClass:Tools::OrganizerCanvas andSelector:#windowSpecHierarchical |
|
220 Tools::OrganizerCanvas new openInterface:#windowSpecHierarchical |
|
221 " |
|
222 |
|
223 <resource: #canvas> |
|
224 |
|
225 ^ |
|
226 #(FullSpec |
|
227 name: windowSpecHierarchical |
|
228 window: |
|
229 (WindowSpec |
|
230 label: 'Organizer' |
|
231 name: 'Organizer' |
|
232 min: (Point 0 0) |
|
233 max: (Point 1024 721) |
|
234 bounds: (Rectangle 0 0 300 300) |
|
235 ) |
|
236 component: |
|
237 (SpecCollection |
|
238 collection: ( |
|
239 (VariableHorizontalPanelSpec |
|
240 name: 'CategoryNameSpaceAndProjectPanel' |
|
241 layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) |
|
242 visibilityChannel: categoryNameSpaceAndProjectPanelShown |
|
243 barWidth: 2 |
|
244 showHandle: false |
|
245 component: |
|
246 (SpecCollection |
|
247 collection: ( |
|
248 (ViewSpec |
|
249 name: 'LeftBox' |
|
250 component: |
|
251 (SpecCollection |
|
252 collection: ( |
|
253 (ViewSpec |
|
254 name: 'ClassCategoryAndNamespaceFilterBox' |
|
255 layout: (LayoutFrame 0 0 0 0 0 1 0 1) |
|
256 visibilityChannel: categoryListShown |
|
257 component: |
|
258 (SpecCollection |
|
259 collection: ( |
|
260 (SubCanvasSpec |
|
261 name: 'ClassCategoryList' |
|
262 layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 -25 1.0) |
|
263 majorKey: HierarchicalClassCategoryList |
|
264 subAspectHolders: |
|
265 (Array |
|
266 |
|
267 (SubChannelInfoSpec |
|
268 subAspect: doubleClickChannel |
|
269 aspect: classCategoryDoubleClickChannel |
|
270 ) |
|
271 (SubChannelInfoSpec |
|
272 subAspect: environmentHolder |
|
273 aspect: environmentHolder |
|
274 ) |
|
275 |
|
276 (SubChannelInfoSpec |
|
277 subAspect: forceGeneratorTrigger |
|
278 aspect: forceClassCategoryGeneratorTrigger |
|
279 ) |
|
280 (SubChannelInfoSpec |
|
281 subAspect: hideUnloadedClasses |
|
282 aspect: hideUnloadedClasses |
|
283 ) |
|
284 |
|
285 (SubChannelInfoSpec |
|
286 subAspect: immediateUpdate |
|
287 aspect: immediateUpdate |
|
288 ) |
|
289 (SubChannelInfoSpec |
|
290 subAspect: menuHolder |
|
291 aspect: classCategoryListMenuHolder |
|
292 ) |
|
293 |
|
294 (SubChannelInfoSpec |
|
295 subAspect: nameSpaceFilter |
|
296 aspect: nameSpaceFilterSelection |
|
297 ) |
|
298 (SubChannelInfoSpec |
|
299 subAspect: organizerMode |
|
300 aspect: organizerMode |
|
301 ) |
|
302 |
|
303 (SubChannelInfoSpec |
|
304 subAspect: outGeneratorHolder |
|
305 aspect: classGeneratorHolder |
|
306 ) |
|
307 (SubChannelInfoSpec |
|
308 subAspect: selectedCategories |
|
309 aspect: selectedCategories |
|
310 ) |
|
311 |
|
312 (SubChannelInfoSpec |
|
313 subAspect: selectionChangeCondition |
|
314 aspect: selectionChangeCondition |
|
315 ) |
|
316 (SubChannelInfoSpec |
|
317 subAspect: slaveMode |
|
318 aspect: categoryListSlaveMode |
|
319 ) |
|
320 |
|
321 (SubChannelInfoSpec |
|
322 subAspect: updateTrigger |
|
323 aspect: classCategoryListUpdateTrigger |
|
324 ) |
|
325 ) |
|
326 createNewApplication: true |
|
327 createNewBuilder: true |
|
328 ) |
|
329 (ExtendedComboBoxSpec |
|
330 name: 'NameSpaceFilterComboBox' |
|
331 layout: (LayoutFrame 0 0 -25 1 0 1 0 1) |
|
332 tabable: true |
|
333 model: nameSpaceFilterSelectedNameSpace |
|
334 menuWidgetHolder: nameSpaceListWidgetHolder |
|
335 miniScrollerHorizontal: true |
|
336 menuSelector: nameSpaceFilterPopUpMenu |
|
337 ) |
|
338 ) |
|
339 |
|
340 ) |
|
341 ) |
|
342 (SubCanvasSpec |
|
343 name: 'NamespaceList' |
|
344 layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) |
|
345 initiallyInvisible: true |
|
346 visibilityChannel: nameSpaceListShown |
|
347 majorKey: NamespaceList |
|
348 subAspectHolders: |
|
349 (Array |
|
350 |
|
351 (SubChannelInfoSpec |
|
352 subAspect: doubleClickChannel |
|
353 aspect: nameSpaceDoubleClickChannel |
|
354 ) |
|
355 (SubChannelInfoSpec |
|
356 subAspect: environmentHolder |
|
357 aspect: environmentHolder |
|
358 ) |
|
359 |
|
360 (SubChannelInfoSpec |
|
361 subAspect: forceGeneratorTrigger |
|
362 aspect: forceNamespaceGeneratorTrigger |
|
363 ) |
|
364 (SubChannelInfoSpec |
|
365 subAspect: hideUnloadedClasses |
|
366 aspect: hideUnloadedClasses |
|
367 ) |
|
368 |
|
369 (SubChannelInfoSpec |
|
370 subAspect: immediateUpdate |
|
371 aspect: immediateUpdate |
|
372 ) |
|
373 (SubChannelInfoSpec |
|
374 subAspect: menuHolder |
|
375 aspect: nameSpaceListMenuHolder |
|
376 ) |
|
377 |
|
378 (SubChannelInfoSpec |
|
379 subAspect: organizerMode |
|
380 aspect: organizerMode |
|
381 ) |
|
382 (SubChannelInfoSpec |
|
383 subAspect: outGeneratorHolder |
|
384 aspect: classGeneratorHolder |
|
385 ) |
|
386 |
|
387 (SubChannelInfoSpec |
|
388 subAspect: selectedNamespaces |
|
389 aspect: selectedNamespaces |
|
390 ) |
|
391 (SubChannelInfoSpec |
|
392 subAspect: selectionChangeCondition |
|
393 aspect: selectionChangeCondition |
|
394 ) |
|
395 |
|
396 (SubChannelInfoSpec |
|
397 subAspect: slaveMode |
|
398 aspect: nameSpaceListSlaveMode |
|
399 ) |
|
400 (SubChannelInfoSpec |
|
401 subAspect: updateTrigger |
|
402 aspect: nameSpaceListUpdateTrigger |
|
403 ) |
|
404 ) |
|
405 createNewApplication: true |
|
406 createNewBuilder: true |
|
407 ) |
|
408 (SubCanvasSpec |
|
409 name: 'ProjectList' |
|
410 layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) |
|
411 initiallyInvisible: true |
|
412 visibilityChannel: projectListShown |
|
413 majorKey: ProjectList |
|
414 subAspectHolders: |
|
415 (Array |
|
416 |
|
417 (SubChannelInfoSpec |
|
418 subAspect: doubleClickChannel |
|
419 aspect: projectDoubleClickChannel |
|
420 ) |
|
421 (SubChannelInfoSpec |
|
422 subAspect: environmentHolder |
|
423 aspect: environmentHolder |
|
424 ) |
|
425 |
|
426 (SubChannelInfoSpec |
|
427 subAspect: forceGeneratorTrigger |
|
428 aspect: forceProjectGeneratorTrigger |
|
429 ) |
|
430 (SubChannelInfoSpec |
|
431 subAspect: hideUnloadedClasses |
|
432 aspect: hideUnloadedClasses |
|
433 ) |
|
434 |
|
435 (SubChannelInfoSpec |
|
436 subAspect: immediateUpdate |
|
437 aspect: immediateUpdate |
|
438 ) |
|
439 (SubChannelInfoSpec |
|
440 subAspect: menuHolder |
|
441 aspect: projectListMenuHolder |
|
442 ) |
|
443 |
|
444 (SubChannelInfoSpec |
|
445 subAspect: organizerMode |
|
446 aspect: organizerMode |
|
447 ) |
|
448 (SubChannelInfoSpec |
|
449 subAspect: outGeneratorHolder |
|
450 aspect: classGeneratorHolder |
|
451 ) |
|
452 |
|
453 (SubChannelInfoSpec |
|
454 subAspect: selectedProjects |
|
455 aspect: selectedProjects |
|
456 ) |
|
457 (SubChannelInfoSpec |
|
458 subAspect: selectionChangeCondition |
|
459 aspect: selectionChangeCondition |
|
460 ) |
|
461 |
|
462 (SubChannelInfoSpec |
|
463 subAspect: slaveMode |
|
464 aspect: projectListSlaveMode |
|
465 ) |
|
466 (SubChannelInfoSpec |
|
467 subAspect: updateTrigger |
|
468 aspect: projectListUpdateTrigger |
|
469 ) |
|
470 ) |
|
471 createNewApplication: true |
|
472 createNewBuilder: true |
|
473 ) |
|
474 ) |
|
475 |
|
476 ) |
|
477 ) |
|
478 (ViewSpec |
|
479 name: 'RightBox' |
|
480 component: |
|
481 (SpecCollection |
|
482 collection: ( |
|
483 (VariableVerticalPanelSpec |
|
484 name: 'ClassAndVariablesPanel' |
|
485 layout: (LayoutFrame 0 0 0 0 0 1 -25 1) |
|
486 showHandle: false |
|
487 snapMode: both |
|
488 handlePosition: left |
|
489 component: |
|
490 (SpecCollection |
|
491 collection: ( |
|
492 (SubCanvasSpec |
|
493 name: 'ClassList' |
|
494 majorKey: ClassList |
|
495 minorKey: windowSpec |
|
496 subAspectHolders: |
|
497 (Array |
|
498 |
|
499 (SubChannelInfoSpec |
|
500 subAspect: doubleClickChannel |
|
501 aspect: classDoubleClickChannel |
|
502 ) |
|
503 (SubChannelInfoSpec |
|
504 subAspect: environmentHolder |
|
505 aspect: environmentHolder |
|
506 ) |
|
507 |
|
508 (SubChannelInfoSpec |
|
509 subAspect: hidePrivateClasses |
|
510 aspect: hidePrivateClasses |
|
511 ) |
|
512 (SubChannelInfoSpec |
|
513 subAspect: hideUnloadedClasses |
|
514 aspect: hideUnloadedClasses |
|
515 ) |
|
516 |
|
517 (SubChannelInfoSpec |
|
518 subAspect: immediateUpdate |
|
519 aspect: immediateUpdate |
|
520 ) |
|
521 (SubChannelInfoSpec |
|
522 subAspect: inGeneratorHolder |
|
523 aspect: classGeneratorHolder |
|
524 ) |
|
525 |
|
526 (SubChannelInfoSpec |
|
527 subAspect: markApplicationsHolder |
|
528 aspect: markApplicationsHolder |
|
529 ) |
|
530 (SubChannelInfoSpec |
|
531 subAspect: menuHolder |
|
532 aspect: classListMenuHolder |
|
533 ) |
|
534 |
|
535 (SubChannelInfoSpec |
|
536 subAspect: meta |
|
537 aspect: meta |
|
538 ) |
|
539 (SubChannelInfoSpec |
|
540 subAspect: nameSpaceFilter |
|
541 aspect: nameSpaceFilter |
|
542 ) |
|
543 |
|
544 (SubChannelInfoSpec |
|
545 subAspect: organizerMode |
|
546 aspect: organizerMode |
|
547 ) |
|
548 (SubChannelInfoSpec |
|
549 subAspect: outGeneratorHolder |
|
550 aspect: outGeneratorHolder |
|
551 ) |
|
552 |
|
553 (SubChannelInfoSpec |
|
554 subAspect: outGeneratorHolderForMethods |
|
555 aspect: selectorListGenerator5 |
|
556 ) |
|
557 (SubChannelInfoSpec |
|
558 subAspect: packageFilter |
|
559 aspect: packageFilter |
|
560 ) |
|
561 |
|
562 (SubChannelInfoSpec |
|
563 subAspect: selectedClasses |
|
564 aspect: selectedClasses |
|
565 ) |
|
566 (SubChannelInfoSpec |
|
567 subAspect: selectionChangeCondition |
|
568 aspect: selectionChangeCondition |
|
569 ) |
|
570 |
|
571 (SubChannelInfoSpec |
|
572 subAspect: showClassPackages |
|
573 aspect: showClassPackages |
|
574 ) |
|
575 (SubChannelInfoSpec |
|
576 subAspect: showCoverageInformation |
|
577 aspect: showCoverageInformation |
|
578 ) |
|
579 |
|
580 (SubChannelInfoSpec |
|
581 subAspect: slaveMode |
|
582 aspect: classListSlaveMode |
|
583 ) |
|
584 (SubChannelInfoSpec |
|
585 subAspect: sortByNameAndInheritance |
|
586 aspect: sortByNameAndInheritance |
|
587 ) |
|
588 |
|
589 (SubChannelInfoSpec |
|
590 subAspect: updateTrigger |
|
591 aspect: classListUpdateTrigger |
|
592 ) |
|
593 ) |
|
594 createNewApplication: true |
|
595 createNewBuilder: true |
|
596 ) |
|
597 (SubCanvasSpec |
|
598 name: 'VariableList' |
|
599 majorKey: VariableList |
|
600 subAspectHolders: |
|
601 (Array |
|
602 |
|
603 (SubChannelInfoSpec |
|
604 subAspect: classHolder |
|
605 aspect: selectedClasses |
|
606 ) |
|
607 (SubChannelInfoSpec |
|
608 subAspect: doubleClickChannel |
|
609 aspect: variableDoubleClickChannel |
|
610 ) |
|
611 |
|
612 (SubChannelInfoSpec |
|
613 subAspect: environmentHolder |
|
614 aspect: environmentHolder |
|
615 ) |
|
616 (SubChannelInfoSpec |
|
617 subAspect: menuHolder |
|
618 aspect: variablesMenuHolder |
|
619 ) |
|
620 |
|
621 (SubChannelInfoSpec |
|
622 subAspect: selectedVariables |
|
623 aspect: variableFilter |
|
624 ) |
|
625 (SubChannelInfoSpec |
|
626 subAspect: showClassVarsInVariableList |
|
627 aspect: showClassVarsInVariableList |
|
628 ) |
|
629 |
|
630 (SubChannelInfoSpec |
|
631 subAspect: sortVariablesByName |
|
632 aspect: sortVariablesByName |
|
633 ) |
|
634 (SubChannelInfoSpec |
|
635 subAspect: slaveMode |
|
636 aspect: classListSlaveMode |
|
637 ) |
|
638 ) |
|
639 createNewApplication: true |
|
640 createNewBuilder: true |
|
641 ) |
|
642 ) |
|
643 |
|
644 ) |
|
645 handles: (Any 0.5 1.0) |
|
646 ) |
|
647 (UISubSpecification |
|
648 name: 'MetaToggleSpec2' |
|
649 layout: (LayoutFrame 0 0 -25 1 0 1 0 1) |
|
650 minorKey: metaSpec |
|
651 ) |
|
652 ) |
|
653 |
|
654 ) |
|
655 ) |
|
656 ) |
|
657 |
|
658 ) |
|
659 handles: (Any 0.5 1.0) |
|
660 ) |
|
661 (ViewSpec |
|
662 name: 'ClassHierarchyOrInheritanceBox' |
|
663 layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) |
|
664 initiallyInvisible: true |
|
665 visibilityChannel: classHierarchyOrInheritanceShown |
|
666 component: |
|
667 (SpecCollection |
|
668 collection: ( |
|
669 (VariableVerticalPanelSpec |
|
670 name: 'VariableVerticalPanel2' |
|
671 layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 -25 1.0) |
|
672 showHandle: false |
|
673 snapMode: both |
|
674 handlePosition: left |
|
675 component: |
|
676 (SpecCollection |
|
677 collection: ( |
|
678 (ViewSpec |
|
679 name: 'HierarchyOrInheritanceBox' |
|
680 component: |
|
681 (SpecCollection |
|
682 collection: ( |
|
683 (SubCanvasSpec |
|
684 name: 'ClassHierarchyList' |
|
685 layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) |
|
686 visibilityChannel: classHierarchyShown |
|
687 majorKey: HierarchicalClassList |
|
688 subAspectHolders: |
|
689 (Array |
|
690 |
|
691 (SubChannelInfoSpec |
|
692 subAspect: doubleClickChannel |
|
693 aspect: classDoubleClickChannel |
|
694 ) |
|
695 (SubChannelInfoSpec |
|
696 subAspect: environmentHolder |
|
697 aspect: environmentHolder |
|
698 ) |
|
699 |
|
700 (SubChannelInfoSpec |
|
701 subAspect: forceGeneratorTrigger |
|
702 aspect: forceClassInheritanceGeneratorTrigger |
|
703 ) |
|
704 (SubChannelInfoSpec |
|
705 subAspect: hideUnloadedClasses |
|
706 aspect: hideUnloadedClasses |
|
707 ) |
|
708 |
|
709 (SubChannelInfoSpec |
|
710 subAspect: immediateUpdate |
|
711 aspect: immediateUpdate |
|
712 ) |
|
713 (SubChannelInfoSpec |
|
714 subAspect: markApplicationsHolder |
|
715 aspect: markApplicationsHolder |
|
716 ) |
|
717 |
|
718 (SubChannelInfoSpec |
|
719 subAspect: menuHolder |
|
720 aspect: classInheritanceListMenuHolder |
|
721 ) |
|
722 (SubChannelInfoSpec |
|
723 subAspect: meta |
|
724 aspect: meta |
|
725 ) |
|
726 |
|
727 (SubChannelInfoSpec |
|
728 subAspect: nameSpaceFilter |
|
729 aspect: nameSpaceFilter |
|
730 ) |
|
731 (SubChannelInfoSpec |
|
732 subAspect: organizerMode |
|
733 aspect: organizerMode |
|
734 ) |
|
735 |
|
736 (SubChannelInfoSpec |
|
737 subAspect: outGeneratorHolder |
|
738 aspect: outGeneratorHolder |
|
739 ) |
|
740 (SubChannelInfoSpec |
|
741 subAspect: outGeneratorHolderForMethods |
|
742 aspect: selectorListGenerator5 |
|
743 ) |
|
744 |
|
745 (SubChannelInfoSpec |
|
746 subAspect: packageFilter |
|
747 aspect: packageFilter |
|
748 ) |
|
749 (SubChannelInfoSpec |
|
750 subAspect: selectedClasses |
|
751 aspect: selectedClasses |
|
752 ) |
|
753 |
|
754 (SubChannelInfoSpec |
|
755 subAspect: selectionChangeCondition |
|
756 aspect: selectionChangeCondition |
|
757 ) |
|
758 (SubChannelInfoSpec |
|
759 subAspect: showClassPackages |
|
760 aspect: showClassPackages |
|
761 ) |
|
762 |
|
763 (SubChannelInfoSpec |
|
764 subAspect: slaveMode |
|
765 aspect: classHierarchyListSlaveMode |
|
766 ) |
|
767 (SubChannelInfoSpec |
|
768 subAspect: topClassHolder |
|
769 aspect: classHierarchyTopClass |
|
770 ) |
|
771 |
|
772 (SubChannelInfoSpec |
|
773 subAspect: updateTrigger |
|
774 aspect: classHierarchyUpdateTrigger |
|
775 ) |
|
776 ) |
|
777 createNewApplication: true |
|
778 createNewBuilder: true |
|
779 ) |
|
780 (SubCanvasSpec |
|
781 name: 'ClassInheritanceList' |
|
782 layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) |
|
783 visibilityChannel: classInheritanceShown |
|
784 majorKey: InheritanceClassList |
|
785 subAspectHolders: |
|
786 (Array |
|
787 |
|
788 (SubChannelInfoSpec |
|
789 subAspect: doubleClickChannel |
|
790 aspect: classDoubleClickChannel |
|
791 ) |
|
792 (SubChannelInfoSpec |
|
793 subAspect: environmentHolder |
|
794 aspect: environmentHolder |
|
795 ) |
|
796 |
|
797 (SubChannelInfoSpec |
|
798 subAspect: forceGeneratorTrigger |
|
799 aspect: forceClassInheritanceGeneratorTrigger |
|
800 ) |
|
801 (SubChannelInfoSpec |
|
802 subAspect: hideUnloadedClasses |
|
803 aspect: hideUnloadedClasses |
|
804 ) |
|
805 |
|
806 (SubChannelInfoSpec |
|
807 subAspect: immediateUpdate |
|
808 aspect: immediateUpdate |
|
809 ) |
|
810 (SubChannelInfoSpec |
|
811 subAspect: markApplicationsHolder |
|
812 aspect: markApplicationsHolder |
|
813 ) |
|
814 |
|
815 (SubChannelInfoSpec |
|
816 subAspect: menuHolder |
|
817 aspect: classInheritanceListMenuHolder |
|
818 ) |
|
819 (SubChannelInfoSpec |
|
820 subAspect: meta |
|
821 aspect: meta |
|
822 ) |
|
823 |
|
824 (SubChannelInfoSpec |
|
825 subAspect: nameSpaceFilter |
|
826 aspect: nameSpaceFilter |
|
827 ) |
|
828 (SubChannelInfoSpec |
|
829 subAspect: organizerMode |
|
830 aspect: organizerMode |
|
831 ) |
|
832 |
|
833 (SubChannelInfoSpec |
|
834 subAspect: outGeneratorHolder |
|
835 aspect: outGeneratorHolder |
|
836 ) |
|
837 (SubChannelInfoSpec |
|
838 subAspect: outGeneratorHolderForMethods |
|
839 aspect: selectorListGenerator5 |
|
840 ) |
|
841 |
|
842 (SubChannelInfoSpec |
|
843 subAspect: packageFilter |
|
844 aspect: packageFilter |
|
845 ) |
|
846 (SubChannelInfoSpec |
|
847 subAspect: selectedClasses |
|
848 aspect: selectedClasses |
|
849 ) |
|
850 |
|
851 (SubChannelInfoSpec |
|
852 subAspect: selectionChangeCondition |
|
853 aspect: selectionChangeCondition |
|
854 ) |
|
855 (SubChannelInfoSpec |
|
856 subAspect: showClassPackages |
|
857 aspect: showClassPackages |
|
858 ) |
|
859 |
|
860 (SubChannelInfoSpec |
|
861 subAspect: slaveMode |
|
862 aspect: classInheritanceListSlaveMode |
|
863 ) |
|
864 (SubChannelInfoSpec |
|
865 subAspect: topClassHolder |
|
866 aspect: classHierarchyTopClass |
|
867 ) |
|
868 |
|
869 (SubChannelInfoSpec |
|
870 subAspect: updateTrigger |
|
871 aspect: classHierarchyUpdateTrigger |
|
872 ) |
|
873 ) |
|
874 createNewApplication: true |
|
875 createNewBuilder: true |
|
876 ) |
|
877 ) |
|
878 |
|
879 ) |
|
880 ) |
|
881 (SubCanvasSpec |
|
882 name: 'VariableList2' |
|
883 majorKey: VariableList |
|
884 subAspectHolders: |
|
885 (Array |
|
886 |
|
887 (SubChannelInfoSpec |
|
888 subAspect: classHolder |
|
889 aspect: selectedClasses |
|
890 ) |
|
891 (SubChannelInfoSpec |
|
892 subAspect: doubleClickChannel |
|
893 aspect: variableDoubleClickChannel |
|
894 ) |
|
895 |
|
896 (SubChannelInfoSpec |
|
897 subAspect: environmentHolder |
|
898 aspect: environmentHolder |
|
899 ) |
|
900 (SubChannelInfoSpec |
|
901 subAspect: menuHolder |
|
902 aspect: variablesMenuHolder |
|
903 ) |
|
904 |
|
905 (SubChannelInfoSpec |
|
906 subAspect: selectedVariables |
|
907 aspect: variableFilter |
|
908 ) |
|
909 (SubChannelInfoSpec |
|
910 subAspect: showClassVarsInVariableList |
|
911 aspect: showClassVarsInVariableList |
|
912 ) |
|
913 |
|
914 (SubChannelInfoSpec |
|
915 subAspect: slaveMode |
|
916 aspect: classHierarchyListSlaveMode |
|
917 ) |
|
918 ) |
|
919 createNewApplication: true |
|
920 createNewBuilder: true |
|
921 ) |
|
922 ) |
|
923 |
|
924 ) |
|
925 handles: (Any 0.5 1.0) |
|
926 ) |
|
927 (SubCanvasSpec |
|
928 name: 'MetaToggles1' |
|
929 layout: (LayoutFrame 0 0.0 -25 1 0 1.0 0 1) |
|
930 hasHorizontalScrollBar: false |
|
931 hasVerticalScrollBar: false |
|
932 minorKey: metaSpec |
|
933 createNewBuilder: false |
|
934 ) |
|
935 ) |
|
936 |
|
937 ) |
|
938 ) |
|
939 ) |
|
940 |
|
941 ) |
|
942 ) |
|
943 ! |
|
944 |
|
945 windowSpecNonHierarchical |
|
946 "This resource specification was automatically generated |
|
947 by the UIPainter of ST/X." |
|
948 |
|
949 "Do not manually edit this!! If it is corrupted, |
|
950 the UIPainter may not be able to read the specification." |
|
951 |
|
952 " |
|
953 UIPainter new openOnClass:Tools::OrganizerCanvas andSelector:#windowSpecNonHierarchical |
|
954 Tools::OrganizerCanvas new openInterface:#windowSpecNonHierarchical |
|
955 " |
|
956 |
|
957 <resource: #canvas> |
|
958 |
|
959 ^ |
|
960 #(FullSpec |
|
961 name: windowSpecNonHierarchical |
|
962 window: |
|
963 (WindowSpec |
|
964 label: 'Organizer' |
|
965 name: 'Organizer' |
|
966 min: (Point 0 0) |
|
967 max: (Point 1024 721) |
|
968 bounds: (Rectangle 0 0 300 300) |
|
969 ) |
|
970 component: |
|
971 (SpecCollection |
|
972 collection: ( |
|
973 (VariableHorizontalPanelSpec |
|
974 name: 'CategoryNameSpaceAndProjectPanel' |
|
975 layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) |
|
976 visibilityChannel: categoryNameSpaceAndProjectPanelShown |
|
977 barWidth: 2 |
|
978 showHandle: false |
|
979 component: |
|
980 (SpecCollection |
|
981 collection: ( |
|
982 (ViewSpec |
|
983 name: 'LeftBox' |
|
984 component: |
|
985 (SpecCollection |
|
986 collection: ( |
|
987 (ViewSpec |
|
988 name: 'ClassCategoryAndNamespaceFilterBox' |
|
989 layout: (LayoutFrame 0 0 0 0 0 1 0 1) |
|
990 visibilityChannel: categoryListShown |
|
991 component: |
|
992 (SpecCollection |
|
993 collection: ( |
|
994 (SubCanvasSpec |
|
995 name: 'ClassCategoryList' |
|
996 layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 -25 1.0) |
|
997 majorKey: ClassCategoryList |
|
998 subAspectHolders: |
|
999 (Array |
|
1000 |
|
1001 (SubChannelInfoSpec |
|
1002 subAspect: doubleClickChannel |
|
1003 aspect: classCategoryDoubleClickChannel |
|
1004 ) |
|
1005 (SubChannelInfoSpec |
|
1006 subAspect: environmentHolder |
|
1007 aspect: environmentHolder |
|
1008 ) |
|
1009 |
|
1010 (SubChannelInfoSpec |
|
1011 subAspect: forceGeneratorTrigger |
|
1012 aspect: forceClassCategoryGeneratorTrigger |
|
1013 ) |
|
1014 (SubChannelInfoSpec |
|
1015 subAspect: hideUnloadedClasses |
|
1016 aspect: hideUnloadedClasses |
|
1017 ) |
|
1018 |
|
1019 (SubChannelInfoSpec |
|
1020 subAspect: immediateUpdate |
|
1021 aspect: immediateUpdate |
|
1022 ) |
|
1023 (SubChannelInfoSpec |
|
1024 subAspect: menuHolder |
|
1025 aspect: classCategoryListMenuHolder |
|
1026 ) |
|
1027 |
|
1028 (SubChannelInfoSpec |
|
1029 subAspect: nameSpaceFilter |
|
1030 aspect: nameSpaceFilterSelection |
|
1031 ) |
|
1032 (SubChannelInfoSpec |
|
1033 subAspect: organizerMode |
|
1034 aspect: organizerMode |
|
1035 ) |
|
1036 |
|
1037 (SubChannelInfoSpec |
|
1038 subAspect: outGeneratorHolder |
|
1039 aspect: classGeneratorHolder |
|
1040 ) |
|
1041 (SubChannelInfoSpec |
|
1042 subAspect: selectedCategories |
|
1043 aspect: selectedCategories |
|
1044 ) |
|
1045 |
|
1046 (SubChannelInfoSpec |
|
1047 subAspect: selectionChangeCondition |
|
1048 aspect: selectionChangeCondition |
|
1049 ) |
|
1050 (SubChannelInfoSpec |
|
1051 subAspect: slaveMode |
|
1052 aspect: categoryListSlaveMode |
|
1053 ) |
|
1054 |
|
1055 (SubChannelInfoSpec |
|
1056 subAspect: updateTrigger |
|
1057 aspect: classCategoryListUpdateTrigger |
|
1058 ) |
|
1059 ) |
|
1060 createNewApplication: true |
|
1061 createNewBuilder: true |
|
1062 ) |
|
1063 (ExtendedComboBoxSpec |
|
1064 name: 'NameSpaceFilterComboBox' |
|
1065 layout: (LayoutFrame 0 0 -25 1 0 1 0 1) |
|
1066 tabable: true |
|
1067 model: nameSpaceFilterSelectedNameSpace |
|
1068 menuWidgetHolder: nameSpaceListWidgetHolder |
|
1069 miniScrollerHorizontal: true |
|
1070 menuSelector: nameSpaceFilterPopUpMenu |
|
1071 ) |
|
1072 ) |
|
1073 |
|
1074 ) |
|
1075 ) |
|
1076 (SubCanvasSpec |
|
1077 name: 'NamespaceList' |
|
1078 layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) |
|
1079 initiallyInvisible: true |
|
1080 visibilityChannel: nameSpaceListShown |
|
1081 majorKey: NamespaceList |
|
1082 subAspectHolders: |
|
1083 (Array |
|
1084 |
|
1085 (SubChannelInfoSpec |
|
1086 subAspect: doubleClickChannel |
|
1087 aspect: nameSpaceDoubleClickChannel |
|
1088 ) |
|
1089 (SubChannelInfoSpec |
|
1090 subAspect: environmentHolder |
|
1091 aspect: environmentHolder |
|
1092 ) |
|
1093 |
|
1094 (SubChannelInfoSpec |
|
1095 subAspect: forceGeneratorTrigger |
|
1096 aspect: forceNamespaceGeneratorTrigger |
|
1097 ) |
|
1098 (SubChannelInfoSpec |
|
1099 subAspect: hideUnloadedClasses |
|
1100 aspect: hideUnloadedClasses |
|
1101 ) |
|
1102 |
|
1103 (SubChannelInfoSpec |
|
1104 subAspect: immediateUpdate |
|
1105 aspect: immediateUpdate |
|
1106 ) |
|
1107 (SubChannelInfoSpec |
|
1108 subAspect: menuHolder |
|
1109 aspect: nameSpaceListMenuHolder |
|
1110 ) |
|
1111 |
|
1112 (SubChannelInfoSpec |
|
1113 subAspect: organizerMode |
|
1114 aspect: organizerMode |
|
1115 ) |
|
1116 (SubChannelInfoSpec |
|
1117 subAspect: outGeneratorHolder |
|
1118 aspect: classGeneratorHolder |
|
1119 ) |
|
1120 |
|
1121 (SubChannelInfoSpec |
|
1122 subAspect: selectedNamespaces |
|
1123 aspect: selectedNamespaces |
|
1124 ) |
|
1125 (SubChannelInfoSpec |
|
1126 subAspect: selectionChangeCondition |
|
1127 aspect: selectionChangeCondition |
|
1128 ) |
|
1129 |
|
1130 (SubChannelInfoSpec |
|
1131 subAspect: slaveMode |
|
1132 aspect: nameSpaceListSlaveMode |
|
1133 ) |
|
1134 (SubChannelInfoSpec |
|
1135 subAspect: updateTrigger |
|
1136 aspect: nameSpaceListUpdateTrigger |
|
1137 ) |
|
1138 ) |
|
1139 createNewApplication: true |
|
1140 createNewBuilder: true |
|
1141 ) |
|
1142 (SubCanvasSpec |
|
1143 name: 'ProjectList' |
|
1144 layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) |
|
1145 initiallyInvisible: true |
|
1146 visibilityChannel: projectListShown |
|
1147 majorKey: ProjectList |
|
1148 subAspectHolders: |
|
1149 (Array |
|
1150 |
|
1151 (SubChannelInfoSpec |
|
1152 subAspect: doubleClickChannel |
|
1153 aspect: projectDoubleClickChannel |
|
1154 ) |
|
1155 (SubChannelInfoSpec |
|
1156 subAspect: environmentHolder |
|
1157 aspect: environmentHolder |
|
1158 ) |
|
1159 |
|
1160 (SubChannelInfoSpec |
|
1161 subAspect: forceGeneratorTrigger |
|
1162 aspect: forceProjectGeneratorTrigger |
|
1163 ) |
|
1164 (SubChannelInfoSpec |
|
1165 subAspect: hideUnloadedClasses |
|
1166 aspect: hideUnloadedClasses |
|
1167 ) |
|
1168 |
|
1169 (SubChannelInfoSpec |
|
1170 subAspect: immediateUpdate |
|
1171 aspect: immediateUpdate |
|
1172 ) |
|
1173 (SubChannelInfoSpec |
|
1174 subAspect: menuHolder |
|
1175 aspect: projectListMenuHolder |
|
1176 ) |
|
1177 |
|
1178 (SubChannelInfoSpec |
|
1179 subAspect: organizerMode |
|
1180 aspect: organizerMode |
|
1181 ) |
|
1182 (SubChannelInfoSpec |
|
1183 subAspect: outGeneratorHolder |
|
1184 aspect: classGeneratorHolder |
|
1185 ) |
|
1186 |
|
1187 (SubChannelInfoSpec |
|
1188 subAspect: selectedProjects |
|
1189 aspect: selectedProjects |
|
1190 ) |
|
1191 (SubChannelInfoSpec |
|
1192 subAspect: selectionChangeCondition |
|
1193 aspect: selectionChangeCondition |
|
1194 ) |
|
1195 |
|
1196 (SubChannelInfoSpec |
|
1197 subAspect: slaveMode |
|
1198 aspect: projectListSlaveMode |
|
1199 ) |
|
1200 (SubChannelInfoSpec |
|
1201 subAspect: updateTrigger |
|
1202 aspect: projectListUpdateTrigger |
|
1203 ) |
|
1204 ) |
|
1205 createNewApplication: true |
|
1206 createNewBuilder: true |
|
1207 ) |
|
1208 ) |
|
1209 |
|
1210 ) |
|
1211 ) |
|
1212 (ViewSpec |
|
1213 name: 'RightBox' |
|
1214 component: |
|
1215 (SpecCollection |
|
1216 collection: ( |
|
1217 (VariableVerticalPanelSpec |
|
1218 name: 'ClassAndVariablesPanel' |
|
1219 layout: (LayoutFrame 0 0 0 0 0 1 -25 1) |
|
1220 showHandle: false |
|
1221 snapMode: both |
|
1222 handlePosition: left |
|
1223 component: |
|
1224 (SpecCollection |
|
1225 collection: ( |
|
1226 (SubCanvasSpec |
|
1227 name: 'ClassList' |
|
1228 majorKey: ClassList |
|
1229 minorKey: windowSpec |
|
1230 subAspectHolders: |
|
1231 (Array |
|
1232 |
|
1233 (SubChannelInfoSpec |
|
1234 subAspect: doubleClickChannel |
|
1235 aspect: classDoubleClickChannel |
|
1236 ) |
|
1237 (SubChannelInfoSpec |
|
1238 subAspect: environmentHolder |
|
1239 aspect: environmentHolder |
|
1240 ) |
|
1241 |
|
1242 (SubChannelInfoSpec |
|
1243 subAspect: hidePrivateClasses |
|
1244 aspect: hidePrivateClasses |
|
1245 ) |
|
1246 (SubChannelInfoSpec |
|
1247 subAspect: hideUnloadedClasses |
|
1248 aspect: hideUnloadedClasses |
|
1249 ) |
|
1250 |
|
1251 (SubChannelInfoSpec |
|
1252 subAspect: immediateUpdate |
|
1253 aspect: immediateUpdate |
|
1254 ) |
|
1255 (SubChannelInfoSpec |
|
1256 subAspect: inGeneratorHolder |
|
1257 aspect: classGeneratorHolder |
|
1258 ) |
|
1259 |
|
1260 (SubChannelInfoSpec |
|
1261 subAspect: markApplicationsHolder |
|
1262 aspect: markApplicationsHolder |
|
1263 ) |
|
1264 (SubChannelInfoSpec |
|
1265 subAspect: menuHolder |
|
1266 aspect: classListMenuHolder |
|
1267 ) |
|
1268 |
|
1269 (SubChannelInfoSpec |
|
1270 subAspect: meta |
|
1271 aspect: meta |
|
1272 ) |
|
1273 (SubChannelInfoSpec |
|
1274 subAspect: nameSpaceFilter |
|
1275 aspect: nameSpaceFilter |
|
1276 ) |
|
1277 |
|
1278 (SubChannelInfoSpec |
|
1279 subAspect: organizerMode |
|
1280 aspect: organizerMode |
|
1281 ) |
|
1282 (SubChannelInfoSpec |
|
1283 subAspect: outGeneratorHolder |
|
1284 aspect: outGeneratorHolder |
|
1285 ) |
|
1286 |
|
1287 (SubChannelInfoSpec |
|
1288 subAspect: outGeneratorHolderForMethods |
|
1289 aspect: selectorListGenerator5 |
|
1290 ) |
|
1291 (SubChannelInfoSpec |
|
1292 subAspect: packageFilter |
|
1293 aspect: packageFilter |
|
1294 ) |
|
1295 |
|
1296 (SubChannelInfoSpec |
|
1297 subAspect: selectedClasses |
|
1298 aspect: selectedClasses |
|
1299 ) |
|
1300 (SubChannelInfoSpec |
|
1301 subAspect: selectionChangeCondition |
|
1302 aspect: selectionChangeCondition |
|
1303 ) |
|
1304 |
|
1305 (SubChannelInfoSpec |
|
1306 subAspect: showClassPackages |
|
1307 aspect: showClassPackages |
|
1308 ) |
|
1309 (SubChannelInfoSpec |
|
1310 subAspect: showCoverageInformation |
|
1311 aspect: showCoverageInformation |
|
1312 ) |
|
1313 |
|
1314 (SubChannelInfoSpec |
|
1315 subAspect: slaveMode |
|
1316 aspect: classListSlaveMode |
|
1317 ) |
|
1318 (SubChannelInfoSpec |
|
1319 subAspect: sortByNameAndInheritance |
|
1320 aspect: sortByNameAndInheritance |
|
1321 ) |
|
1322 |
|
1323 (SubChannelInfoSpec |
|
1324 subAspect: updateTrigger |
|
1325 aspect: classListUpdateTrigger |
|
1326 ) |
|
1327 ) |
|
1328 createNewApplication: true |
|
1329 createNewBuilder: true |
|
1330 ) |
|
1331 (SubCanvasSpec |
|
1332 name: 'VariableList' |
|
1333 majorKey: VariableList |
|
1334 subAspectHolders: |
|
1335 (Array |
|
1336 |
|
1337 (SubChannelInfoSpec |
|
1338 subAspect: classHolder |
|
1339 aspect: selectedClasses |
|
1340 ) |
|
1341 (SubChannelInfoSpec |
|
1342 subAspect: doubleClickChannel |
|
1343 aspect: variableDoubleClickChannel |
|
1344 ) |
|
1345 |
|
1346 (SubChannelInfoSpec |
|
1347 subAspect: environmentHolder |
|
1348 aspect: environmentHolder |
|
1349 ) |
|
1350 (SubChannelInfoSpec |
|
1351 subAspect: menuHolder |
|
1352 aspect: variablesMenuHolder |
|
1353 ) |
|
1354 |
|
1355 (SubChannelInfoSpec |
|
1356 subAspect: selectedVariables |
|
1357 aspect: variableFilter |
|
1358 ) |
|
1359 (SubChannelInfoSpec |
|
1360 subAspect: showClassVarsInVariableList |
|
1361 aspect: showClassVarsInVariableList |
|
1362 ) |
|
1363 |
|
1364 (SubChannelInfoSpec |
|
1365 subAspect: sortVariablesByName |
|
1366 aspect: sortVariablesByName |
|
1367 ) |
|
1368 (SubChannelInfoSpec |
|
1369 subAspect: slaveMode |
|
1370 aspect: classListSlaveMode |
|
1371 ) |
|
1372 ) |
|
1373 createNewApplication: true |
|
1374 createNewBuilder: true |
|
1375 ) |
|
1376 ) |
|
1377 |
|
1378 ) |
|
1379 handles: (Any 0.5 1.0) |
|
1380 ) |
|
1381 (UISubSpecification |
|
1382 name: 'MetaToggleSpec2' |
|
1383 layout: (LayoutFrame 0 0 -25 1 0 1 0 1) |
|
1384 minorKey: metaSpec |
|
1385 ) |
|
1386 ) |
|
1387 |
|
1388 ) |
|
1389 ) |
|
1390 ) |
|
1391 |
|
1392 ) |
|
1393 handles: (Any 0.5 1.0) |
|
1394 ) |
|
1395 (ViewSpec |
|
1396 name: 'ClassHierarchyOrInheritanceBox' |
|
1397 layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) |
|
1398 initiallyInvisible: true |
|
1399 visibilityChannel: classHierarchyOrInheritanceShown |
|
1400 component: |
|
1401 (SpecCollection |
|
1402 collection: ( |
|
1403 (VariableVerticalPanelSpec |
|
1404 name: 'VariableVerticalPanel2' |
|
1405 layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 -25 1.0) |
|
1406 showHandle: false |
|
1407 snapMode: both |
|
1408 handlePosition: left |
|
1409 component: |
|
1410 (SpecCollection |
|
1411 collection: ( |
|
1412 (ViewSpec |
|
1413 name: 'HierarchyOrInheritanceBox' |
|
1414 component: |
|
1415 (SpecCollection |
|
1416 collection: ( |
|
1417 (SubCanvasSpec |
|
1418 name: 'ClassHierarchyList' |
|
1419 layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) |
|
1420 visibilityChannel: classHierarchyShown |
|
1421 majorKey: HierarchicalClassList |
|
1422 subAspectHolders: |
|
1423 (Array |
|
1424 |
|
1425 (SubChannelInfoSpec |
|
1426 subAspect: doubleClickChannel |
|
1427 aspect: classDoubleClickChannel |
|
1428 ) |
|
1429 (SubChannelInfoSpec |
|
1430 subAspect: environmentHolder |
|
1431 aspect: environmentHolder |
|
1432 ) |
|
1433 |
|
1434 (SubChannelInfoSpec |
|
1435 subAspect: forceGeneratorTrigger |
|
1436 aspect: forceClassInheritanceGeneratorTrigger |
|
1437 ) |
|
1438 (SubChannelInfoSpec |
|
1439 subAspect: hideUnloadedClasses |
|
1440 aspect: hideUnloadedClasses |
|
1441 ) |
|
1442 |
|
1443 (SubChannelInfoSpec |
|
1444 subAspect: immediateUpdate |
|
1445 aspect: immediateUpdate |
|
1446 ) |
|
1447 (SubChannelInfoSpec |
|
1448 subAspect: markApplicationsHolder |
|
1449 aspect: markApplicationsHolder |
|
1450 ) |
|
1451 |
|
1452 (SubChannelInfoSpec |
|
1453 subAspect: menuHolder |
|
1454 aspect: classInheritanceListMenuHolder |
|
1455 ) |
|
1456 (SubChannelInfoSpec |
|
1457 subAspect: meta |
|
1458 aspect: meta |
|
1459 ) |
|
1460 |
|
1461 (SubChannelInfoSpec |
|
1462 subAspect: nameSpaceFilter |
|
1463 aspect: nameSpaceFilter |
|
1464 ) |
|
1465 (SubChannelInfoSpec |
|
1466 subAspect: organizerMode |
|
1467 aspect: organizerMode |
|
1468 ) |
|
1469 |
|
1470 (SubChannelInfoSpec |
|
1471 subAspect: outGeneratorHolder |
|
1472 aspect: outGeneratorHolder |
|
1473 ) |
|
1474 (SubChannelInfoSpec |
|
1475 subAspect: outGeneratorHolderForMethods |
|
1476 aspect: selectorListGenerator5 |
|
1477 ) |
|
1478 |
|
1479 (SubChannelInfoSpec |
|
1480 subAspect: packageFilter |
|
1481 aspect: packageFilter |
|
1482 ) |
|
1483 (SubChannelInfoSpec |
|
1484 subAspect: selectedClasses |
|
1485 aspect: selectedClasses |
|
1486 ) |
|
1487 |
|
1488 (SubChannelInfoSpec |
|
1489 subAspect: selectionChangeCondition |
|
1490 aspect: selectionChangeCondition |
|
1491 ) |
|
1492 (SubChannelInfoSpec |
|
1493 subAspect: showClassPackages |
|
1494 aspect: showClassPackages |
|
1495 ) |
|
1496 |
|
1497 (SubChannelInfoSpec |
|
1498 subAspect: slaveMode |
|
1499 aspect: classHierarchyListSlaveMode |
|
1500 ) |
|
1501 (SubChannelInfoSpec |
|
1502 subAspect: topClassHolder |
|
1503 aspect: classHierarchyTopClass |
|
1504 ) |
|
1505 |
|
1506 (SubChannelInfoSpec |
|
1507 subAspect: updateTrigger |
|
1508 aspect: classHierarchyUpdateTrigger |
|
1509 ) |
|
1510 ) |
|
1511 createNewApplication: true |
|
1512 createNewBuilder: true |
|
1513 ) |
|
1514 (SubCanvasSpec |
|
1515 name: 'ClassInheritanceList' |
|
1516 layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) |
|
1517 visibilityChannel: classInheritanceShown |
|
1518 majorKey: InheritanceClassList |
|
1519 subAspectHolders: |
|
1520 (Array |
|
1521 |
|
1522 (SubChannelInfoSpec |
|
1523 subAspect: doubleClickChannel |
|
1524 aspect: classDoubleClickChannel |
|
1525 ) |
|
1526 (SubChannelInfoSpec |
|
1527 subAspect: environmentHolder |
|
1528 aspect: environmentHolder |
|
1529 ) |
|
1530 |
|
1531 (SubChannelInfoSpec |
|
1532 subAspect: forceGeneratorTrigger |
|
1533 aspect: forceClassInheritanceGeneratorTrigger |
|
1534 ) |
|
1535 (SubChannelInfoSpec |
|
1536 subAspect: hideUnloadedClasses |
|
1537 aspect: hideUnloadedClasses |
|
1538 ) |
|
1539 |
|
1540 (SubChannelInfoSpec |
|
1541 subAspect: immediateUpdate |
|
1542 aspect: immediateUpdate |
|
1543 ) |
|
1544 (SubChannelInfoSpec |
|
1545 subAspect: markApplicationsHolder |
|
1546 aspect: markApplicationsHolder |
|
1547 ) |
|
1548 |
|
1549 (SubChannelInfoSpec |
|
1550 subAspect: menuHolder |
|
1551 aspect: classInheritanceListMenuHolder |
|
1552 ) |
|
1553 (SubChannelInfoSpec |
|
1554 subAspect: meta |
|
1555 aspect: meta |
|
1556 ) |
|
1557 |
|
1558 (SubChannelInfoSpec |
|
1559 subAspect: nameSpaceFilter |
|
1560 aspect: nameSpaceFilter |
|
1561 ) |
|
1562 (SubChannelInfoSpec |
|
1563 subAspect: organizerMode |
|
1564 aspect: organizerMode |
|
1565 ) |
|
1566 |
|
1567 (SubChannelInfoSpec |
|
1568 subAspect: outGeneratorHolder |
|
1569 aspect: outGeneratorHolder |
|
1570 ) |
|
1571 (SubChannelInfoSpec |
|
1572 subAspect: outGeneratorHolderForMethods |
|
1573 aspect: selectorListGenerator5 |
|
1574 ) |
|
1575 |
|
1576 (SubChannelInfoSpec |
|
1577 subAspect: packageFilter |
|
1578 aspect: packageFilter |
|
1579 ) |
|
1580 (SubChannelInfoSpec |
|
1581 subAspect: selectedClasses |
|
1582 aspect: selectedClasses |
|
1583 ) |
|
1584 |
|
1585 (SubChannelInfoSpec |
|
1586 subAspect: selectionChangeCondition |
|
1587 aspect: selectionChangeCondition |
|
1588 ) |
|
1589 (SubChannelInfoSpec |
|
1590 subAspect: showClassPackages |
|
1591 aspect: showClassPackages |
|
1592 ) |
|
1593 |
|
1594 (SubChannelInfoSpec |
|
1595 subAspect: slaveMode |
|
1596 aspect: classInheritanceListSlaveMode |
|
1597 ) |
|
1598 (SubChannelInfoSpec |
|
1599 subAspect: topClassHolder |
|
1600 aspect: classHierarchyTopClass |
|
1601 ) |
|
1602 |
|
1603 (SubChannelInfoSpec |
|
1604 subAspect: updateTrigger |
|
1605 aspect: classHierarchyUpdateTrigger |
|
1606 ) |
|
1607 ) |
|
1608 createNewApplication: true |
|
1609 createNewBuilder: true |
|
1610 ) |
|
1611 ) |
|
1612 |
|
1613 ) |
|
1614 ) |
|
1615 (SubCanvasSpec |
|
1616 name: 'VariableList2' |
|
1617 majorKey: VariableList |
|
1618 subAspectHolders: |
|
1619 (Array |
|
1620 |
|
1621 (SubChannelInfoSpec |
|
1622 subAspect: classHolder |
|
1623 aspect: selectedClasses |
|
1624 ) |
|
1625 (SubChannelInfoSpec |
|
1626 subAspect: doubleClickChannel |
|
1627 aspect: variableDoubleClickChannel |
|
1628 ) |
|
1629 |
|
1630 (SubChannelInfoSpec |
|
1631 subAspect: environmentHolder |
|
1632 aspect: environmentHolder |
|
1633 ) |
|
1634 (SubChannelInfoSpec |
|
1635 subAspect: menuHolder |
|
1636 aspect: variablesMenuHolder |
|
1637 ) |
|
1638 |
|
1639 (SubChannelInfoSpec |
|
1640 subAspect: selectedVariables |
|
1641 aspect: variableFilter |
|
1642 ) |
|
1643 (SubChannelInfoSpec |
|
1644 subAspect: showClassVarsInVariableList |
|
1645 aspect: showClassVarsInVariableList |
|
1646 ) |
|
1647 |
|
1648 (SubChannelInfoSpec |
|
1649 subAspect: slaveMode |
|
1650 aspect: classHierarchyListSlaveMode |
|
1651 ) |
|
1652 ) |
|
1653 createNewApplication: true |
|
1654 createNewBuilder: true |
|
1655 ) |
|
1656 ) |
|
1657 |
|
1658 ) |
|
1659 handles: (Any 0.5 1.0) |
|
1660 ) |
|
1661 (SubCanvasSpec |
|
1662 name: 'MetaToggles1' |
|
1663 layout: (LayoutFrame 0 0.0 -25 1 0 1.0 0 1) |
|
1664 hasHorizontalScrollBar: false |
|
1665 hasVerticalScrollBar: false |
|
1666 minorKey: metaSpec |
|
1667 createNewBuilder: false |
|
1668 ) |
|
1669 ) |
|
1670 |
|
1671 ) |
|
1672 ) |
|
1673 ) |
|
1674 |
|
1675 ) |
|
1676 ) |
|
1677 ! |
|
1678 |
|
1679 windowSpecNonHierarchicalWithClassDiagram |
|
1680 "This resource specification was automatically generated |
|
1681 by the UIPainter of ST/X." |
|
1682 |
|
1683 "Do not manually edit this!! If it is corrupted, |
|
1684 the UIPainter may not be able to read the specification." |
|
1685 |
|
1686 " |
|
1687 UIPainter new openOnClass:Tools::OrganizerCanvas andSelector:#windowSpecNonHierarchicalWithClassDiagram |
|
1688 Tools::OrganizerCanvas new openInterface:#windowSpecNonHierarchicalWithClassDiagram |
|
1689 " |
|
1690 |
|
1691 <resource: #canvas> |
|
1692 |
|
1693 ^ |
|
1694 #(FullSpec |
|
1695 name: windowSpecNonHierarchicalWithClassDiagram |
|
1696 window: |
|
1697 (WindowSpec |
|
1698 label: 'Organizer' |
|
1699 name: 'Organizer' |
|
1700 min: (Point 0 0) |
|
1701 max: (Point 1024 721) |
|
1702 bounds: (Rectangle 0 0 300 300) |
|
1703 ) |
|
1704 component: |
|
1705 (SpecCollection |
|
1706 collection: ( |
|
1707 (ViewSpec |
|
1708 name: 'PackageDiagramClassChooser' |
|
1709 layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) |
|
1710 level: 0 |
|
1711 initiallyInvisible: true |
|
1712 visibilityChannel: packageDiagramShown |
|
1713 component: |
|
1714 (SpecCollection |
|
1715 collection: ( |
|
1716 (ComboListSpec |
|
1717 name: 'ComboList1' |
|
1718 layout: (LayoutFrame 0 0 0 0 0 1 25 0) |
|
1719 model: selectedDiagramProject |
|
1720 comboList: packageList |
|
1721 useIndex: false |
|
1722 ) |
|
1723 (SubCanvasSpec |
|
1724 name: 'SubCanvas1' |
|
1725 layout: (LayoutFrame 0 0 25 0 0 1 -25 1) |
|
1726 level: 0 |
|
1727 hasHorizontalScrollBar: false |
|
1728 hasVerticalScrollBar: false |
|
1729 minorKey: windowSpecForClassChooser |
|
1730 clientHolder: diagramApplicationModelHolder |
|
1731 createNewBuilder: false |
|
1732 ) |
|
1733 (SubCanvasSpec |
|
1734 name: 'MetaToggles2' |
|
1735 layout: (LayoutFrame 0 0.0 -25 1 0 1.0 0 1) |
|
1736 hasHorizontalScrollBar: false |
|
1737 hasVerticalScrollBar: false |
|
1738 minorKey: metaSpec |
|
1739 createNewBuilder: false |
|
1740 ) |
|
1741 ) |
|
1742 |
|
1743 ) |
|
1744 ) |
|
1745 (ViewSpec |
|
1746 name: 'ClassHierarchyOrInheritanceBox' |
|
1747 layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) |
|
1748 initiallyInvisible: true |
|
1749 visibilityChannel: classHierarchyOrInheritanceShown |
|
1750 component: |
|
1751 (SpecCollection |
|
1752 collection: ( |
|
1753 (VariableVerticalPanelSpec |
|
1754 name: 'VariableVerticalPanel2' |
|
1755 layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 -25 1.0) |
|
1756 showHandle: false |
|
1757 snapMode: both |
|
1758 handlePosition: left |
|
1759 component: |
|
1760 (SpecCollection |
|
1761 collection: ( |
|
1762 (ViewSpec |
|
1763 name: 'HierarchyOrInheritanceBox' |
|
1764 component: |
|
1765 (SpecCollection |
|
1766 collection: ( |
|
1767 (SubCanvasSpec |
|
1768 name: 'ClassHierarchyList' |
|
1769 layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) |
|
1770 visibilityChannel: classHierarchyShown |
|
1771 majorKey: HierarchicalClassList |
|
1772 subAspectHolders: |
|
1773 (Array |
|
1774 |
|
1775 (SubChannelInfoSpec |
|
1776 subAspect: doubleClickChannel |
|
1777 aspect: classDoubleClickChannel |
|
1778 ) |
|
1779 (SubChannelInfoSpec |
|
1780 subAspect: environmentHolder |
|
1781 aspect: environmentHolder |
|
1782 ) |
|
1783 |
|
1784 (SubChannelInfoSpec |
|
1785 subAspect: forceGeneratorTrigger |
|
1786 aspect: forceClassInheritanceGeneratorTrigger |
|
1787 ) |
|
1788 (SubChannelInfoSpec |
|
1789 subAspect: hideUnloadedClasses |
|
1790 aspect: hideUnloadedClasses |
|
1791 ) |
|
1792 |
|
1793 (SubChannelInfoSpec |
|
1794 subAspect: immediateUpdate |
|
1795 aspect: immediateUpdate |
|
1796 ) |
|
1797 (SubChannelInfoSpec |
|
1798 subAspect: markApplicationsHolder |
|
1799 aspect: markApplicationsHolder |
|
1800 ) |
|
1801 |
|
1802 (SubChannelInfoSpec |
|
1803 subAspect: menuHolder |
|
1804 aspect: classInheritanceListMenuHolder |
|
1805 ) |
|
1806 (SubChannelInfoSpec |
|
1807 subAspect: meta |
|
1808 aspect: meta |
|
1809 ) |
|
1810 |
|
1811 (SubChannelInfoSpec |
|
1812 subAspect: nameSpaceFilter |
|
1813 aspect: nameSpaceFilter |
|
1814 ) |
|
1815 (SubChannelInfoSpec |
|
1816 subAspect: organizerMode |
|
1817 aspect: organizerMode |
|
1818 ) |
|
1819 |
|
1820 (SubChannelInfoSpec |
|
1821 subAspect: outGeneratorHolder |
|
1822 aspect: outGeneratorHolder |
|
1823 ) |
|
1824 (SubChannelInfoSpec |
|
1825 subAspect: outGeneratorHolderForMethods |
|
1826 aspect: selectorListGenerator5 |
|
1827 ) |
|
1828 |
|
1829 (SubChannelInfoSpec |
|
1830 subAspect: packageFilter |
|
1831 aspect: packageFilter |
|
1832 ) |
|
1833 (SubChannelInfoSpec |
|
1834 subAspect: selectedClasses |
|
1835 aspect: selectedClasses |
|
1836 ) |
|
1837 |
|
1838 (SubChannelInfoSpec |
|
1839 subAspect: selectionChangeCondition |
|
1840 aspect: selectionChangeCondition |
|
1841 ) |
|
1842 (SubChannelInfoSpec |
|
1843 subAspect: showClassPackages |
|
1844 aspect: showClassPackages |
|
1845 ) |
|
1846 |
|
1847 (SubChannelInfoSpec |
|
1848 subAspect: slaveMode |
|
1849 aspect: classHierarchyListSlaveMode |
|
1850 ) |
|
1851 (SubChannelInfoSpec |
|
1852 subAspect: topClassHolder |
|
1853 aspect: classHierarchyTopClass |
|
1854 ) |
|
1855 |
|
1856 (SubChannelInfoSpec |
|
1857 subAspect: updateTrigger |
|
1858 aspect: classHierarchyUpdateTrigger |
|
1859 ) |
|
1860 ) |
|
1861 createNewApplication: true |
|
1862 createNewBuilder: true |
|
1863 ) |
|
1864 (SubCanvasSpec |
|
1865 name: 'ClassInheritanceList' |
|
1866 layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) |
|
1867 visibilityChannel: classInheritanceShown |
|
1868 majorKey: InheritanceClassList |
|
1869 subAspectHolders: |
|
1870 (Array |
|
1871 |
|
1872 (SubChannelInfoSpec |
|
1873 subAspect: doubleClickChannel |
|
1874 aspect: classDoubleClickChannel |
|
1875 ) |
|
1876 (SubChannelInfoSpec |
|
1877 subAspect: environmentHolder |
|
1878 aspect: environmentHolder |
|
1879 ) |
|
1880 |
|
1881 (SubChannelInfoSpec |
|
1882 subAspect: forceGeneratorTrigger |
|
1883 aspect: forceClassInheritanceGeneratorTrigger |
|
1884 ) |
|
1885 (SubChannelInfoSpec |
|
1886 subAspect: hideUnloadedClasses |
|
1887 aspect: hideUnloadedClasses |
|
1888 ) |
|
1889 |
|
1890 (SubChannelInfoSpec |
|
1891 subAspect: immediateUpdate |
|
1892 aspect: immediateUpdate |
|
1893 ) |
|
1894 (SubChannelInfoSpec |
|
1895 subAspect: markApplicationsHolder |
|
1896 aspect: markApplicationsHolder |
|
1897 ) |
|
1898 |
|
1899 (SubChannelInfoSpec |
|
1900 subAspect: menuHolder |
|
1901 aspect: classInheritanceListMenuHolder |
|
1902 ) |
|
1903 (SubChannelInfoSpec |
|
1904 subAspect: meta |
|
1905 aspect: meta |
|
1906 ) |
|
1907 |
|
1908 (SubChannelInfoSpec |
|
1909 subAspect: nameSpaceFilter |
|
1910 aspect: nameSpaceFilter |
|
1911 ) |
|
1912 (SubChannelInfoSpec |
|
1913 subAspect: organizerMode |
|
1914 aspect: organizerMode |
|
1915 ) |
|
1916 |
|
1917 (SubChannelInfoSpec |
|
1918 subAspect: outGeneratorHolder |
|
1919 aspect: outGeneratorHolder |
|
1920 ) |
|
1921 (SubChannelInfoSpec |
|
1922 subAspect: outGeneratorHolderForMethods |
|
1923 aspect: selectorListGenerator5 |
|
1924 ) |
|
1925 |
|
1926 (SubChannelInfoSpec |
|
1927 subAspect: packageFilter |
|
1928 aspect: packageFilter |
|
1929 ) |
|
1930 (SubChannelInfoSpec |
|
1931 subAspect: selectedClasses |
|
1932 aspect: selectedClasses |
|
1933 ) |
|
1934 |
|
1935 (SubChannelInfoSpec |
|
1936 subAspect: selectionChangeCondition |
|
1937 aspect: selectionChangeCondition |
|
1938 ) |
|
1939 (SubChannelInfoSpec |
|
1940 subAspect: showClassPackages |
|
1941 aspect: showClassPackages |
|
1942 ) |
|
1943 |
|
1944 (SubChannelInfoSpec |
|
1945 subAspect: slaveMode |
|
1946 aspect: classInheritanceListSlaveMode |
|
1947 ) |
|
1948 (SubChannelInfoSpec |
|
1949 subAspect: topClassHolder |
|
1950 aspect: classHierarchyTopClass |
|
1951 ) |
|
1952 |
|
1953 (SubChannelInfoSpec |
|
1954 subAspect: updateTrigger |
|
1955 aspect: classHierarchyUpdateTrigger |
|
1956 ) |
|
1957 ) |
|
1958 createNewApplication: true |
|
1959 createNewBuilder: true |
|
1960 ) |
|
1961 ) |
|
1962 |
|
1963 ) |
|
1964 ) |
|
1965 (SubCanvasSpec |
|
1966 name: 'VariableList2' |
|
1967 majorKey: VariableList |
|
1968 subAspectHolders: |
|
1969 (Array |
|
1970 |
|
1971 (SubChannelInfoSpec |
|
1972 subAspect: classHolder |
|
1973 aspect: selectedClasses |
|
1974 ) |
|
1975 (SubChannelInfoSpec |
|
1976 subAspect: doubleClickChannel |
|
1977 aspect: variableDoubleClickChannel |
|
1978 ) |
|
1979 |
|
1980 (SubChannelInfoSpec |
|
1981 subAspect: environmentHolder |
|
1982 aspect: environmentHolder |
|
1983 ) |
|
1984 (SubChannelInfoSpec |
|
1985 subAspect: menuHolder |
|
1986 aspect: variablesMenuHolder |
|
1987 ) |
|
1988 |
|
1989 (SubChannelInfoSpec |
|
1990 subAspect: selectedVariables |
|
1991 aspect: variableFilter |
|
1992 ) |
|
1993 (SubChannelInfoSpec |
|
1994 subAspect: showClassVarsInVariableList |
|
1995 aspect: showClassVarsInVariableList |
|
1996 ) |
|
1997 |
|
1998 (SubChannelInfoSpec |
|
1999 subAspect: slaveMode |
|
2000 aspect: classHierarchyListSlaveMode |
|
2001 ) |
|
2002 ) |
|
2003 createNewApplication: true |
|
2004 createNewBuilder: true |
|
2005 ) |
|
2006 ) |
|
2007 |
|
2008 ) |
|
2009 handles: (Any 0.5 1.0) |
|
2010 ) |
|
2011 (SubCanvasSpec |
|
2012 name: 'MetaToggles1' |
|
2013 layout: (LayoutFrame 0 0.0 -25 1 0 1.0 0 1) |
|
2014 hasHorizontalScrollBar: false |
|
2015 hasVerticalScrollBar: false |
|
2016 minorKey: metaSpec |
|
2017 createNewBuilder: false |
|
2018 ) |
|
2019 ) |
|
2020 |
|
2021 ) |
|
2022 ) |
|
2023 (VariableHorizontalPanelSpec |
|
2024 name: 'CategoryNameSpaceAndProjectPanel' |
|
2025 layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) |
|
2026 visibilityChannel: categoryNameSpaceAndProjectPanelShown |
|
2027 barWidth: 2 |
|
2028 showHandle: false |
|
2029 component: |
|
2030 (SpecCollection |
|
2031 collection: ( |
|
2032 (ViewSpec |
|
2033 name: 'LeftBox' |
|
2034 component: |
|
2035 (SpecCollection |
|
2036 collection: ( |
|
2037 (ViewSpec |
|
2038 name: 'ClassCategoryAndNamespaceFilterBox' |
|
2039 layout: (LayoutFrame 0 0 0 0 0 1 0 1) |
|
2040 visibilityChannel: categoryListShown |
|
2041 component: |
|
2042 (SpecCollection |
|
2043 collection: ( |
|
2044 (SubCanvasSpec |
|
2045 name: 'ClassCategoryList' |
|
2046 layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 -25 1.0) |
|
2047 majorKey: ClassCategoryList |
|
2048 subAspectHolders: |
|
2049 (Array |
|
2050 |
|
2051 (SubChannelInfoSpec |
|
2052 subAspect: doubleClickChannel |
|
2053 aspect: classCategoryDoubleClickChannel |
|
2054 ) |
|
2055 (SubChannelInfoSpec |
|
2056 subAspect: environmentHolder |
|
2057 aspect: environmentHolder |
|
2058 ) |
|
2059 |
|
2060 (SubChannelInfoSpec |
|
2061 subAspect: forceGeneratorTrigger |
|
2062 aspect: forceClassCategoryGeneratorTrigger |
|
2063 ) |
|
2064 (SubChannelInfoSpec |
|
2065 subAspect: hideUnloadedClasses |
|
2066 aspect: hideUnloadedClasses |
|
2067 ) |
|
2068 |
|
2069 (SubChannelInfoSpec |
|
2070 subAspect: immediateUpdate |
|
2071 aspect: immediateUpdate |
|
2072 ) |
|
2073 (SubChannelInfoSpec |
|
2074 subAspect: menuHolder |
|
2075 aspect: classCategoryListMenuHolder |
|
2076 ) |
|
2077 |
|
2078 (SubChannelInfoSpec |
|
2079 subAspect: nameSpaceFilter |
|
2080 aspect: nameSpaceFilterSelection |
|
2081 ) |
|
2082 (SubChannelInfoSpec |
|
2083 subAspect: organizerMode |
|
2084 aspect: organizerMode |
|
2085 ) |
|
2086 |
|
2087 (SubChannelInfoSpec |
|
2088 subAspect: outGeneratorHolder |
|
2089 aspect: classGeneratorHolder |
|
2090 ) |
|
2091 (SubChannelInfoSpec |
|
2092 subAspect: selectedCategories |
|
2093 aspect: selectedCategories |
|
2094 ) |
|
2095 |
|
2096 (SubChannelInfoSpec |
|
2097 subAspect: selectionChangeCondition |
|
2098 aspect: selectionChangeCondition |
|
2099 ) |
|
2100 (SubChannelInfoSpec |
|
2101 subAspect: slaveMode |
|
2102 aspect: categoryListSlaveMode |
|
2103 ) |
|
2104 |
|
2105 (SubChannelInfoSpec |
|
2106 subAspect: updateTrigger |
|
2107 aspect: classCategoryListUpdateTrigger |
|
2108 ) |
|
2109 ) |
|
2110 createNewApplication: true |
|
2111 createNewBuilder: true |
|
2112 ) |
|
2113 (ExtendedComboBoxSpec |
|
2114 name: 'NameSpaceFilterComboBox' |
|
2115 layout: (LayoutFrame 0 0 -25 1 0 1 0 1) |
|
2116 tabable: true |
|
2117 model: nameSpaceFilterSelectedNameSpace |
|
2118 menuWidgetHolder: nameSpaceListWidgetHolder |
|
2119 miniScrollerHorizontal: true |
|
2120 menuSelector: nameSpaceFilterPopUpMenu |
|
2121 ) |
|
2122 ) |
|
2123 |
|
2124 ) |
|
2125 ) |
|
2126 (SubCanvasSpec |
|
2127 name: 'NamespaceList' |
|
2128 layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) |
|
2129 initiallyInvisible: true |
|
2130 visibilityChannel: nameSpaceListShown |
|
2131 majorKey: NamespaceList |
|
2132 subAspectHolders: |
|
2133 (Array |
|
2134 |
|
2135 (SubChannelInfoSpec |
|
2136 subAspect: doubleClickChannel |
|
2137 aspect: nameSpaceDoubleClickChannel |
|
2138 ) |
|
2139 (SubChannelInfoSpec |
|
2140 subAspect: environmentHolder |
|
2141 aspect: environmentHolder |
|
2142 ) |
|
2143 |
|
2144 (SubChannelInfoSpec |
|
2145 subAspect: forceGeneratorTrigger |
|
2146 aspect: forceNamespaceGeneratorTrigger |
|
2147 ) |
|
2148 (SubChannelInfoSpec |
|
2149 subAspect: hideUnloadedClasses |
|
2150 aspect: hideUnloadedClasses |
|
2151 ) |
|
2152 |
|
2153 (SubChannelInfoSpec |
|
2154 subAspect: immediateUpdate |
|
2155 aspect: immediateUpdate |
|
2156 ) |
|
2157 (SubChannelInfoSpec |
|
2158 subAspect: menuHolder |
|
2159 aspect: nameSpaceListMenuHolder |
|
2160 ) |
|
2161 |
|
2162 (SubChannelInfoSpec |
|
2163 subAspect: organizerMode |
|
2164 aspect: organizerMode |
|
2165 ) |
|
2166 (SubChannelInfoSpec |
|
2167 subAspect: outGeneratorHolder |
|
2168 aspect: classGeneratorHolder |
|
2169 ) |
|
2170 |
|
2171 (SubChannelInfoSpec |
|
2172 subAspect: selectedNamespaces |
|
2173 aspect: selectedNamespaces |
|
2174 ) |
|
2175 (SubChannelInfoSpec |
|
2176 subAspect: selectionChangeCondition |
|
2177 aspect: selectionChangeCondition |
|
2178 ) |
|
2179 |
|
2180 (SubChannelInfoSpec |
|
2181 subAspect: slaveMode |
|
2182 aspect: nameSpaceListSlaveMode |
|
2183 ) |
|
2184 (SubChannelInfoSpec |
|
2185 subAspect: updateTrigger |
|
2186 aspect: nameSpaceListUpdateTrigger |
|
2187 ) |
|
2188 ) |
|
2189 createNewApplication: true |
|
2190 createNewBuilder: true |
|
2191 ) |
|
2192 (SubCanvasSpec |
|
2193 name: 'ProjectList' |
|
2194 layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) |
|
2195 initiallyInvisible: true |
|
2196 visibilityChannel: projectListShown |
|
2197 majorKey: ProjectList |
|
2198 subAspectHolders: |
|
2199 (Array |
|
2200 |
|
2201 (SubChannelInfoSpec |
|
2202 subAspect: doubleClickChannel |
|
2203 aspect: projectDoubleClickChannel |
|
2204 ) |
|
2205 (SubChannelInfoSpec |
|
2206 subAspect: environmentHolder |
|
2207 aspect: environmentHolder |
|
2208 ) |
|
2209 |
|
2210 (SubChannelInfoSpec |
|
2211 subAspect: forceGeneratorTrigger |
|
2212 aspect: forceProjectGeneratorTrigger |
|
2213 ) |
|
2214 (SubChannelInfoSpec |
|
2215 subAspect: hideUnloadedClasses |
|
2216 aspect: hideUnloadedClasses |
|
2217 ) |
|
2218 |
|
2219 (SubChannelInfoSpec |
|
2220 subAspect: immediateUpdate |
|
2221 aspect: immediateUpdate |
|
2222 ) |
|
2223 (SubChannelInfoSpec |
|
2224 subAspect: menuHolder |
|
2225 aspect: projectListMenuHolder |
|
2226 ) |
|
2227 |
|
2228 (SubChannelInfoSpec |
|
2229 subAspect: organizerMode |
|
2230 aspect: organizerMode |
|
2231 ) |
|
2232 (SubChannelInfoSpec |
|
2233 subAspect: outGeneratorHolder |
|
2234 aspect: classGeneratorHolder |
|
2235 ) |
|
2236 |
|
2237 (SubChannelInfoSpec |
|
2238 subAspect: selectedProjects |
|
2239 aspect: selectedProjects |
|
2240 ) |
|
2241 (SubChannelInfoSpec |
|
2242 subAspect: selectionChangeCondition |
|
2243 aspect: selectionChangeCondition |
|
2244 ) |
|
2245 |
|
2246 (SubChannelInfoSpec |
|
2247 subAspect: slaveMode |
|
2248 aspect: projectListSlaveMode |
|
2249 ) |
|
2250 (SubChannelInfoSpec |
|
2251 subAspect: updateTrigger |
|
2252 aspect: projectListUpdateTrigger |
|
2253 ) |
|
2254 ) |
|
2255 createNewApplication: true |
|
2256 createNewBuilder: true |
|
2257 ) |
|
2258 ) |
|
2259 |
|
2260 ) |
|
2261 ) |
|
2262 (ViewSpec |
|
2263 name: 'RightBox' |
|
2264 component: |
|
2265 (SpecCollection |
|
2266 collection: ( |
|
2267 (VariableVerticalPanelSpec |
|
2268 name: 'ClassAndVariablesPanel' |
|
2269 layout: (LayoutFrame 0 0 0 0 0 1 -25 1) |
|
2270 showHandle: false |
|
2271 snapMode: both |
|
2272 handlePosition: left |
|
2273 component: |
|
2274 (SpecCollection |
|
2275 collection: ( |
|
2276 (SubCanvasSpec |
|
2277 name: 'ClassList' |
|
2278 majorKey: ClassList |
|
2279 minorKey: windowSpec |
|
2280 subAspectHolders: |
|
2281 (Array |
|
2282 |
|
2283 (SubChannelInfoSpec |
|
2284 subAspect: doubleClickChannel |
|
2285 aspect: classDoubleClickChannel |
|
2286 ) |
|
2287 (SubChannelInfoSpec |
|
2288 subAspect: environmentHolder |
|
2289 aspect: environmentHolder |
|
2290 ) |
|
2291 |
|
2292 (SubChannelInfoSpec |
|
2293 subAspect: hidePrivateClasses |
|
2294 aspect: hidePrivateClasses |
|
2295 ) |
|
2296 (SubChannelInfoSpec |
|
2297 subAspect: hideUnloadedClasses |
|
2298 aspect: hideUnloadedClasses |
|
2299 ) |
|
2300 |
|
2301 (SubChannelInfoSpec |
|
2302 subAspect: immediateUpdate |
|
2303 aspect: immediateUpdate |
|
2304 ) |
|
2305 (SubChannelInfoSpec |
|
2306 subAspect: inGeneratorHolder |
|
2307 aspect: classGeneratorHolder |
|
2308 ) |
|
2309 |
|
2310 (SubChannelInfoSpec |
|
2311 subAspect: markApplicationsHolder |
|
2312 aspect: markApplicationsHolder |
|
2313 ) |
|
2314 (SubChannelInfoSpec |
|
2315 subAspect: menuHolder |
|
2316 aspect: classListMenuHolder |
|
2317 ) |
|
2318 |
|
2319 (SubChannelInfoSpec |
|
2320 subAspect: meta |
|
2321 aspect: meta |
|
2322 ) |
|
2323 (SubChannelInfoSpec |
|
2324 subAspect: nameSpaceFilter |
|
2325 aspect: nameSpaceFilter |
|
2326 ) |
|
2327 |
|
2328 (SubChannelInfoSpec |
|
2329 subAspect: organizerMode |
|
2330 aspect: organizerMode |
|
2331 ) |
|
2332 (SubChannelInfoSpec |
|
2333 subAspect: outGeneratorHolder |
|
2334 aspect: outGeneratorHolder |
|
2335 ) |
|
2336 |
|
2337 (SubChannelInfoSpec |
|
2338 subAspect: outGeneratorHolderForMethods |
|
2339 aspect: selectorListGenerator5 |
|
2340 ) |
|
2341 (SubChannelInfoSpec |
|
2342 subAspect: packageFilter |
|
2343 aspect: packageFilter |
|
2344 ) |
|
2345 |
|
2346 (SubChannelInfoSpec |
|
2347 subAspect: selectedClasses |
|
2348 aspect: selectedClasses |
|
2349 ) |
|
2350 (SubChannelInfoSpec |
|
2351 subAspect: selectionChangeCondition |
|
2352 aspect: selectionChangeCondition |
|
2353 ) |
|
2354 |
|
2355 (SubChannelInfoSpec |
|
2356 subAspect: showClassPackages |
|
2357 aspect: showClassPackages |
|
2358 ) |
|
2359 (SubChannelInfoSpec |
|
2360 subAspect: showCoverageInformation |
|
2361 aspect: showCoverageInformation |
|
2362 ) |
|
2363 |
|
2364 (SubChannelInfoSpec |
|
2365 subAspect: slaveMode |
|
2366 aspect: classListSlaveMode |
|
2367 ) |
|
2368 (SubChannelInfoSpec |
|
2369 subAspect: sortByNameAndInheritance |
|
2370 aspect: sortByNameAndInheritance |
|
2371 ) |
|
2372 |
|
2373 (SubChannelInfoSpec |
|
2374 subAspect: updateTrigger |
|
2375 aspect: classListUpdateTrigger |
|
2376 ) |
|
2377 ) |
|
2378 createNewApplication: true |
|
2379 createNewBuilder: true |
|
2380 ) |
|
2381 (SubCanvasSpec |
|
2382 name: 'VariableList' |
|
2383 majorKey: VariableList |
|
2384 subAspectHolders: |
|
2385 (Array |
|
2386 |
|
2387 (SubChannelInfoSpec |
|
2388 subAspect: classHolder |
|
2389 aspect: selectedClasses |
|
2390 ) |
|
2391 (SubChannelInfoSpec |
|
2392 subAspect: doubleClickChannel |
|
2393 aspect: variableDoubleClickChannel |
|
2394 ) |
|
2395 |
|
2396 (SubChannelInfoSpec |
|
2397 subAspect: environmentHolder |
|
2398 aspect: environmentHolder |
|
2399 ) |
|
2400 (SubChannelInfoSpec |
|
2401 subAspect: menuHolder |
|
2402 aspect: variablesMenuHolder |
|
2403 ) |
|
2404 |
|
2405 (SubChannelInfoSpec |
|
2406 subAspect: selectedVariables |
|
2407 aspect: variableFilter |
|
2408 ) |
|
2409 (SubChannelInfoSpec |
|
2410 subAspect: showClassVarsInVariableList |
|
2411 aspect: showClassVarsInVariableList |
|
2412 ) |
|
2413 |
|
2414 (SubChannelInfoSpec |
|
2415 subAspect: sortVariablesByName |
|
2416 aspect: sortVariablesByName |
|
2417 ) |
|
2418 (SubChannelInfoSpec |
|
2419 subAspect: slaveMode |
|
2420 aspect: classListSlaveMode |
|
2421 ) |
|
2422 ) |
|
2423 createNewApplication: true |
|
2424 createNewBuilder: true |
|
2425 ) |
|
2426 ) |
|
2427 |
|
2428 ) |
|
2429 handles: (Any 0.5 1.0) |
|
2430 ) |
|
2431 (UISubSpecification |
|
2432 name: 'MetaToggleSpec2' |
|
2433 layout: (LayoutFrame 0 0 -25 1 0 1 0 1) |
|
2434 minorKey: metaSpec |
|
2435 ) |
|
2436 ) |
|
2437 |
|
2438 ) |
|
2439 ) |
|
2440 ) |
|
2441 |
|
2442 ) |
|
2443 handles: (Any 0.5 1.0) |
|
2444 ) |
|
2445 ) |
|
2446 |
|
2447 ) |
|
2448 ) |
|
2449 ! |
|
2450 |
|
2451 windowSpecWithoutMetaToggles |
|
2452 "This resource specification was automatically generated |
|
2453 by the UIPainter of ST/X." |
|
2454 |
|
2455 "Do not manually edit this!! If it is corrupted, |
|
2456 the UIPainter may not be able to read the specification." |
|
2457 |
|
2458 " |
|
2459 UIPainter new openOnClass:Tools::OrganizerCanvas andSelector:#windowSpecWithoutMetaToggles |
|
2460 Tools::OrganizerCanvas new openInterface:#windowSpecWithoutMetaToggles |
|
2461 " |
|
2462 |
|
2463 <resource: #canvas> |
|
2464 |
|
2465 ^ |
|
2466 #(FullSpec |
|
2467 name: windowSpecWithoutMetaToggles |
|
2468 window: |
|
2469 (WindowSpec |
|
2470 label: 'Organizer' |
|
2471 name: 'Organizer' |
|
2472 min: (Point 0 0) |
|
2473 max: (Point 1024 721) |
|
2474 bounds: (Rectangle 0 0 300 300) |
|
2475 ) |
|
2476 component: |
|
2477 (SpecCollection |
|
2478 collection: ( |
|
2479 (SubCanvasSpec |
|
2480 name: 'ClassHierarchyList' |
|
2481 layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) |
|
2482 visibilityChannel: classHierarchyShown |
|
2483 majorKey: HierarchicalClassList |
|
2484 minorKey: windowSpec |
|
2485 subAspectHolders: |
|
2486 (Array |
|
2487 |
|
2488 (SubChannelInfoSpec |
|
2489 subAspect: doubleClickChannel |
|
2490 aspect: classDoubleClickChannel |
|
2491 ) |
|
2492 (SubChannelInfoSpec |
|
2493 subAspect: environmentHolder |
|
2494 aspect: environmentHolder |
|
2495 ) |
|
2496 |
|
2497 (SubChannelInfoSpec |
|
2498 subAspect: forceGeneratorTrigger |
|
2499 aspect: forceClassInheritanceGeneratorTrigger |
|
2500 ) |
|
2501 (SubChannelInfoSpec |
|
2502 subAspect: hideUnloadedClasses |
|
2503 aspect: hideUnloadedClasses |
|
2504 ) |
|
2505 |
|
2506 (SubChannelInfoSpec |
|
2507 subAspect: immediateUpdate |
|
2508 aspect: immediateUpdate |
|
2509 ) |
|
2510 (SubChannelInfoSpec |
|
2511 subAspect: markApplicationsHolder |
|
2512 aspect: markApplicationsHolder |
|
2513 ) |
|
2514 |
|
2515 (SubChannelInfoSpec |
|
2516 subAspect: menuHolder |
|
2517 aspect: classInheritanceListMenuHolder |
|
2518 ) |
|
2519 (SubChannelInfoSpec |
|
2520 subAspect: meta |
|
2521 aspect: meta |
|
2522 ) |
|
2523 |
|
2524 (SubChannelInfoSpec |
|
2525 subAspect: methodVisibilityHolder |
|
2526 aspect: methodVisibilityHolder |
|
2527 ) |
|
2528 (SubChannelInfoSpec |
|
2529 subAspect: nameSpaceFilter |
|
2530 aspect: nameSpaceFilter |
|
2531 ) |
|
2532 |
|
2533 (SubChannelInfoSpec |
|
2534 subAspect: organizerMode |
|
2535 aspect: organizerMode |
|
2536 ) |
|
2537 (SubChannelInfoSpec |
|
2538 subAspect: outGeneratorHolder |
|
2539 aspect: outGeneratorHolder |
|
2540 ) |
|
2541 |
|
2542 (SubChannelInfoSpec |
|
2543 subAspect: packageFilter |
|
2544 aspect: packageFilter |
|
2545 ) |
|
2546 (SubChannelInfoSpec |
|
2547 subAspect: selectedClasses |
|
2548 aspect: selectedClasses |
|
2549 ) |
|
2550 |
|
2551 (SubChannelInfoSpec |
|
2552 subAspect: selectionChangeCondition |
|
2553 aspect: selectionChangeCondition |
|
2554 ) |
|
2555 (SubChannelInfoSpec |
|
2556 subAspect: showClassPackages |
|
2557 aspect: showClassPackages |
|
2558 ) |
|
2559 |
|
2560 (SubChannelInfoSpec |
|
2561 subAspect: showCoverageInformation |
|
2562 aspect: showCoverageInformation |
|
2563 ) |
|
2564 (SubChannelInfoSpec |
|
2565 subAspect: showMethodComplexity |
|
2566 aspect: showMethodComplexity |
|
2567 ) |
|
2568 |
|
2569 (SubChannelInfoSpec |
|
2570 subAspect: showMethodInheritance |
|
2571 aspect: showMethodInheritance |
|
2572 ) |
|
2573 (SubChannelInfoSpec |
|
2574 subAspect: showMethodTypeIcon |
|
2575 aspect: showMethodTypeIcon |
|
2576 ) |
|
2577 |
|
2578 (SubChannelInfoSpec |
|
2579 subAspect: slaveMode |
|
2580 aspect: classInheritanceListSlaveMode |
|
2581 ) |
|
2582 (SubChannelInfoSpec |
|
2583 subAspect: topClassHolder |
|
2584 aspect: classHierarchyTopClass |
|
2585 ) |
|
2586 |
|
2587 (SubChannelInfoSpec |
|
2588 subAspect: updateTrigger |
|
2589 aspect: classHierarchyUpdateTrigger |
|
2590 ) |
|
2591 ) |
|
2592 createNewApplication: true |
|
2593 createNewBuilder: true |
|
2594 ) |
|
2595 (SubCanvasSpec |
|
2596 name: 'ClassInheritanceList' |
|
2597 layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) |
|
2598 visibilityChannel: classInheritanceShown |
|
2599 majorKey: InheritanceClassList |
|
2600 minorKey: windowSpec |
|
2601 subAspectHolders: |
|
2602 (Array |
|
2603 |
|
2604 (SubChannelInfoSpec |
|
2605 subAspect: doubleClickChannel |
|
2606 aspect: classDoubleClickChannel |
|
2607 ) |
|
2608 (SubChannelInfoSpec |
|
2609 subAspect: environmentHolder |
|
2610 aspect: environmentHolder |
|
2611 ) |
|
2612 |
|
2613 (SubChannelInfoSpec |
|
2614 subAspect: forceGeneratorTrigger |
|
2615 aspect: forceClassInheritanceGeneratorTrigger |
|
2616 ) |
|
2617 (SubChannelInfoSpec |
|
2618 subAspect: hideUnloadedClasses |
|
2619 aspect: hideUnloadedClasses |
|
2620 ) |
|
2621 |
|
2622 (SubChannelInfoSpec |
|
2623 subAspect: immediateUpdate |
|
2624 aspect: immediateUpdate |
|
2625 ) |
|
2626 (SubChannelInfoSpec |
|
2627 subAspect: markApplicationsHolder |
|
2628 aspect: markApplicationsHolder |
|
2629 ) |
|
2630 |
|
2631 (SubChannelInfoSpec |
|
2632 subAspect: menuHolder |
|
2633 aspect: classInheritanceListMenuHolder |
|
2634 ) |
|
2635 (SubChannelInfoSpec |
|
2636 subAspect: meta |
|
2637 aspect: meta |
|
2638 ) |
|
2639 |
|
2640 (SubChannelInfoSpec |
|
2641 subAspect: nameSpaceFilter |
|
2642 aspect: nameSpaceFilter |
|
2643 ) |
|
2644 (SubChannelInfoSpec |
|
2645 subAspect: organizerMode |
|
2646 aspect: organizerMode |
|
2647 ) |
|
2648 |
|
2649 (SubChannelInfoSpec |
|
2650 subAspect: outGeneratorHolder |
|
2651 aspect: outGeneratorHolder |
|
2652 ) |
|
2653 (SubChannelInfoSpec |
|
2654 subAspect: packageFilter |
|
2655 aspect: packageFilter |
|
2656 ) |
|
2657 |
|
2658 (SubChannelInfoSpec |
|
2659 subAspect: selectedClasses |
|
2660 aspect: selectedClasses |
|
2661 ) |
|
2662 (SubChannelInfoSpec |
|
2663 subAspect: selectionChangeCondition |
|
2664 aspect: selectionChangeCondition |
|
2665 ) |
|
2666 |
|
2667 (SubChannelInfoSpec |
|
2668 subAspect: showCoverageInformation |
|
2669 aspect: showCoverageInformation |
|
2670 ) |
|
2671 (SubChannelInfoSpec |
|
2672 subAspect: slaveMode |
|
2673 aspect: classInheritanceListSlaveMode |
|
2674 ) |
|
2675 |
|
2676 (SubChannelInfoSpec |
|
2677 subAspect: topClassHolder |
|
2678 aspect: classHierarchyTopClass |
|
2679 ) |
|
2680 (SubChannelInfoSpec |
|
2681 subAspect: updateTrigger |
|
2682 aspect: classHierarchyUpdateTrigger |
|
2683 ) |
|
2684 ) |
|
2685 createNewApplication: true |
|
2686 createNewBuilder: true |
|
2687 ) |
|
2688 (VariableHorizontalPanelSpec |
|
2689 name: 'VariableHorizontalPanel1' |
|
2690 layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) |
|
2691 visibilityChannel: classHierarchyNotShown |
|
2692 barWidth: 2 |
|
2693 showHandle: false |
|
2694 component: |
|
2695 (SpecCollection |
|
2696 collection: ( |
|
2697 (ViewSpec |
|
2698 name: 'Box1' |
|
2699 component: |
|
2700 (SpecCollection |
|
2701 collection: ( |
|
2702 (SubCanvasSpec |
|
2703 name: 'ClassCategoryList' |
|
2704 layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) |
|
2705 visibilityChannel: categoryListShown |
|
2706 majorKey: ClassCategoryList |
|
2707 subAspectHolders: |
|
2708 (Array |
|
2709 |
|
2710 (SubChannelInfoSpec |
|
2711 subAspect: doubleClickChannel |
|
2712 aspect: classCategoryDoubleClickChannel |
|
2713 ) |
|
2714 (SubChannelInfoSpec |
|
2715 subAspect: environmentHolder |
|
2716 aspect: environmentHolder |
|
2717 ) |
|
2718 |
|
2719 (SubChannelInfoSpec |
|
2720 subAspect: forceGeneratorTrigger |
|
2721 aspect: forceClassCategoryGeneratorTrigger |
|
2722 ) |
|
2723 (SubChannelInfoSpec |
|
2724 subAspect: hideUnloadedClasses |
|
2725 aspect: hideUnloadedClasses |
|
2726 ) |
|
2727 |
|
2728 (SubChannelInfoSpec |
|
2729 subAspect: immediateUpdate |
|
2730 aspect: immediateUpdate |
|
2731 ) |
|
2732 (SubChannelInfoSpec |
|
2733 subAspect: menuHolder |
|
2734 aspect: classCategoryListMenuHolder |
|
2735 ) |
|
2736 |
|
2737 (SubChannelInfoSpec |
|
2738 subAspect: organizerMode |
|
2739 aspect: organizerMode |
|
2740 ) |
|
2741 (SubChannelInfoSpec |
|
2742 subAspect: outGeneratorHolder |
|
2743 aspect: classGeneratorHolder |
|
2744 ) |
|
2745 |
|
2746 (SubChannelInfoSpec |
|
2747 subAspect: selectedCategories |
|
2748 aspect: selectedCategories |
|
2749 ) |
|
2750 (SubChannelInfoSpec |
|
2751 subAspect: selectionChangeCondition |
|
2752 aspect: selectionChangeCondition |
|
2753 ) |
|
2754 |
|
2755 (SubChannelInfoSpec |
|
2756 subAspect: updateTrigger |
|
2757 aspect: classCategoryListUpdateTrigger |
|
2758 ) |
|
2759 ) |
|
2760 createNewApplication: true |
|
2761 createNewBuilder: true |
|
2762 ) |
|
2763 (SubCanvasSpec |
|
2764 name: 'NamespaceList' |
|
2765 layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) |
|
2766 visibilityChannel: nameSpaceListShown |
|
2767 majorKey: NamespaceList |
|
2768 subAspectHolders: |
|
2769 (Array |
|
2770 |
|
2771 (SubChannelInfoSpec |
|
2772 subAspect: doubleClickChannel |
|
2773 aspect: nameSpaceDoubleClickChannel |
|
2774 ) |
|
2775 (SubChannelInfoSpec |
|
2776 subAspect: environmentHolder |
|
2777 aspect: environmentHolder |
|
2778 ) |
|
2779 |
|
2780 (SubChannelInfoSpec |
|
2781 subAspect: forceGeneratorTrigger |
|
2782 aspect: forceNamespaceGeneratorTrigger |
|
2783 ) |
|
2784 (SubChannelInfoSpec |
|
2785 subAspect: hideUnloadedClasses |
|
2786 aspect: hideUnloadedClasses |
|
2787 ) |
|
2788 |
|
2789 (SubChannelInfoSpec |
|
2790 subAspect: immediateUpdate |
|
2791 aspect: immediateUpdate |
|
2792 ) |
|
2793 (SubChannelInfoSpec |
|
2794 subAspect: menuHolder |
|
2795 aspect: nameSpaceListMenuHolder |
|
2796 ) |
|
2797 |
|
2798 (SubChannelInfoSpec |
|
2799 subAspect: organizerMode |
|
2800 aspect: organizerMode |
|
2801 ) |
|
2802 (SubChannelInfoSpec |
|
2803 subAspect: outGeneratorHolder |
|
2804 aspect: classGeneratorHolder |
|
2805 ) |
|
2806 |
|
2807 (SubChannelInfoSpec |
|
2808 subAspect: selectedNamespaces |
|
2809 aspect: selectedNamespaces |
|
2810 ) |
|
2811 (SubChannelInfoSpec |
|
2812 subAspect: selectionChangeCondition |
|
2813 aspect: selectionChangeCondition |
|
2814 ) |
|
2815 |
|
2816 (SubChannelInfoSpec |
|
2817 subAspect: updateTrigger |
|
2818 aspect: nameSpaceListUpdateTrigger |
|
2819 ) |
|
2820 ) |
|
2821 createNewApplication: true |
|
2822 createNewBuilder: true |
|
2823 ) |
|
2824 (SubCanvasSpec |
|
2825 name: 'ProjectList' |
|
2826 layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) |
|
2827 visibilityChannel: projectListShown |
|
2828 majorKey: ProjectList |
|
2829 subAspectHolders: |
|
2830 (Array |
|
2831 |
|
2832 (SubChannelInfoSpec |
|
2833 subAspect: doubleClickChannel |
|
2834 aspect: projectDoubleClickChannel |
|
2835 ) |
|
2836 (SubChannelInfoSpec |
|
2837 subAspect: environmentHolder |
|
2838 aspect: environmentHolder |
|
2839 ) |
|
2840 |
|
2841 (SubChannelInfoSpec |
|
2842 subAspect: forceGeneratorTrigger |
|
2843 aspect: forceProjectGeneratorTrigger |
|
2844 ) |
|
2845 (SubChannelInfoSpec |
|
2846 subAspect: hideUnloadedClasses |
|
2847 aspect: hideUnloadedClasses |
|
2848 ) |
|
2849 |
|
2850 (SubChannelInfoSpec |
|
2851 subAspect: immediateUpdate |
|
2852 aspect: immediateUpdate |
|
2853 ) |
|
2854 (SubChannelInfoSpec |
|
2855 subAspect: menuHolder |
|
2856 aspect: projectListMenuHolder |
|
2857 ) |
|
2858 |
|
2859 (SubChannelInfoSpec |
|
2860 subAspect: organizerMode |
|
2861 aspect: organizerMode |
|
2862 ) |
|
2863 (SubChannelInfoSpec |
|
2864 subAspect: outGeneratorHolder |
|
2865 aspect: classGeneratorHolder |
|
2866 ) |
|
2867 |
|
2868 (SubChannelInfoSpec |
|
2869 subAspect: selectedProjects |
|
2870 aspect: selectedProjects |
|
2871 ) |
|
2872 (SubChannelInfoSpec |
|
2873 subAspect: selectionChangeCondition |
|
2874 aspect: selectionChangeCondition |
|
2875 ) |
|
2876 |
|
2877 (SubChannelInfoSpec |
|
2878 subAspect: showCoverageInformation |
|
2879 aspect: showCoverageInformation |
|
2880 ) |
|
2881 (SubChannelInfoSpec |
|
2882 subAspect: updateTrigger |
|
2883 aspect: projectListUpdateTrigger |
|
2884 ) |
|
2885 ) |
|
2886 createNewApplication: true |
|
2887 createNewBuilder: true |
|
2888 ) |
|
2889 ) |
|
2890 |
|
2891 ) |
|
2892 ) |
|
2893 (SubCanvasSpec |
|
2894 name: 'ClassList' |
|
2895 majorKey: ClassList |
|
2896 minorKey: windowSpec |
|
2897 subAspectHolders: |
|
2898 (Array |
|
2899 |
|
2900 (SubChannelInfoSpec |
|
2901 subAspect: doubleClickChannel |
|
2902 aspect: classDoubleClickChannel |
|
2903 ) |
|
2904 (SubChannelInfoSpec |
|
2905 subAspect: environmentHolder |
|
2906 aspect: environmentHolder |
|
2907 ) |
|
2908 |
|
2909 (SubChannelInfoSpec |
|
2910 subAspect: hidePrivateClasses |
|
2911 aspect: hidePrivateClasses |
|
2912 ) |
|
2913 (SubChannelInfoSpec |
|
2914 subAspect: hideUnloadedClasses |
|
2915 aspect: hideUnloadedClasses |
|
2916 ) |
|
2917 |
|
2918 (SubChannelInfoSpec |
|
2919 subAspect: immediateUpdate |
|
2920 aspect: immediateUpdate |
|
2921 ) |
|
2922 (SubChannelInfoSpec |
|
2923 subAspect: inGeneratorHolder |
|
2924 aspect: classGeneratorHolder |
|
2925 ) |
|
2926 |
|
2927 (SubChannelInfoSpec |
|
2928 subAspect: markApplicationsHolder |
|
2929 aspect: markApplicationsHolder |
|
2930 ) |
|
2931 (SubChannelInfoSpec |
|
2932 subAspect: menuHolder |
|
2933 aspect: classListMenuHolder |
|
2934 ) |
|
2935 |
|
2936 (SubChannelInfoSpec |
|
2937 subAspect: meta |
|
2938 aspect: meta |
|
2939 ) |
|
2940 (SubChannelInfoSpec |
|
2941 subAspect: organizerMode |
|
2942 aspect: organizerMode |
|
2943 ) |
|
2944 |
|
2945 (SubChannelInfoSpec |
|
2946 subAspect: outGeneratorHolder |
|
2947 aspect: outGeneratorHolder |
|
2948 ) |
|
2949 (SubChannelInfoSpec |
|
2950 subAspect: selectedClasses |
|
2951 aspect: selectedClasses |
|
2952 ) |
|
2953 |
|
2954 (SubChannelInfoSpec |
|
2955 subAspect: selectionChangeCondition |
|
2956 aspect: selectionChangeCondition |
|
2957 ) |
|
2958 (SubChannelInfoSpec |
|
2959 subAspect: showCoverageInformation |
|
2960 aspect: showCoverageInformation |
|
2961 ) |
|
2962 |
|
2963 (SubChannelInfoSpec |
|
2964 subAspect: slaveMode |
|
2965 aspect: classListSlaveMode |
|
2966 ) |
|
2967 (SubChannelInfoSpec |
|
2968 subAspect: sortByNameAndInheritance |
|
2969 aspect: sortByNameAndInheritance |
|
2970 ) |
|
2971 |
|
2972 (SubChannelInfoSpec |
|
2973 subAspect: updateTrigger |
|
2974 aspect: classListUpdateTrigger |
|
2975 ) |
|
2976 ) |
|
2977 createNewApplication: true |
|
2978 createNewBuilder: true |
|
2979 ) |
|
2980 ) |
|
2981 |
|
2982 ) |
|
2983 handles: (Any 0.5 1.0) |
|
2984 ) |
|
2985 ) |
|
2986 |
|
2987 ) |
|
2988 ) |
|
2989 ! ! |
|
2990 |
|
2991 !OrganizerCanvas class methodsFor:'plugIn spec'! |
|
2992 |
|
2993 aspectSelectors |
|
2994 "This resource specification was automatically generated |
|
2995 by the UIPainter of ST/X." |
|
2996 |
|
2997 "Do not manually edit this. If it is corrupted, |
|
2998 the UIPainter may not be able to read the specification." |
|
2999 |
|
3000 "Return a description of exported aspects; |
|
3001 these can be connected to aspects of an embedding application |
|
3002 (if this app is embedded in a subCanvas)." |
|
3003 |
|
3004 ^ #( |
|
3005 #(classCategoryDoubleClickChannel action) |
|
3006 #classCategoryListMenuHolder |
|
3007 #(classDoubleClickChannel action) |
|
3008 #classHierarchyListMenuHolder |
|
3009 #classHierarchyTopClass |
|
3010 #classListMenuHolder |
|
3011 #environmentHolder |
|
3012 #filterClassVars |
|
3013 #hidePrivateClasses |
|
3014 #hideUnloadedClasses |
|
3015 #immediateUpdate |
|
3016 #markApplicationsHolder |
|
3017 #meta |
|
3018 #metaToggleLabelHolder |
|
3019 #(nameSpaceDoubleClickChannel action) |
|
3020 #nameSpaceFilter |
|
3021 #nameSpaceListMenuHolder |
|
3022 #organizerMode |
|
3023 #outGeneratorHolder |
|
3024 #packageFilter |
|
3025 #(projectDoubleClickChannel action) |
|
3026 #projectListMenuHolder |
|
3027 #selectedCategories |
|
3028 #selectedClasses |
|
3029 #selectedNamespaces |
|
3030 #selectedProjects |
|
3031 #selectedProtocols |
|
3032 #selectionChangeCondition |
|
3033 #showClassPackages |
|
3034 #showCoverageInformation |
|
3035 #sortByNameAndInheritance |
|
3036 #sortVariablesBy |
|
3037 #(variableDoubleClickChannel action) |
|
3038 #variableFilter |
|
3039 #variablesMenuHolder |
|
3040 ). |
|
3041 |
|
3042 ! ! |
|
3043 |
|
3044 !OrganizerCanvas methodsFor:'aspects'! |
|
3045 |
|
3046 classCategoryDoubleClickChannel |
|
3047 classCategoryDoubleClickChannel isNil ifTrue:[ |
|
3048 classCategoryDoubleClickChannel := TriggerValue new. |
|
3049 ]. |
|
3050 ^ classCategoryDoubleClickChannel. |
|
3051 ! |
|
3052 |
|
3053 classCategoryListMenuHolder |
|
3054 classCategoryListMenuHolder isNil ifTrue:[ |
|
3055 classCategoryListMenuHolder := ValueHolder new. |
|
3056 ]. |
|
3057 ^ classCategoryListMenuHolder. |
|
3058 |
|
3059 "Created: / 18.2.2000 / 11:52:55 / cg" |
|
3060 ! |
|
3061 |
|
3062 classDoubleClickChannel |
|
3063 classDoubleClickChannel isNil ifTrue:[ |
|
3064 classDoubleClickChannel := TriggerValue new. |
|
3065 ]. |
|
3066 ^ classDoubleClickChannel. |
|
3067 ! |
|
3068 |
|
3069 classGeneratorHolder |
|
3070 classGeneratorHolder isNil ifTrue:[ |
|
3071 classGeneratorHolder := ValueHolder new. |
|
3072 ]. |
|
3073 ^ classGeneratorHolder. |
|
3074 |
|
3075 "Created: / 18.2.2000 / 00:56:50 / cg" |
|
3076 ! |
|
3077 |
|
3078 classGeneratorHolderFromClassCategory |
|
3079 classGeneratorHolderFromClassCategory isNil ifTrue:[ |
|
3080 classGeneratorHolderFromClassCategory := ValueHolder new. |
|
3081 ]. |
|
3082 ^ classGeneratorHolderFromClassCategory. |
|
3083 |
|
3084 "Created: / 18.2.2000 / 02:21:55 / cg" |
|
3085 ! |
|
3086 |
|
3087 classGeneratorHolderFromClassHierarchy |
|
3088 classGeneratorHolderFromClassHierarchy isNil ifTrue:[ |
|
3089 classGeneratorHolderFromClassHierarchy := ValueHolder new. |
|
3090 ]. |
|
3091 ^ classGeneratorHolderFromClassHierarchy. |
|
3092 |
|
3093 "Created: / 18.2.2000 / 02:21:55 / cg" |
|
3094 ! |
|
3095 |
|
3096 classGeneratorHolderFromNamespace |
|
3097 classGeneratorHolderFromNamespace isNil ifTrue:[ |
|
3098 classGeneratorHolderFromNamespace := ValueHolder new. |
|
3099 ]. |
|
3100 ^ classGeneratorHolderFromNamespace. |
|
3101 |
|
3102 "Created: / 18.2.2000 / 02:21:55 / cg" |
|
3103 ! |
|
3104 |
|
3105 classGeneratorHolderFromProject |
|
3106 classGeneratorHolderFromProject isNil ifTrue:[ |
|
3107 classGeneratorHolderFromProject := ValueHolder new. |
|
3108 ]. |
|
3109 ^ classGeneratorHolderFromProject. |
|
3110 |
|
3111 "Created: / 18.2.2000 / 02:21:55 / cg" |
|
3112 ! |
|
3113 |
|
3114 classHierarchyListMenuHolder |
|
3115 classHierarchyListMenuHolder isNil ifTrue:[ |
|
3116 classHierarchyListMenuHolder := ValueHolder new. |
|
3117 ]. |
|
3118 ^ classHierarchyListMenuHolder. |
|
3119 |
|
3120 "Created: / 18.2.2000 / 11:52:55 / cg" |
|
3121 ! |
|
3122 |
|
3123 classHierarchyTopClass |
|
3124 ^ builder valueAspectFor:#classHierarchyTopClass initialValue:Object |
|
3125 ! |
|
3126 |
|
3127 classInheritanceListMenuHolder |
|
3128 ^ self classHierarchyListMenuHolder |
|
3129 ! |
|
3130 |
|
3131 classList |
|
3132 classList isNil ifTrue:[ |
|
3133 classList := ValueHolder new. |
|
3134 ]. |
|
3135 ^ classList. |
|
3136 |
|
3137 "Created: / 18.2.2000 / 00:23:43 / cg" |
|
3138 ! |
|
3139 |
|
3140 classListMenuHolder |
|
3141 "automatically generated by UIPainter ..." |
|
3142 |
|
3143 "*** the code below creates a default model when invoked." |
|
3144 "*** (which may not be the one you wanted)" |
|
3145 "*** Please change as required and accept it in the browser." |
|
3146 |
|
3147 classListMenuHolder isNil ifTrue:[ |
|
3148 classListMenuHolder := ValueHolder new. |
|
3149 "/ classListMenuHolder addDependent:self. |
|
3150 ]. |
|
3151 ^ classListMenuHolder. |
|
3152 |
|
3153 "Created: / 18.2.2000 / 11:57:22 / cg" |
|
3154 ! |
|
3155 |
|
3156 defaultOrganizerMode |
|
3157 ^ OrganizerCanvas organizerModePackageDiagram. |
|
3158 ^ OrganizerCanvas organizerModeCategory |
|
3159 ! |
|
3160 |
|
3161 diagramPackageSelection |
|
3162 |holder| |
|
3163 |
|
3164 (holder := builder bindingAt:#diagramPackageSelection) isNil ifTrue:[ |
|
3165 holder := nil asValue. |
|
3166 builder aspectAt:#diagramPackageSelection put:holder. |
|
3167 holder onChangeSend:#diagramPackageSelectionChanged to:self. |
|
3168 ]. |
|
3169 ^ holder. |
|
3170 ! |
|
3171 |
|
3172 filterClassVars |
|
3173 filterClassVars isNil ifTrue:[ |
|
3174 filterClassVars := ValueHolder new. |
|
3175 "/ filterClassVars addDependent:self. |
|
3176 ]. |
|
3177 ^ filterClassVars. |
|
3178 |
|
3179 "Created: / 24-02-2000 / 23:29:52 / cg" |
|
3180 ! |
|
3181 |
|
3182 hidePrivateClasses |
|
3183 hidePrivateClasses isNil ifTrue:[ |
|
3184 hidePrivateClasses := false asValue. |
|
3185 "/ hidePrivateClasses addDependent:self. |
|
3186 ]. |
|
3187 ^ hidePrivateClasses. |
|
3188 |
|
3189 "Created: / 24-02-2000 / 16:18:45 / cg" |
|
3190 ! |
|
3191 |
|
3192 hideUnloadedClasses |
|
3193 hideUnloadedClasses isNil ifTrue:[ |
|
3194 hideUnloadedClasses := false asValue. |
|
3195 "/ hideUnloadedClasses addDependent:self. |
|
3196 ]. |
|
3197 ^ hideUnloadedClasses. |
|
3198 |
|
3199 "Created: / 18-02-2000 / 17:54:57 / cg" |
|
3200 ! |
|
3201 |
|
3202 immediateUpdate |
|
3203 immediateUpdate isNil ifTrue:[ |
|
3204 immediateUpdate := false asValue. |
|
3205 "/ immediateUpdate addDependent:self. |
|
3206 ]. |
|
3207 ^ immediateUpdate. |
|
3208 |
|
3209 "Created: / 18-02-2000 / 00:23:43 / cg" |
|
3210 ! |
|
3211 |
|
3212 initialOrganizerMode |
|
3213 ^ nil "/ dummy |
|
3214 ! |
|
3215 |
|
3216 markApplicationsHolder |
|
3217 markApplicationsHolder isNil ifTrue:[ |
|
3218 markApplicationsHolder := false asValue. |
|
3219 ]. |
|
3220 ^ markApplicationsHolder. |
|
3221 ! |
|
3222 |
|
3223 meta |
|
3224 meta isNil ifTrue:[ |
|
3225 meta := false asValue. |
|
3226 "/ meta addDependent:self. |
|
3227 ]. |
|
3228 ^ meta. |
|
3229 |
|
3230 "Created: / 18-02-2000 / 00:23:43 / cg" |
|
3231 "Modified (comment): / 04-07-2011 / 18:52:49 / cg" |
|
3232 ! |
|
3233 |
|
3234 metaToggle |
|
3235 metaToggle isNil ifTrue:[ |
|
3236 metaToggle := PluggableAdaptor on:(self meta). |
|
3237 metaToggle |
|
3238 getBlock:[:m | m value == true] |
|
3239 putBlock:[:m :newValue | m value:(newValue ? false)] |
|
3240 updateBlock:[:m :aspect :param | true]. |
|
3241 ]. |
|
3242 ^ metaToggle |
|
3243 ! |
|
3244 |
|
3245 metaToggleLabelHolder |
|
3246 "this is changed from 'Instance/Class' to 'Instance/Static' for Java" |
|
3247 |
|
3248 metaToggleLabelHolder isNil ifTrue:[ |
|
3249 metaToggleLabelHolder := (resources string:'Class') asValue. |
|
3250 "/ metaToggleLabelHolder addDependent:self. |
|
3251 ]. |
|
3252 ^ metaToggleLabelHolder. |
|
3253 |
|
3254 "Created: / 18-02-2000 / 11:52:55 / cg" |
|
3255 ! |
|
3256 |
|
3257 methodVisibilityHolder |
|
3258 masterApplication notNil ifTrue:[ |
|
3259 ^ masterApplication methodVisibilityHolder |
|
3260 ]. |
|
3261 |
|
3262 methodVisibilityHolder isNil ifTrue:[ |
|
3263 methodVisibilityHolder := false asValue. |
|
3264 ]. |
|
3265 ^ methodVisibilityHolder. |
|
3266 |
|
3267 "Created: / 05-11-2007 / 16:57:58 / cg" |
|
3268 ! |
|
3269 |
|
3270 nameSpaceDoubleClickChannel |
|
3271 |holder| |
|
3272 |
|
3273 (holder := builder bindingAt:#nameSpaceDoubleClickChannel) isNil ifTrue:[ |
|
3274 holder := TriggerValue new. |
|
3275 builder aspectAt:#nameSpaceDoubleClickChannel put:holder. |
|
3276 "/ holder addDependent:self. |
|
3277 ]. |
|
3278 ^ holder. |
|
3279 |
|
3280 "Modified (comment): / 04-07-2011 / 18:53:36 / cg" |
|
3281 ! |
|
3282 |
|
3283 nameSpaceFilter |
|
3284 nameSpaceFilter isNil ifTrue:[ |
|
3285 nameSpaceFilter := ValueHolder new. |
|
3286 nameSpaceFilter onChangeEvaluate:[ |
|
3287 nameSpaceFilter value ~= nameSpaceFilterSelection value ifTrue:[ |
|
3288 self halt:'should not happen' |
|
3289 ]. |
|
3290 "/ self nameSpaceFilter value: nameSpaceFilterSelection value. |
|
3291 ] |
|
3292 ]. |
|
3293 ^ nameSpaceFilter. |
|
3294 |
|
3295 "Created: / 24.2.2000 / 23:29:52 / cg" |
|
3296 ! |
|
3297 |
|
3298 nameSpaceFilterDoubleClickChannel |
|
3299 |holder| |
|
3300 |
|
3301 (holder := builder bindingAt:#nameSpaceFilterDoubleClickChannel) isNil ifTrue:[ |
|
3302 holder := TriggerValue new. |
|
3303 builder aspectAt:#nameSpaceFilterDoubleClickChannel put:holder. |
|
3304 holder onChangeEvaluate:[ |
|
3305 (builder componentAt:#NameSpaceFilterComboBox) closeMenu. |
|
3306 "/ self nameSpaceDoubleClickChannel value:true. |
|
3307 ] |
|
3308 ]. |
|
3309 ^ holder. |
|
3310 |
|
3311 "Modified (comment): / 04-07-2011 / 18:53:39 / cg" |
|
3312 ! |
|
3313 |
|
3314 nameSpaceFilterPopUpMenu |
|
3315 ^ self nameSpaceListMenuHolder. |
|
3316 ! |
|
3317 |
|
3318 nameSpaceFilterSelectedNameSpace |
|
3319 |holder| |
|
3320 |
|
3321 (holder := builder bindingAt:#nameSpaceFilterSelectedNameSpace) isNil ifTrue:[ |
|
3322 holder := self class nameListEntryForALL "'* all *'" asValue. |
|
3323 builder aspectAt:#nameSpaceFilterSelectedNameSpace put:holder. |
|
3324 holder onChangeEvaluate:[ self updateNameSpaceLabel. ]. |
|
3325 ]. |
|
3326 ^ holder. |
|
3327 |
|
3328 "Created: / 18.2.2000 / 11:52:55 / cg" |
|
3329 ! |
|
3330 |
|
3331 nameSpaceFilterSelection |
|
3332 "automatically generated by UIPainter ..." |
|
3333 |
|
3334 nameSpaceFilterSelection isNil ifTrue:[ |
|
3335 nameSpaceFilterSelection := (OrderedCollection with:self class nameListEntryForALL) asValue. |
|
3336 nameSpaceFilterSelection addDependent:self. |
|
3337 ]. |
|
3338 ^ nameSpaceFilterSelection. |
|
3339 ! |
|
3340 |
|
3341 nameSpaceListMenuHolder |
|
3342 "automatically generated by UIPainter ..." |
|
3343 |
|
3344 "*** the code below creates a default model when invoked." |
|
3345 "*** (which may not be the one you wanted)" |
|
3346 "*** Please change as required and accept it in the browser." |
|
3347 |
|
3348 |holder| |
|
3349 |
|
3350 (holder := builder bindingAt:#nameSpaceListMenuHolder) isNil ifTrue:[ |
|
3351 holder := ValueHolder new. |
|
3352 builder aspectAt:#nameSpaceListMenuHolder put:holder. |
|
3353 "/ holder addDependent:self. |
|
3354 ]. |
|
3355 ^ holder. |
|
3356 |
|
3357 "Created: / 18.2.2000 / 11:52:55 / cg" |
|
3358 ! |
|
3359 |
|
3360 nameSpaceListWidget |
|
3361 |view| |
|
3362 |
|
3363 view := SubCanvas new. |
|
3364 view client:self spec:#embeddedNameSpaceListSpec builder:nil. "/ (self builder). |
|
3365 (view builder findComponentAt:#List) autoHideHorizontalScrollBar:true. |
|
3366 ^ view. |
|
3367 ! |
|
3368 |
|
3369 nameSpaceListWidgetHolder |
|
3370 "automatically generated by UIPainter ..." |
|
3371 |
|
3372 "*** the code below creates a default model when invoked." |
|
3373 "*** (which may not be the one you wanted)" |
|
3374 "*** Please change as required and accept it in the browser." |
|
3375 |
|
3376 |holder| |
|
3377 |
|
3378 (holder := builder bindingAt:#nameSpaceListWidgetHolder) isNil ifTrue:[ |
|
3379 holder := ValueHolder new. |
|
3380 builder aspectAt:#nameSpaceListWidgetHolder put:holder. |
|
3381 holder value:(self nameSpaceListWidget). |
|
3382 ]. |
|
3383 ^ holder. |
|
3384 ! |
|
3385 |
|
3386 notMetaToggle |
|
3387 notMetaToggle isNil ifTrue:[ |
|
3388 notMetaToggle := PluggableAdaptor on:(self meta). |
|
3389 notMetaToggle |
|
3390 getBlock:[:m | m value == false] |
|
3391 putBlock:[:m :newValue | m value:(newValue ? false) not] |
|
3392 updateBlock:[:m :aspect :param | true]. |
|
3393 ]. |
|
3394 ^ notMetaToggle |
|
3395 ! |
|
3396 |
|
3397 organizerMode |
|
3398 organizerMode isNil ifTrue:[ |
|
3399 organizerMode := self defaultOrganizerMode asValue. |
|
3400 organizerMode addDependent:self. |
|
3401 ]. |
|
3402 ^ organizerMode |
|
3403 |
|
3404 "Created: / 18.2.2000 / 00:30:44 / cg" |
|
3405 "Modified: / 18.2.2000 / 02:56:21 / cg" |
|
3406 ! |
|
3407 |
|
3408 outGeneratorHolder |
|
3409 "automatically generated by UIPainter ..." |
|
3410 |
|
3411 "*** the code below creates a default model when invoked." |
|
3412 "*** (which may not be the one you wanted)" |
|
3413 "*** Please change as required and accept it in the browser." |
|
3414 |
|
3415 |holder| |
|
3416 |
|
3417 (holder := builder bindingAt:#outGeneratorHolder) isNil ifTrue:[ |
|
3418 holder := ValueHolder new. |
|
3419 builder aspectAt:#outGeneratorHolder put:holder. |
|
3420 "/ holder addDependent:self. |
|
3421 ]. |
|
3422 ^ holder. |
|
3423 |
|
3424 "Created: / 18.2.2000 / 00:23:43 / cg" |
|
3425 ! |
|
3426 |
|
3427 packageFilter |
|
3428 "automatically generated by UIPainter ..." |
|
3429 |
|
3430 packageFilter isNil ifTrue:[ |
|
3431 packageFilter := ValueHolder new. |
|
3432 "/ packageFilter addDependent:self. |
|
3433 ]. |
|
3434 ^ packageFilter. |
|
3435 |
|
3436 "Created: / 24.2.2000 / 23:29:52 / cg" |
|
3437 ! |
|
3438 |
|
3439 packageList |
|
3440 |holder| |
|
3441 |
|
3442 (holder := builder bindingAt:#packageList) isNil ifTrue:[ |
|
3443 holder := ValueHolder with:(ProjectList new listOfProjects). |
|
3444 builder aspectAt:#packageList put:holder. |
|
3445 ]. |
|
3446 ^ holder. |
|
3447 ! |
|
3448 |
|
3449 popUpNameSpaceListSlaveMode |
|
3450 ^ false |
|
3451 ! |
|
3452 |
|
3453 projectDoubleClickChannel |
|
3454 "automatically generated by UIPainter ..." |
|
3455 |
|
3456 "*** the code below creates a default model when invoked." |
|
3457 "*** (which may not be the one you wanted)" |
|
3458 "*** Please change as required and accept it in the browser." |
|
3459 |
|
3460 |holder| |
|
3461 |
|
3462 (holder := builder bindingAt:#projectDoubleClickChannel) isNil ifTrue:[ |
|
3463 holder := TriggerValue new. |
|
3464 builder aspectAt:#projectDoubleClickChannel put:holder. |
|
3465 "/ holder addDependent:self. |
|
3466 ]. |
|
3467 ^ holder. |
|
3468 ! |
|
3469 |
|
3470 projectListMenuHolder |
|
3471 "automatically generated by UIPainter ..." |
|
3472 |
|
3473 "*** the code below creates a default model when invoked." |
|
3474 "*** (which may not be the one you wanted)" |
|
3475 "*** Please change as required and accept it in the browser." |
|
3476 |
|
3477 projectListMenuHolder isNil ifTrue:[ |
|
3478 projectListMenuHolder := ValueHolder new. |
|
3479 "/ projectListMenuHolder addDependent:self. |
|
3480 ]. |
|
3481 ^ projectListMenuHolder. |
|
3482 |
|
3483 "Created: / 18.2.2000 / 11:52:55 / cg" |
|
3484 ! |
|
3485 |
|
3486 selectedCategories |
|
3487 "automatically generated by UIPainter ..." |
|
3488 |
|
3489 "*** the code below creates a default model when invoked." |
|
3490 "*** (which may not be the one you wanted)" |
|
3491 "*** Please change as required and accept it in the browser." |
|
3492 |
|
3493 selectedCategories isNil ifTrue:[ |
|
3494 selectedCategories := ValueHolder new. |
|
3495 "/ selectedCategories addDependent:self. |
|
3496 ]. |
|
3497 ^ selectedCategories. |
|
3498 |
|
3499 "Created: / 18.2.2000 / 12:27:58 / cg" |
|
3500 ! |
|
3501 |
|
3502 selectedClasses |
|
3503 "bad name- it's a holder, baby" |
|
3504 |
|
3505 selectedClasses isNil ifTrue:[ |
|
3506 selectedClasses := ValueHolder new. |
|
3507 selectedClasses addDependent:self. |
|
3508 ]. |
|
3509 ^ selectedClasses. |
|
3510 |
|
3511 "Created: / 18.2.2000 / 00:23:43 / cg" |
|
3512 ! |
|
3513 |
|
3514 selectedDiagramProject |
|
3515 |holder| |
|
3516 |
|
3517 (holder := builder bindingAt:#selectedDiagramProject) isNil ifTrue:[ |
|
3518 holder := nil asValue. |
|
3519 builder aspectAt:#selectedDiagramProject put:holder. |
|
3520 holder addDependent:self. |
|
3521 ]. |
|
3522 ^ holder. |
|
3523 ! |
|
3524 |
|
3525 selectedNamespaces |
|
3526 selectedNamespaces isNil ifTrue:[ |
|
3527 selectedNamespaces := (OrderedCollection with:self class nameListEntryForALL) asValue. |
|
3528 ]. |
|
3529 ^ selectedNamespaces. |
|
3530 |
|
3531 "Created: / 18.2.2000 / 12:27:58 / cg" |
|
3532 ! |
|
3533 |
|
3534 selectedProjects |
|
3535 selectedProjects isNil ifTrue:[ |
|
3536 selectedProjects := ValueHolder new. |
|
3537 selectedProjects addDependent:self. |
|
3538 ]. |
|
3539 ^ selectedProjects. |
|
3540 |
|
3541 "Created: / 18.2.2000 / 12:16:01 / cg" |
|
3542 ! |
|
3543 |
|
3544 selectionChangeCondition |
|
3545 |
|
3546 selectionChangeCondition isNil ifTrue:[ |
|
3547 selectionChangeCondition := ValueHolder new. |
|
3548 "/ selectionChangeCondition addDependent:self. |
|
3549 ]. |
|
3550 ^ selectionChangeCondition. |
|
3551 |
|
3552 "Created: / 18.2.2000 / 00:23:43 / cg" |
|
3553 ! |
|
3554 |
|
3555 showAllClassesInNameSpaceOrganisation |
|
3556 masterApplication notNil ifTrue:[ |
|
3557 ^ masterApplication showAllClassesInNameSpaceOrganisation |
|
3558 ]. |
|
3559 |
|
3560 showAllClassesInNameSpaceView isNil ifTrue:[ |
|
3561 showAllClassesInNameSpaceView := false asValue. |
|
3562 ]. |
|
3563 ^ showAllClassesInNameSpaceView. |
|
3564 |
|
3565 "Created: / 05-03-2007 / 16:52:02 / cg" |
|
3566 "Modified: / 06-03-2007 / 12:30:17 / cg" |
|
3567 ! |
|
3568 |
|
3569 showClassPackages |
|
3570 "automatically generated by UIPainter ..." |
|
3571 |
|
3572 "*** the code below creates a default model when invoked." |
|
3573 "*** (which may not be the one you wanted)" |
|
3574 "*** Please change as required and accept it in the browser." |
|
3575 |
|
3576 showClassPackages isNil ifTrue:[ |
|
3577 showClassPackages := false asValue. |
|
3578 "/ showClassPackages addDependent:self. |
|
3579 ]. |
|
3580 ^ showClassPackages. |
|
3581 |
|
3582 "Created: / 18.2.2000 / 17:54:57 / cg" |
|
3583 ! |
|
3584 |
|
3585 showCoverageInformation |
|
3586 masterApplication notNil ifTrue:[ |
|
3587 ^ masterApplication showCoverageInformation |
|
3588 ]. |
|
3589 |
|
3590 showCoverageInformation isNil ifTrue:[ |
|
3591 showCoverageInformation := false asValue. |
|
3592 ]. |
|
3593 ^ showCoverageInformation. |
|
3594 |
|
3595 "Created: / 27-04-2010 / 16:32:56 / cg" |
|
3596 ! |
|
3597 |
|
3598 showMethodComplexity |
|
3599 masterApplication notNil ifTrue:[ |
|
3600 ^ masterApplication showMethodComplexity |
|
3601 ]. |
|
3602 |
|
3603 showMethodComplexity isNil ifTrue:[ |
|
3604 showMethodComplexity := false asValue. |
|
3605 ]. |
|
3606 ^ showMethodComplexity. |
|
3607 |
|
3608 "Created: / 05-11-2007 / 16:56:36 / cg" |
|
3609 ! |
|
3610 |
|
3611 showMethodInheritance |
|
3612 masterApplication notNil ifTrue:[ |
|
3613 ^ masterApplication showMethodInheritance |
|
3614 ]. |
|
3615 |
|
3616 showMethodInheritance isNil ifTrue:[ |
|
3617 showMethodInheritance := false asValue. |
|
3618 ]. |
|
3619 ^ showMethodInheritance. |
|
3620 |
|
3621 "Created: / 05-11-2007 / 16:55:35 / cg" |
|
3622 ! |
|
3623 |
|
3624 showMethodTypeIcon |
|
3625 masterApplication notNil ifTrue:[ |
|
3626 ^ masterApplication showMethodTypeIcon |
|
3627 ]. |
|
3628 |
|
3629 showMethodTypeIcon isNil ifTrue:[ |
|
3630 showMethodTypeIcon := false asValue. |
|
3631 ]. |
|
3632 ^ showMethodTypeIcon. |
|
3633 |
|
3634 "Created: / 05-11-2007 / 16:57:12 / cg" |
|
3635 ! |
|
3636 |
|
3637 sortByNameAndInheritance |
|
3638 sortByNameAndInheritance isNil ifTrue:[ |
|
3639 sortByNameAndInheritance := false asValue. |
|
3640 "/ sortByNameAndInheritance addDependent:self. |
|
3641 ]. |
|
3642 ^ sortByNameAndInheritance. |
|
3643 |
|
3644 "Created: / 04-07-2011 / 18:41:22 / cg" |
|
3645 ! |
|
3646 |
|
3647 sortVariablesByName |
|
3648 sortVariablesByName isNil ifTrue:[ |
|
3649 sortVariablesByName := false asValue. |
|
3650 ]. |
|
3651 ^ sortVariablesByName. |
|
3652 ! |
|
3653 |
|
3654 updateNameSpaceLabel |
|
3655 |box| |
|
3656 |
|
3657 box := self componentAt:#NameSpaceFilterComboBox. |
|
3658 box notNil ifTrue:[ |
|
3659 "/ new code: ExtComboBox uses always an EditField |
|
3660 box editor contents:nameSpaceFilterSelection value first. |
|
3661 |
|
3662 "/ old code: readOnly ExtComboBox used a Label |
|
3663 "/ box menuField label:nameSpaceFilterSelection value first |
|
3664 ] |
|
3665 ! |
|
3666 |
|
3667 variableDoubleClickChannel |
|
3668 "automatically generated by UIPainter ..." |
|
3669 |
|
3670 "*** the code below creates a default model when invoked." |
|
3671 "*** (which may not be the one you wanted)" |
|
3672 "*** Please change as required and accept it in the browser." |
|
3673 |
|
3674 |holder| |
|
3675 |
|
3676 (holder := builder bindingAt:#variableDoubleClickChannel) isNil ifTrue:[ |
|
3677 holder := TriggerValue new. |
|
3678 builder aspectAt:#variableDoubleClickChannel put:holder. |
|
3679 "/ holder addDependent:self. |
|
3680 ]. |
|
3681 ^ holder. |
|
3682 ! |
|
3683 |
|
3684 variableFilter |
|
3685 variableFilter isNil ifTrue:[ |
|
3686 variableFilter := ValueHolder new. |
|
3687 ]. |
|
3688 ^ variableFilter. |
|
3689 |
|
3690 "Created: / 24.2.2000 / 23:29:52 / cg" |
|
3691 ! |
|
3692 |
|
3693 variablesMenuHolder |
|
3694 "automatically generated by UIPainter ..." |
|
3695 |
|
3696 "*** the code below creates a default model when invoked." |
|
3697 "*** (which may not be the one you wanted)" |
|
3698 "*** Please change as required and accept it in the browser." |
|
3699 |
|
3700 variablesMenuHolder isNil ifTrue:[ |
|
3701 variablesMenuHolder := ValueHolder new. |
|
3702 "/ variablesMenuHolder addDependent:self. |
|
3703 ]. |
|
3704 ^ variablesMenuHolder. |
|
3705 |
|
3706 "Created: / 24.2.2000 / 23:29:52 / cg" |
|
3707 ! ! |
|
3708 |
|
3709 !OrganizerCanvas methodsFor:'aspects-exported'! |
|
3710 |
|
3711 classCategoryDoubleClickChannel:something |
|
3712 "automatically generated by UIPainter ..." |
|
3713 |
|
3714 "This method is used when I am embedded as subApplication," |
|
3715 "and the mainApp wants to connect its aspects to mine." |
|
3716 |
|
3717 "/ classCategoryDoubleClickChannel removeDependent:self. |
|
3718 |
|
3719 classCategoryDoubleClickChannel := something. |
|
3720 |
|
3721 "/ something notNil ifTrue:[ |
|
3722 "/ something addDependent:self. |
|
3723 "/ ]. |
|
3724 ^ self. |
|
3725 |
|
3726 "Created: / 18.8.2000 / 20:04:48 / cg" |
|
3727 ! |
|
3728 |
|
3729 classCategoryListMenuHolder:something |
|
3730 "automatically generated by UIPainter ..." |
|
3731 |
|
3732 "This method is used when I am embedded as subApplication," |
|
3733 "and the mainApp wants to connect its aspects to mine." |
|
3734 |
|
3735 "/ classCategoryListMenuHolder removeDependent:self. |
|
3736 |
|
3737 classCategoryListMenuHolder := something. |
|
3738 "/ something notNil ifTrue:[ |
|
3739 "/ something addDependent:self. |
|
3740 "/ ]. |
|
3741 ^ self. |
|
3742 |
|
3743 "Created: / 18.2.2000 / 11:53:31 / cg" |
|
3744 ! |
|
3745 |
|
3746 classCategoryListUpdateTrigger:something |
|
3747 "automatically generated by UIPainter ..." |
|
3748 |
|
3749 "This method is used when I am embedded as subApplication," |
|
3750 "and the mainApp wants to connect its aspects to mine." |
|
3751 |
|
3752 "/ classCategoryListUpdateTrigger removeDependent:self. |
|
3753 |
|
3754 classCategoryListUpdateTrigger := something. |
|
3755 |
|
3756 "/ something notNil ifTrue:[ |
|
3757 "/ something addDependent:self. |
|
3758 "/ ]. |
|
3759 ^ self. |
|
3760 |
|
3761 "Created: / 18.2.2000 / 02:08:01 / cg" |
|
3762 ! |
|
3763 |
|
3764 classDoubleClickChannel:something |
|
3765 "automatically generated by UIPainter ..." |
|
3766 |
|
3767 "This method is used when I am embedded as subApplication," |
|
3768 "and the mainApp wants to connect its aspects to mine." |
|
3769 |
|
3770 "/ classDoubleClickChannel removeDependent:self. |
|
3771 |
|
3772 classDoubleClickChannel := something. |
|
3773 "/ something notNil ifTrue:[ |
|
3774 "/ something addDependent:self. |
|
3775 "/ ]. |
|
3776 ^ self. |
|
3777 ! |
|
3778 |
|
3779 classHierarchyListMenuHolder:something |
|
3780 "automatically generated by UIPainter ..." |
|
3781 |
|
3782 "This method is used when I am embedded as subApplication," |
|
3783 "and the mainApp wants to connect its aspects to mine." |
|
3784 |
|
3785 "/ classHierarchyListMenuHolder removeDependent:self. |
|
3786 |
|
3787 classHierarchyListMenuHolder := something. |
|
3788 "/ something notNil ifTrue:[ |
|
3789 "/ something addDependent:self. |
|
3790 "/ ]. |
|
3791 ^ self. |
|
3792 |
|
3793 "Created: / 18.2.2000 / 11:53:31 / cg" |
|
3794 ! |
|
3795 |
|
3796 classHierarchyShown:something |
|
3797 "automatically generated by UIPainter ..." |
|
3798 |
|
3799 "This method is used when I am embedded as subApplication," |
|
3800 "and the mainApp wants to connect its aspects to mine." |
|
3801 |
|
3802 "/ |holder| |
|
3803 |
|
3804 "/ (holder := builder bindingAt:#classHierarchyShown) notNil ifTrue:[ |
|
3805 "/ holder removeDependent:self. |
|
3806 "/ ]. |
|
3807 builder aspectAt:#classHierarchyShown put:something. |
|
3808 "/ something notNil ifTrue:[ |
|
3809 "/ something addDependent:self. |
|
3810 "/ ]. |
|
3811 ^ self. |
|
3812 |
|
3813 "Created: / 18.2.2000 / 00:24:28 / cg" |
|
3814 ! |
|
3815 |
|
3816 classHierarchyTopClass:something |
|
3817 "automatically generated by UIPainter ..." |
|
3818 |
|
3819 "This method is used when I am embedded as subApplication," |
|
3820 "and the mainApp wants to connect its aspects to mine." |
|
3821 |
|
3822 "/ |holder| |
|
3823 |
|
3824 "/ (holder := builder bindingAt:#classHierarchyTopClass) notNil ifTrue:[ |
|
3825 "/ holder removeDependent:self. |
|
3826 "/ ]. |
|
3827 builder aspectAt:#classHierarchyTopClass put:something. |
|
3828 "/ something notNil ifTrue:[ |
|
3829 "/ something addDependent:self. |
|
3830 "/ ]. |
|
3831 ^ self. |
|
3832 ! |
|
3833 |
|
3834 classHierarchyUpdateTrigger:something |
|
3835 "automatically generated by UIPainter ..." |
|
3836 |
|
3837 "This method is used when I am embedded as subApplication," |
|
3838 "and the mainApp wants to connect its aspects to mine." |
|
3839 |
|
3840 "/ |holder| |
|
3841 |
|
3842 "/ (holder := builder bindingAt:#classHierarchyUpdateTrigger) notNil ifTrue:[ |
|
3843 "/ holder removeDependent:self. |
|
3844 "/ ]. |
|
3845 builder aspectAt:#classHierarchyUpdateTrigger put:something. |
|
3846 "/ something notNil ifTrue:[ |
|
3847 "/ something addDependent:self. |
|
3848 "/ ]. |
|
3849 ^ self. |
|
3850 |
|
3851 "Created: / 18.2.2000 / 02:08:01 / cg" |
|
3852 ! |
|
3853 |
|
3854 classList:something |
|
3855 "automatically generated by UIPainter ..." |
|
3856 |
|
3857 "This method is used when I am embedded as subApplication," |
|
3858 "and the mainApp wants to connect its aspects to mine." |
|
3859 |
|
3860 "/ classList notNil ifTrue:[ |
|
3861 "/ classList removeDependent:self. |
|
3862 "/ ]. |
|
3863 classList := something. |
|
3864 "/ something notNil ifTrue:[ |
|
3865 "/ something addDependent:self. |
|
3866 "/ ]. |
|
3867 ^ self. |
|
3868 |
|
3869 "Created: / 18.2.2000 / 00:24:28 / cg" |
|
3870 ! |
|
3871 |
|
3872 classListMenuHolder:something |
|
3873 "automatically generated by UIPainter ..." |
|
3874 |
|
3875 "This method is used when I am embedded as subApplication," |
|
3876 "and the mainApp wants to connect its aspects to mine." |
|
3877 |
|
3878 "/ classListMenuHolder removeDependent:self. |
|
3879 |
|
3880 classListMenuHolder := something. |
|
3881 "/ something notNil ifTrue:[ |
|
3882 "/ something addDependent:self. |
|
3883 "/ ]. |
|
3884 ^ self. |
|
3885 |
|
3886 "Created: / 18.2.2000 / 11:57:22 / cg" |
|
3887 ! |
|
3888 |
|
3889 classListUpdateTrigger:something |
|
3890 "automatically generated by UIPainter ..." |
|
3891 |
|
3892 "This method is used when I am embedded as subApplication," |
|
3893 "and the mainApp wants to connect its aspects to mine." |
|
3894 |
|
3895 "/ classListUpdateTrigger removeDependent:self. |
|
3896 |
|
3897 classListUpdateTrigger := something. |
|
3898 "/ something notNil ifTrue:[ |
|
3899 "/ something addDependent:self. |
|
3900 "/ ]. |
|
3901 ^ self. |
|
3902 |
|
3903 "Created: / 18.2.2000 / 02:08:01 / cg" |
|
3904 ! |
|
3905 |
|
3906 filterClassVars:something |
|
3907 "automatically generated by UIPainter ..." |
|
3908 |
|
3909 "This method is used when I am embedded as subApplication," |
|
3910 "and the mainApp wants to connect its aspects to mine." |
|
3911 |
|
3912 "/ filterClassVars removeDependent:self. |
|
3913 |
|
3914 filterClassVars := something. |
|
3915 "/ something notNil ifTrue:[ |
|
3916 "/ something addDependent:self. |
|
3917 "/ ]. |
|
3918 ^ self. |
|
3919 |
|
3920 "Created: / 24.2.2000 / 23:46:16 / cg" |
|
3921 ! |
|
3922 |
|
3923 hidePrivateClasses:something |
|
3924 "automatically generated by UIPainter ..." |
|
3925 |
|
3926 "This method is used when I am embedded as subApplication," |
|
3927 "and the mainApp wants to connect its aspects to mine." |
|
3928 |
|
3929 "/ hidePrivateClasses removeDependent:self. |
|
3930 |
|
3931 hidePrivateClasses := something. |
|
3932 "/ something notNil ifTrue:[ |
|
3933 "/ something addDependent:self. |
|
3934 "/ ]. |
|
3935 ^ self. |
|
3936 |
|
3937 "Created: / 24.2.2000 / 16:18:32 / cg" |
|
3938 ! |
|
3939 |
|
3940 hideUnloadedClasses:something |
|
3941 "automatically generated by UIPainter ..." |
|
3942 |
|
3943 "This method is used when I am embedded as subApplication," |
|
3944 "and the mainApp wants to connect its aspects to mine." |
|
3945 |
|
3946 "/ hideUnloadedClasses removeDependent:self. |
|
3947 |
|
3948 hideUnloadedClasses := something. |
|
3949 "/ something notNil ifTrue:[ |
|
3950 "/ something addDependent:self. |
|
3951 "/ ]. |
|
3952 ^ self. |
|
3953 |
|
3954 "Created: / 18.2.2000 / 17:54:57 / cg" |
|
3955 ! |
|
3956 |
|
3957 immediateUpdate:something |
|
3958 "automatically generated by UIPainter ..." |
|
3959 |
|
3960 "This method is used when I am embedded as subApplication," |
|
3961 "and the mainApp wants to connect its aspects to mine." |
|
3962 |
|
3963 "/ immediateUpdate removeDependent:self. |
|
3964 |
|
3965 immediateUpdate := something. |
|
3966 "/ something notNil ifTrue:[ |
|
3967 "/ something addDependent:self. |
|
3968 "/ ]. |
|
3969 ^ self. |
|
3970 |
|
3971 "Created: / 18.2.2000 / 00:24:29 / cg" |
|
3972 ! |
|
3973 |
|
3974 markApplicationsHolder:something |
|
3975 markApplicationsHolder := something. |
|
3976 ! |
|
3977 |
|
3978 meta:something |
|
3979 "automatically generated by UIPainter ..." |
|
3980 |
|
3981 "This method is used when I am embedded as subApplication," |
|
3982 "and the mainApp wants to connect its aspects to mine." |
|
3983 |
|
3984 "/ meta notNil ifTrue:[ |
|
3985 "/ meta removeDependent:self. |
|
3986 "/ ]. |
|
3987 "/ (something == true or:[something == false]) ifTrue:[self halt]. |
|
3988 meta := something. |
|
3989 "/ something notNil ifTrue:[ |
|
3990 "/ something addDependent:self. |
|
3991 "/ ]. |
|
3992 metaToggle notNil ifTrue:[ |
|
3993 metaToggle model:something |
|
3994 ]. |
|
3995 notMetaToggle notNil ifTrue:[ |
|
3996 notMetaToggle model:something |
|
3997 ]. |
|
3998 ^ self. |
|
3999 |
|
4000 "Created: / 18.2.2000 / 00:24:29 / cg" |
|
4001 ! |
|
4002 |
|
4003 metaToggleLabelHolder:something |
|
4004 |v| |
|
4005 |
|
4006 "automatically generated by UIPainter ..." |
|
4007 |
|
4008 "This method is used when I am embedded as subApplication," |
|
4009 "and the mainApp wants to connect its aspects to mine." |
|
4010 |
|
4011 "/ metaToggleLabelHolder removeDependent:self. |
|
4012 |
|
4013 metaToggleLabelHolder := something. |
|
4014 "/ something notNil ifTrue:[ |
|
4015 "/ something addDependent:self. |
|
4016 "/ ]. |
|
4017 (v := builder componentAt:#ClassToggle) notNil ifTrue:[ |
|
4018 v labelChannel:metaToggleLabelHolder. |
|
4019 ]. |
|
4020 ^ self. |
|
4021 |
|
4022 "Created: / 18.2.2000 / 11:53:31 / cg" |
|
4023 ! |
|
4024 |
|
4025 methodVisibilityHolder:aValueHolder |
|
4026 "automatically generated by UIPainter ..." |
|
4027 |
|
4028 "This method is used when I am embedded as subApplication," |
|
4029 "and the mainApp wants to connect its aspects to mine." |
|
4030 |
|
4031 methodVisibilityHolder := aValueHolder. |
|
4032 |
|
4033 "Created: / 05-11-2007 / 16:57:34 / cg" |
|
4034 ! |
|
4035 |
|
4036 nameSpaceFilter:something |
|
4037 "automatically generated by UIPainter ..." |
|
4038 |
|
4039 "This method is used when I am embedded as subApplication," |
|
4040 "and the mainApp wants to connect its aspects to mine." |
|
4041 |
|
4042 "/ packageFilter notNil ifTrue:[ |
|
4043 "/ packageFilter removeDependent:self. |
|
4044 "/ ]. |
|
4045 nameSpaceFilter := something. |
|
4046 "/ something notNil ifTrue:[ |
|
4047 "/ something addDependent:self. |
|
4048 "/ ]. |
|
4049 self nameSpaceFilterSelection value:something value. |
|
4050 ^ self. |
|
4051 |
|
4052 "Created: / 24.2.2000 / 23:46:16 / cg" |
|
4053 ! |
|
4054 |
|
4055 nameSpaceListMenuHolder:something |
|
4056 "automatically generated by UIPainter ..." |
|
4057 |
|
4058 "This method is used when I am embedded as subApplication," |
|
4059 "and the mainApp wants to connect its aspects to mine." |
|
4060 |
|
4061 "/ |holder| |
|
4062 |
|
4063 "/ (holder := builder bindingAt:#namespaceListMenuHolder) notNil ifTrue:[ |
|
4064 "/ holder removeDependent:self. |
|
4065 "/ ]. |
|
4066 builder aspectAt:#nameSpaceListMenuHolder put:something. |
|
4067 "/ something notNil ifTrue:[ |
|
4068 "/ something addDependent:self. |
|
4069 "/ ]. |
|
4070 ^ self. |
|
4071 |
|
4072 "Created: / 18.2.2000 / 11:53:31 / cg" |
|
4073 ! |
|
4074 |
|
4075 nameSpaceListUpdateTrigger:something |
|
4076 "automatically generated by UIPainter ..." |
|
4077 |
|
4078 "This method is used when I am embedded as subApplication," |
|
4079 "and the mainApp wants to connect its aspects to mine." |
|
4080 |
|
4081 "/ |holder| |
|
4082 |
|
4083 "/ (holder := builder bindingAt:#namespaceListUpdateTrigger) notNil ifTrue:[ |
|
4084 "/ holder removeDependent:self. |
|
4085 "/ ]. |
|
4086 builder aspectAt:#nameSpaceListUpdateTrigger put:something. |
|
4087 "/ something notNil ifTrue:[ |
|
4088 "/ something addDependent:self. |
|
4089 "/ ]. |
|
4090 ^ self. |
|
4091 |
|
4092 "Created: / 18.2.2000 / 02:08:01 / cg" |
|
4093 ! |
|
4094 |
|
4095 organizerMode:aValueHolder |
|
4096 organizerMode notNil ifTrue:[ |
|
4097 organizerMode removeDependent:self. |
|
4098 ]. |
|
4099 organizerMode := aValueHolder. |
|
4100 organizerMode notNil ifTrue:[ |
|
4101 organizerMode addDependent:self. |
|
4102 ]. |
|
4103 |
|
4104 "Created: / 18.2.2000 / 10:21:41 / cg" |
|
4105 ! |
|
4106 |
|
4107 outGeneratorHolder:something |
|
4108 "automatically generated by UIPainter ..." |
|
4109 |
|
4110 "This method is used when I am embedded as subApplication," |
|
4111 "and the mainApp wants to connect its aspects to mine." |
|
4112 |
|
4113 "/ |holder| |
|
4114 |
|
4115 "/ (holder := builder bindingAt:#outGeneratorHolder) notNil ifTrue:[ |
|
4116 "/ holder removeDependent:self. |
|
4117 "/ ]. |
|
4118 builder aspectAt:#outGeneratorHolder put:something. |
|
4119 "/ something notNil ifTrue:[ |
|
4120 "/ something addDependent:self. |
|
4121 "/ ]. |
|
4122 ^ self. |
|
4123 |
|
4124 "Created: / 18.2.2000 / 00:24:29 / cg" |
|
4125 ! |
|
4126 |
|
4127 packageFilter:something |
|
4128 "automatically generated by UIPainter ..." |
|
4129 |
|
4130 "This method is used when I am embedded as subApplication," |
|
4131 "and the mainApp wants to connect its aspects to mine." |
|
4132 |
|
4133 "/ packageFilter notNil ifTrue:[ |
|
4134 "/ packageFilter removeDependent:self. |
|
4135 "/ ]. |
|
4136 packageFilter := something. |
|
4137 "/ something notNil ifTrue:[ |
|
4138 "/ something addDependent:self. |
|
4139 "/ ]. |
|
4140 ^ self. |
|
4141 |
|
4142 "Created: / 24.2.2000 / 23:46:16 / cg" |
|
4143 ! |
|
4144 |
|
4145 projectDoubleClickChannel:something |
|
4146 "automatically generated by UIPainter ..." |
|
4147 |
|
4148 "This method is used when I am embedded as subApplication," |
|
4149 "and the mainApp wants to connect its aspects to mine." |
|
4150 |
|
4151 "/ |holder| |
|
4152 |
|
4153 "/ (holder := builder bindingAt:#projectDoubleClickChannel) notNil ifTrue:[ |
|
4154 "/ holder removeDependent:self. |
|
4155 "/ ]. |
|
4156 builder aspectAt:#projectDoubleClickChannel put:something. |
|
4157 "/ something notNil ifTrue:[ |
|
4158 "/ something addDependent:self. |
|
4159 "/ ]. |
|
4160 ^ self. |
|
4161 ! |
|
4162 |
|
4163 projectListMenuHolder:something |
|
4164 "automatically generated by UIPainter ..." |
|
4165 |
|
4166 "This method is used when I am embedded as subApplication," |
|
4167 "and the mainApp wants to connect its aspects to mine." |
|
4168 |
|
4169 projectListMenuHolder := something. |
|
4170 |
|
4171 "Created: / 18.2.2000 / 11:53:31 / cg" |
|
4172 ! |
|
4173 |
|
4174 projectListUpdateTrigger:something |
|
4175 "automatically generated by UIPainter ..." |
|
4176 |
|
4177 "This method is used when I am embedded as subApplication," |
|
4178 "and the mainApp wants to connect its aspects to mine." |
|
4179 |
|
4180 "/ |holder| |
|
4181 |
|
4182 "/ (holder := builder bindingAt:#projectListUpdateTrigger) notNil ifTrue:[ |
|
4183 "/ holder removeDependent:self. |
|
4184 "/ ]. |
|
4185 builder aspectAt:#projectListUpdateTrigger put:something. |
|
4186 "/ something notNil ifTrue:[ |
|
4187 "/ something addDependent:self. |
|
4188 "/ ]. |
|
4189 ^ self. |
|
4190 |
|
4191 "Created: / 18.2.2000 / 02:08:01 / cg" |
|
4192 ! |
|
4193 |
|
4194 selectedCategories:something |
|
4195 "automatically generated by UIPainter ..." |
|
4196 |
|
4197 "This method is used when I am embedded as subApplication," |
|
4198 "and the mainApp wants to connect its aspects to mine." |
|
4199 |
|
4200 selectedCategories := something. |
|
4201 ^ self. |
|
4202 |
|
4203 "Created: / 18.2.2000 / 14:04:36 / cg" |
|
4204 ! |
|
4205 |
|
4206 selectedClasses:something |
|
4207 "automatically generated by UIPainter ..." |
|
4208 |
|
4209 "This method is used when I am embedded as subApplication," |
|
4210 "and the mainApp wants to connect its aspects to mine." |
|
4211 |
|
4212 selectedClasses removeDependent:self. |
|
4213 |
|
4214 selectedClasses := something. |
|
4215 something notNil ifTrue:[ |
|
4216 something addDependent:self. |
|
4217 ]. |
|
4218 ^ self. |
|
4219 |
|
4220 "Created: / 18.2.2000 / 00:24:29 / cg" |
|
4221 ! |
|
4222 |
|
4223 selectedNamespaces:something |
|
4224 "automatically generated by UIPainter ..." |
|
4225 |
|
4226 "This method is used when I am embedded as subApplication," |
|
4227 "and the mainApp wants to connect its aspects to mine." |
|
4228 |
|
4229 selectedNamespaces := something. |
|
4230 selectedNamespaces onChangeEvaluate:[ |
|
4231 nameSpaceFilterSelection notNil ifTrue:[ |
|
4232 nameSpaceFilterSelection value:selectedNamespaces value. |
|
4233 ] |
|
4234 ]. |
|
4235 |
|
4236 "Modified: / 05-11-2007 / 17:16:56 / cg" |
|
4237 ! |
|
4238 |
|
4239 selectedProjects:something |
|
4240 "automatically generated by UIPainter ..." |
|
4241 |
|
4242 "This method is used when I am embedded as subApplication," |
|
4243 "and the mainApp wants to connect its aspects to mine." |
|
4244 |
|
4245 selectedProjects := something. |
|
4246 ! |
|
4247 |
|
4248 selectionChangeCondition:something |
|
4249 "automatically generated by UIPainter ..." |
|
4250 |
|
4251 "This method is used when I am embedded as subApplication," |
|
4252 "and the mainApp wants to connect its aspects to mine." |
|
4253 |
|
4254 selectionChangeCondition := something. |
|
4255 ! |
|
4256 |
|
4257 showClassPackages:something |
|
4258 "automatically generated by UIPainter ..." |
|
4259 |
|
4260 "This method is used when I am embedded as subApplication," |
|
4261 "and the mainApp wants to connect its aspects to mine." |
|
4262 |
|
4263 showClassPackages := something. |
|
4264 ! |
|
4265 |
|
4266 showCoverageInformation:something |
|
4267 |
|
4268 "This method is used when I am embedded as subApplication," |
|
4269 "and the mainApp wants to connect its aspects to mine." |
|
4270 |
|
4271 showCoverageInformation := something. |
|
4272 |
|
4273 "Created: / 06-07-2011 / 19:48:20 / cg" |
|
4274 ! |
|
4275 |
|
4276 showMethodComplexity:aValueHolder |
|
4277 "automatically generated by UIPainter ..." |
|
4278 |
|
4279 "This method is used when I am embedded as subApplication," |
|
4280 "and the mainApp wants to connect its aspects to mine." |
|
4281 |
|
4282 showMethodComplexity := aValueHolder. |
|
4283 |
|
4284 "Created: / 05-11-2007 / 16:56:18 / cg" |
|
4285 ! |
|
4286 |
|
4287 showMethodInheritance:aValueHolder |
|
4288 "automatically generated by UIPainter ..." |
|
4289 |
|
4290 "This method is used when I am embedded as subApplication," |
|
4291 "and the mainApp wants to connect its aspects to mine." |
|
4292 |
|
4293 showMethodInheritance := aValueHolder. |
|
4294 |
|
4295 "Created: / 05-11-2007 / 16:55:12 / cg" |
|
4296 ! |
|
4297 |
|
4298 showMethodTypeIcon:aValueHolder |
|
4299 "automatically generated by UIPainter ..." |
|
4300 |
|
4301 "This method is used when I am embedded as subApplication," |
|
4302 "and the mainApp wants to connect its aspects to mine." |
|
4303 |
|
4304 showMethodTypeIcon := aValueHolder. |
|
4305 |
|
4306 "Created: / 05-11-2007 / 16:57:02 / cg" |
|
4307 ! |
|
4308 |
|
4309 sortByNameAndInheritance:something |
|
4310 "automatically generated by UIPainter ..." |
|
4311 |
|
4312 "This method is used when I am embedded as subApplication," |
|
4313 "and the mainApp wants to connect its aspects to mine." |
|
4314 |
|
4315 "/ sortByNameAndInheritance removeDependent:self. |
|
4316 |
|
4317 sortByNameAndInheritance := something. |
|
4318 "/ something notNil ifTrue:[ |
|
4319 "/ something addDependent:self. |
|
4320 "/ ]. |
|
4321 |
|
4322 "Created: / 04-07-2011 / 18:42:01 / cg" |
|
4323 ! |
|
4324 |
|
4325 sortVariablesByName:something |
|
4326 "automatically generated by UIPainter ..." |
|
4327 |
|
4328 "This method is used when I am embedded as subApplication," |
|
4329 "and the mainApp wants to connect its aspects to mine." |
|
4330 |
|
4331 sortVariablesByName := something. |
|
4332 ! |
|
4333 |
|
4334 variableDoubleClickChannel:something |
|
4335 "automatically generated by UIPainter ..." |
|
4336 |
|
4337 "This method is used when I am embedded as subApplication," |
|
4338 "and the mainApp wants to connect its aspects to mine." |
|
4339 |
|
4340 "/ |holder| |
|
4341 |
|
4342 "/ (holder := builder bindingAt:#variableDoubleClickChannel) notNil ifTrue:[ |
|
4343 "/ holder removeDependent:self. |
|
4344 "/ ]. |
|
4345 builder aspectAt:#variableDoubleClickChannel put:something. |
|
4346 "/ something notNil ifTrue:[ |
|
4347 "/ something addDependent:self. |
|
4348 "/ ]. |
|
4349 ^ self. |
|
4350 ! |
|
4351 |
|
4352 variableFilter:something |
|
4353 "automatically generated by UIPainter ..." |
|
4354 |
|
4355 "This method is used when I am embedded as subApplication," |
|
4356 "and the mainApp wants to connect its aspects to mine." |
|
4357 |
|
4358 variableFilter := something. |
|
4359 ! |
|
4360 |
|
4361 variablesMenuHolder:something |
|
4362 "automatically generated by UIPainter ..." |
|
4363 |
|
4364 "This method is used when I am embedded as subApplication," |
|
4365 "and the mainApp wants to connect its aspects to mine." |
|
4366 |
|
4367 variablesMenuHolder := something. |
|
4368 ! ! |
|
4369 |
|
4370 !OrganizerCanvas methodsFor:'aspects-private'! |
|
4371 |
|
4372 categoryListSlaveMode |
|
4373 categoryListSlaveMode isNil ifTrue:[ |
|
4374 categoryListSlaveMode := false asValue. |
|
4375 ]. |
|
4376 ^ categoryListSlaveMode |
|
4377 |
|
4378 "Created: / 18.2.2000 / 00:30:44 / cg" |
|
4379 "Modified: / 18.2.2000 / 02:56:21 / cg" |
|
4380 ! |
|
4381 |
|
4382 classHierarchyListSlaveMode |
|
4383 classHierarchyListSlaveMode isNil ifTrue:[ |
|
4384 classHierarchyListSlaveMode := true asValue. |
|
4385 ]. |
|
4386 ^ classHierarchyListSlaveMode |
|
4387 |
|
4388 "Created: / 18.2.2000 / 00:30:44 / cg" |
|
4389 "Modified: / 18.2.2000 / 02:56:21 / cg" |
|
4390 ! |
|
4391 |
|
4392 classInheritanceListSlaveMode |
|
4393 classInheritanceListSlaveMode isNil ifTrue:[ |
|
4394 classInheritanceListSlaveMode := true asValue. |
|
4395 ]. |
|
4396 ^ classInheritanceListSlaveMode |
|
4397 |
|
4398 "Modified: / 18.2.2000 / 02:56:21 / cg" |
|
4399 "Created: / 26.2.2000 / 00:09:18 / cg" |
|
4400 ! |
|
4401 |
|
4402 classListSlaveMode |
|
4403 classListSlaveMode isNil ifTrue:[ |
|
4404 classListSlaveMode := false asValue. |
|
4405 ]. |
|
4406 ^ classListSlaveMode |
|
4407 |
|
4408 "Created: / 18.2.2000 / 00:30:44 / cg" |
|
4409 "Modified: / 18.2.2000 / 02:56:21 / cg" |
|
4410 ! |
|
4411 |
|
4412 nameSpaceListSlaveMode |
|
4413 namespaceListSlaveMode isNil ifTrue:[ |
|
4414 namespaceListSlaveMode := true asValue. |
|
4415 ]. |
|
4416 ^ namespaceListSlaveMode |
|
4417 |
|
4418 "Created: / 18.2.2000 / 00:30:44 / cg" |
|
4419 "Modified: / 18.2.2000 / 02:56:21 / cg" |
|
4420 ! |
|
4421 |
|
4422 projectListSlaveMode |
|
4423 projectListSlaveMode isNil ifTrue:[ |
|
4424 projectListSlaveMode := true asValue. |
|
4425 ]. |
|
4426 ^ projectListSlaveMode |
|
4427 |
|
4428 "Created: / 18.2.2000 / 00:30:44 / cg" |
|
4429 "Modified: / 18.2.2000 / 02:56:21 / cg" |
|
4430 ! ! |
|
4431 |
|
4432 !OrganizerCanvas methodsFor:'aspects-trigger'! |
|
4433 |
|
4434 classCategoryListUpdateTrigger |
|
4435 "automatically generated by UIPainter ..." |
|
4436 |
|
4437 "*** the code below creates a default model when invoked." |
|
4438 "*** (which may not be the one you wanted)" |
|
4439 "*** Please change as required and accept it in the browser." |
|
4440 |
|
4441 classCategoryListUpdateTrigger isNil ifTrue:[ |
|
4442 classCategoryListUpdateTrigger := TriggerValue new. |
|
4443 "/ classCategoryListUpdateTrigger addDependent:self. |
|
4444 ]. |
|
4445 ^ classCategoryListUpdateTrigger. |
|
4446 |
|
4447 "Created: / 18.2.2000 / 02:05:14 / cg" |
|
4448 "Modified: / 18.2.2000 / 02:14:04 / cg" |
|
4449 ! |
|
4450 |
|
4451 classHierarchyUpdateTrigger |
|
4452 "automatically generated by UIPainter ..." |
|
4453 |
|
4454 "*** the code below creates a default model when invoked." |
|
4455 "*** (which may not be the one you wanted)" |
|
4456 "*** Please change as required and accept it in the browser." |
|
4457 |
|
4458 |holder| |
|
4459 |
|
4460 (holder := builder bindingAt:#classHierarchyUpdateTrigger) isNil ifTrue:[ |
|
4461 holder := TriggerValue new. |
|
4462 builder aspectAt:#classHierarchyUpdateTrigger put:holder. |
|
4463 "/ holder addDependent:self. |
|
4464 ]. |
|
4465 ^ holder. |
|
4466 |
|
4467 "Created: / 18.2.2000 / 02:05:14 / cg" |
|
4468 "Modified: / 18.2.2000 / 02:13:57 / cg" |
|
4469 ! |
|
4470 |
|
4471 classListUpdateTrigger |
|
4472 "automatically generated by UIPainter ..." |
|
4473 |
|
4474 "*** the code below creates a default model when invoked." |
|
4475 "*** (which may not be the one you wanted)" |
|
4476 "*** Please change as required and accept it in the browser." |
|
4477 |
|
4478 classListUpdateTrigger isNil ifTrue:[ |
|
4479 classListUpdateTrigger := TriggerValue new. |
|
4480 "/ classListUpdateTrigger addDependent:self. |
|
4481 ]. |
|
4482 ^ classListUpdateTrigger. |
|
4483 |
|
4484 "Created: / 18.2.2000 / 02:05:14 / cg" |
|
4485 "Modified: / 18.2.2000 / 02:14:08 / cg" |
|
4486 ! |
|
4487 |
|
4488 forceClassCategoryGeneratorTrigger |
|
4489 "automatically generated by UIPainter ..." |
|
4490 |
|
4491 "*** the code below creates a default model when invoked." |
|
4492 "*** (which may not be the one you wanted)" |
|
4493 "*** Please change as required and accept it in the browser." |
|
4494 |
|
4495 |holder| |
|
4496 |
|
4497 (holder := builder bindingAt:#forceClassCategoryGeneratorTrigger) isNil ifTrue:[ |
|
4498 holder := TriggerValue new. |
|
4499 builder aspectAt:#forceClassCategoryGeneratorTrigger put:holder. |
|
4500 "/ holder addDependent:self. |
|
4501 ]. |
|
4502 ^ holder. |
|
4503 |
|
4504 "Created: / 18.2.2000 / 02:49:43 / cg" |
|
4505 "Modified: / 18.2.2000 / 02:52:30 / cg" |
|
4506 ! |
|
4507 |
|
4508 forceClassHierarchyGeneratorTrigger |
|
4509 "automatically generated by UIPainter ..." |
|
4510 |
|
4511 "*** the code below creates a default model when invoked." |
|
4512 "*** (which may not be the one you wanted)" |
|
4513 "*** Please change as required and accept it in the browser." |
|
4514 |
|
4515 |holder| |
|
4516 |
|
4517 (holder := builder bindingAt:#forceClassHierarchyGeneratorTrigger) isNil ifTrue:[ |
|
4518 holder := TriggerValue new. |
|
4519 builder aspectAt:#forceClassHierarchyGeneratorTrigger put:holder. |
|
4520 "/ holder addDependent:self. |
|
4521 ]. |
|
4522 ^ holder. |
|
4523 |
|
4524 "Created: / 18.2.2000 / 02:49:43 / cg" |
|
4525 "Modified: / 18.2.2000 / 02:52:32 / cg" |
|
4526 ! |
|
4527 |
|
4528 forceNamespaceGeneratorTrigger |
|
4529 "automatically generated by UIPainter ..." |
|
4530 |
|
4531 "*** the code below creates a default model when invoked." |
|
4532 "*** (which may not be the one you wanted)" |
|
4533 "*** Please change as required and accept it in the browser." |
|
4534 |
|
4535 |holder| |
|
4536 |
|
4537 (holder := builder bindingAt:#forceNamespaceGeneratorTrigger) isNil ifTrue:[ |
|
4538 holder := TriggerValue new. |
|
4539 builder aspectAt:#forceNamespaceGeneratorTrigger put:holder. |
|
4540 "/ holder addDependent:self. |
|
4541 ]. |
|
4542 ^ holder. |
|
4543 |
|
4544 "Created: / 18.2.2000 / 02:49:43 / cg" |
|
4545 "Modified: / 18.2.2000 / 02:52:35 / cg" |
|
4546 ! |
|
4547 |
|
4548 forceProjectGeneratorTrigger |
|
4549 "automatically generated by UIPainter ..." |
|
4550 |
|
4551 "*** the code below creates a default model when invoked." |
|
4552 "*** (which may not be the one you wanted)" |
|
4553 "*** Please change as required and accept it in the browser." |
|
4554 |
|
4555 |holder| |
|
4556 |
|
4557 (holder := builder bindingAt:#forceProjectGeneratorTrigger) isNil ifTrue:[ |
|
4558 holder := TriggerValue new. |
|
4559 builder aspectAt:#forceProjectGeneratorTrigger put:holder. |
|
4560 "/ holder addDependent:self. |
|
4561 ]. |
|
4562 ^ holder. |
|
4563 |
|
4564 "Created: / 18.2.2000 / 02:49:43 / cg" |
|
4565 "Modified: / 18.2.2000 / 02:52:38 / cg" |
|
4566 ! |
|
4567 |
|
4568 nameSpaceListUpdateTrigger |
|
4569 "automatically generated by UIPainter ..." |
|
4570 |
|
4571 "*** the code below creates a default model when invoked." |
|
4572 "*** (which may not be the one you wanted)" |
|
4573 "*** Please change as required and accept it in the browser." |
|
4574 |
|
4575 |holder| |
|
4576 |
|
4577 (holder := builder bindingAt:#nameSpaceListUpdateTrigger) isNil ifTrue:[ |
|
4578 holder := TriggerValue new. |
|
4579 builder aspectAt:#nameSpaceListUpdateTrigger put:holder. |
|
4580 "/ holder addDependent:self. |
|
4581 ]. |
|
4582 ^ holder. |
|
4583 |
|
4584 "Created: / 18.2.2000 / 02:05:14 / cg" |
|
4585 "Modified: / 18.2.2000 / 02:14:12 / cg" |
|
4586 ! |
|
4587 |
|
4588 projectListUpdateTrigger |
|
4589 "automatically generated by UIPainter ..." |
|
4590 |
|
4591 "*** the code below creates a default model when invoked." |
|
4592 "*** (which may not be the one you wanted)" |
|
4593 "*** Please change as required and accept it in the browser." |
|
4594 |
|
4595 |holder| |
|
4596 |
|
4597 (holder := builder bindingAt:#projectListUpdateTrigger) isNil ifTrue:[ |
|
4598 holder := TriggerValue new. |
|
4599 builder aspectAt:#projectListUpdateTrigger put:holder. |
|
4600 "/ holder addDependent:self. |
|
4601 ]. |
|
4602 ^ holder. |
|
4603 |
|
4604 "Created: / 18.2.2000 / 02:05:14 / cg" |
|
4605 "Modified: / 18.2.2000 / 02:14:15 / cg" |
|
4606 ! ! |
|
4607 |
|
4608 !OrganizerCanvas methodsFor:'aspects-visibility'! |
|
4609 |
|
4610 categoryListShown |
|
4611 categoryListShown isNil ifTrue:[ |
|
4612 categoryListShown := BlockValue |
|
4613 with:[:v | v == OrganizerCanvas organizerModeCategory] |
|
4614 argument:(self organizerMode). |
|
4615 ]. |
|
4616 ^ categoryListShown |
|
4617 |
|
4618 "Modified: / 08-03-2007 / 23:01:48 / cg" |
|
4619 ! |
|
4620 |
|
4621 categoryNameSpaceAndProjectPanelShown |
|
4622 |holder| |
|
4623 |
|
4624 (holder := builder bindingAt:#categoryNameSpaceAndProjectPanelShown) isNil ifTrue:[ |
|
4625 holder := BlockValue |
|
4626 with:[:v1 :v2 :v3 | (v1 or:[v2 or:[v3]]) not] |
|
4627 argument:(self classHierarchyShown) |
|
4628 argument:(self classInheritanceShown) |
|
4629 argument:(self packageDiagramShown). |
|
4630 builder aspectAt:#categoryNameSpaceAndProjectPanelShown put: holder |
|
4631 ]. |
|
4632 ^ holder |
|
4633 |
|
4634 "Modified: / 08-03-2007 / 23:01:57 / cg" |
|
4635 ! |
|
4636 |
|
4637 classHierarchyNotShown |
|
4638 |holder| |
|
4639 |
|
4640 (holder := builder bindingAt:#classHierarchyNotShown) isNil ifTrue:[ |
|
4641 holder := BlockValue |
|
4642 with:[:v | |org| |
|
4643 org := v. |
|
4644 org ~~ OrganizerCanvas organizerModeHierarchy |
|
4645 and:[org ~~ OrganizerCanvas organizerModeClassHierarchy |
|
4646 and:[org ~~ OrganizerCanvas organizerModeClassInheritance]]] |
|
4647 argument:(self organizerMode). |
|
4648 builder aspectAt:#classHierarchyNotShown put: holder |
|
4649 ]. |
|
4650 ^ holder |
|
4651 |
|
4652 "Created: / 18-02-2000 / 00:36:38 / cg" |
|
4653 "Modified: / 08-03-2007 / 23:01:51 / cg" |
|
4654 ! |
|
4655 |
|
4656 classHierarchyOrInheritanceNotShown |
|
4657 <resource: #obsolete> |
|
4658 |
|
4659 |holder| |
|
4660 |
|
4661 (holder := builder bindingAt:#classHierarchyOrInheritanceNotShown) isNil ifTrue:[ |
|
4662 holder := BlockValue |
|
4663 with:[:v1 :v2 | (v1 or:[v2]) not] |
|
4664 argument:(self classHierarchyShown) |
|
4665 argument:(self classInheritanceShown). |
|
4666 builder aspectAt:#classHierarchyOrInheritanceNotShown put: holder |
|
4667 ]. |
|
4668 ^ holder |
|
4669 |
|
4670 "Modified: / 08-03-2007 / 23:01:57 / cg" |
|
4671 ! |
|
4672 |
|
4673 classHierarchyOrInheritanceShown |
|
4674 |holder| |
|
4675 |
|
4676 (holder := builder bindingAt:#classHierarchyOrInheritanceShown) isNil ifTrue:[ |
|
4677 holder := BlockValue |
|
4678 with:[:v1 :v2 | v1 or:[v2] ] |
|
4679 argument:(self classHierarchyShown) |
|
4680 argument:(self classInheritanceShown). |
|
4681 builder aspectAt:#classHierarchyOrInheritanceShown put: holder |
|
4682 ]. |
|
4683 ^ holder |
|
4684 |
|
4685 "Modified: / 08-03-2007 / 23:02:03 / cg" |
|
4686 ! |
|
4687 |
|
4688 classHierarchyShown |
|
4689 |holder| |
|
4690 |
|
4691 (holder := builder bindingAt:#classHierarchyShown) isNil ifTrue:[ |
|
4692 holder := BlockValue |
|
4693 with:[:v | |org| |
|
4694 org := v. |
|
4695 org == OrganizerCanvas organizerModeHierarchy |
|
4696 or:[org == OrganizerCanvas organizerModeClassHierarchy]] |
|
4697 argument:(self organizerMode). |
|
4698 builder aspectAt:#classHierarchyShown put: holder |
|
4699 ]. |
|
4700 ^ holder |
|
4701 |
|
4702 "Modified: / 08-03-2007 / 23:02:07 / cg" |
|
4703 ! |
|
4704 |
|
4705 classInheritanceShown |
|
4706 |holder| |
|
4707 |
|
4708 (holder := builder bindingAt:#classInheritanceShown) isNil ifTrue:[ |
|
4709 holder := BlockValue |
|
4710 with:[:v | v == OrganizerCanvas organizerModeClassInheritance] |
|
4711 argument:(self organizerMode). |
|
4712 builder aspectAt:#classInheritanceShown put: holder |
|
4713 ]. |
|
4714 ^ holder |
|
4715 |
|
4716 "Created: / 24-02-2000 / 13:23:01 / cg" |
|
4717 "Modified: / 08-03-2007 / 23:02:09 / cg" |
|
4718 ! |
|
4719 |
|
4720 classListShown |
|
4721 |holder| |
|
4722 |
|
4723 (holder := builder bindingAt:#classListShown) isNil ifTrue:[ |
|
4724 holder := BlockValue |
|
4725 with:[:v | v ~~ OrganizerCanvas organizerModeHierarchy] |
|
4726 argument:(self organizerMode). |
|
4727 builder aspectAt:#classListShown put: holder |
|
4728 ]. |
|
4729 ^ holder |
|
4730 |
|
4731 "Modified: / 08-03-2007 / 23:02:12 / cg" |
|
4732 ! |
|
4733 |
|
4734 nameSpaceListShown |
|
4735 |holder| |
|
4736 |
|
4737 (holder := builder bindingAt:#nameSpaceListShown) isNil ifTrue:[ |
|
4738 holder := BlockValue |
|
4739 with:[:v | v == OrganizerCanvas organizerModeNamespace] |
|
4740 argument:(self organizerMode). |
|
4741 builder aspectAt:#nameSpaceListShown put: holder |
|
4742 ]. |
|
4743 ^ holder |
|
4744 |
|
4745 "Created: / 18-02-2000 / 00:32:09 / cg" |
|
4746 "Modified: / 08-03-2007 / 23:02:15 / cg" |
|
4747 ! |
|
4748 |
|
4749 packageDiagramShown |
|
4750 |holder| |
|
4751 |
|
4752 (holder := builder bindingAt:#packageDiagramShown) isNil ifTrue:[ |
|
4753 holder := BlockValue |
|
4754 with:[:v | |org| |
|
4755 org := v. |
|
4756 org == OrganizerCanvas organizerModePackageDiagram] |
|
4757 argument:(self organizerMode). |
|
4758 builder aspectAt:#packageDiagramShown put: holder |
|
4759 ]. |
|
4760 ^ holder |
|
4761 |
|
4762 "Modified: / 08-03-2007 / 23:02:07 / cg" |
|
4763 ! |
|
4764 |
|
4765 projectListShown |
|
4766 |holder| |
|
4767 |
|
4768 (holder := builder bindingAt:#projectListShown) isNil ifTrue:[ |
|
4769 holder := BlockValue |
|
4770 with:[:v | v == OrganizerCanvas organizerModeProject] |
|
4771 argument:(self organizerMode). |
|
4772 builder aspectAt:#projectListShown put: holder |
|
4773 ]. |
|
4774 ^ holder |
|
4775 |
|
4776 "Created: / 18-02-2000 / 00:32:09 / cg" |
|
4777 "Modified: / 08-03-2007 / 23:02:18 / cg" |
|
4778 ! ! |
|
4779 |
|
4780 !OrganizerCanvas methodsFor:'change & update'! |
|
4781 |
|
4782 diagramClassSelectionChanged |
|
4783 |graphApp classes| |
|
4784 |
|
4785 graphApp := self diagramApplicationModelHolder value. |
|
4786 |
|
4787 classes := graphApp selectedClassesHolder value. |
|
4788 self classGeneratorHolder value:classes. |
|
4789 self classList value:classes. |
|
4790 self selectedClasses value:classes. |
|
4791 |
|
4792 "/ self outGeneratorHolder value:classes. |
|
4793 ! |
|
4794 |
|
4795 diagramPackageSelectionChanged |
|
4796 |package| |
|
4797 |
|
4798 self packageDiagramShown value ifTrue:[ |
|
4799 package := self diagramPackageSelection value. |
|
4800 self withWaitCursorDo:[ |
|
4801 self diagramApplicationModelHolder value |
|
4802 packages:(Array with:package); |
|
4803 generateDiagram |
|
4804 ] |
|
4805 ]. |
|
4806 ! |
|
4807 |
|
4808 packageFilterChanged |
|
4809 ! |
|
4810 |
|
4811 selectedProjectsChanged |
|
4812 self updatePackageDiagramView |
|
4813 ! |
|
4814 |
|
4815 update:something with:aParameter from:changedObject |
|
4816 |orgMode trigger classes selectedClassesHolder selectionValue| |
|
4817 |
|
4818 orgMode := organizerMode value. |
|
4819 selectedClassesHolder := self selectedClasses. |
|
4820 classes := selectedClassesHolder value copy ? #(). |
|
4821 |
|
4822 changedObject == packageFilter ifTrue:[ |
|
4823 self breakPoint:#cg |
|
4824 ]. |
|
4825 |
|
4826 changedObject == organizerMode ifTrue:[ |
|
4827 self classHierarchyListSlaveMode value:true. |
|
4828 self classInheritanceListSlaveMode value:true. |
|
4829 self classListSlaveMode value:true. |
|
4830 self categoryListSlaveMode value:true. |
|
4831 self nameSpaceListSlaveMode value:true. |
|
4832 self projectListSlaveMode value:true. |
|
4833 |
|
4834 self variableFilter value:nil. |
|
4835 self packageFilter value:nil. |
|
4836 self nameSpaceFilter value:nil. |
|
4837 |
|
4838 "/ must update the packageFilter |
|
4839 orgMode == OrganizerCanvas organizerModeProject ifTrue:[ |
|
4840 self selectedProjects value:(classes collect:[:each | each package] as:Set). |
|
4841 packageFilter setValue:(self selectedProjects value) |
|
4842 ] ifFalse:[ |
|
4843 packageFilter value:nil |
|
4844 ]. |
|
4845 |
|
4846 self updateOrganizationFromChangedClass. |
|
4847 |
|
4848 orgMode == OrganizerCanvas organizerModeCategory ifTrue:[ |
|
4849 trigger := self forceClassCategoryGeneratorTrigger. |
|
4850 ] ifFalse:[ orgMode == OrganizerCanvas organizerModeHierarchy ifTrue:[ |
|
4851 trigger := self forceClassHierarchyGeneratorTrigger. |
|
4852 ] ifFalse:[ orgMode == OrganizerCanvas organizerModeNamespace ifTrue:[ |
|
4853 trigger := self forceNamespaceGeneratorTrigger |
|
4854 ] ifFalse:[ orgMode == OrganizerCanvas organizerModeProject ifTrue:[ |
|
4855 trigger := self forceProjectGeneratorTrigger. |
|
4856 ] ifFalse:[ ((orgMode == OrganizerCanvas organizerModeClassHierarchy) |
|
4857 or:[orgMode == OrganizerCanvas organizerModeClassInheritance]) ifTrue:[ |
|
4858 "/ trigger := self forceClassHierarchyGeneratorTrigger. |
|
4859 ]]]]]. |
|
4860 |
|
4861 trigger notNil ifTrue:[ |
|
4862 trigger value:true |
|
4863 ]. |
|
4864 "/ selectedClassesHolder value:classes. |
|
4865 |
|
4866 (orgMode == OrganizerCanvas organizerModeClassHierarchy or:[orgMode == OrganizerCanvas organizerModeHierarchy]) ifTrue:[ |
|
4867 classHierarchyListSlaveMode value:false. |
|
4868 ]. |
|
4869 (orgMode == OrganizerCanvas organizerModeClassInheritance) ifTrue:[ |
|
4870 classInheritanceListSlaveMode value:false. |
|
4871 ]. |
|
4872 (orgMode == OrganizerCanvas organizerModeClassInheritance |
|
4873 or:[orgMode == OrganizerCanvas organizerModeClassHierarchy |
|
4874 or:[orgMode == OrganizerCanvas organizerModeHierarchy]]) |
|
4875 ifFalse:[ |
|
4876 classListSlaveMode value:false. |
|
4877 ]. |
|
4878 (orgMode == OrganizerCanvas organizerModeCategory) ifTrue:[ |
|
4879 categoryListSlaveMode value:false. |
|
4880 ]. |
|
4881 (orgMode == OrganizerCanvas organizerModeNamespace) ifTrue:[ |
|
4882 namespaceListSlaveMode value:false. |
|
4883 ]. |
|
4884 (orgMode == OrganizerCanvas organizerModeProject) ifTrue:[ |
|
4885 projectListSlaveMode value:false. |
|
4886 self selectedProjects value isEmptyOrNil ifTrue:[ |
|
4887 self updateProjectSelectionFromClasses. |
|
4888 ]. |
|
4889 ]. |
|
4890 (orgMode == OrganizerCanvas organizerModePackageDiagram) ifTrue:[ |
|
4891 "/ |
|
4892 self selectedProjects value isEmptyOrNil ifTrue:[ |
|
4893 self updateProjectSelectionFromClasses. |
|
4894 ]. |
|
4895 ]. |
|
4896 |
|
4897 ^ self |
|
4898 ]. |
|
4899 |
|
4900 changedObject == selectedClasses ifTrue:[ |
|
4901 selectedClasses value size ~~ 0 ifTrue:[ |
|
4902 (orgMode ~~ OrganizerCanvas organizerModeClassHierarchy |
|
4903 and:[ orgMode ~~ OrganizerCanvas organizerModePackageDiagram ]) ifTrue:[ |
|
4904 "/ if the organizerMode is project, avoid clobbering the project selection |
|
4905 (orgMode ~~ OrganizerCanvas organizerModeProject |
|
4906 or:[ (self selectedProjects value includesAll:( selectedClasses value collect:[:each | each package] )) not ]) ifTrue:[ |
|
4907 self updateOrganizationFromChangedClass. |
|
4908 ]. |
|
4909 ]. |
|
4910 ] |
|
4911 ]. |
|
4912 "/ changedObject == selectedNamespaces ifTrue:[ |
|
4913 "/ self halt. |
|
4914 "/ ]. |
|
4915 changedObject == nameSpaceFilterSelection ifTrue:[ |
|
4916 selectionValue := nameSpaceFilterSelection value. |
|
4917 selectionValue size > 1 ifTrue:[ |
|
4918 nameSpaceFilterSelection value:(OrderedCollection with:selectionValue first). |
|
4919 selectionValue := nameSpaceFilterSelection value. |
|
4920 ]. |
|
4921 self selectedNamespaces value:selectionValue. |
|
4922 selectionValue size > 0 ifTrue:[ |
|
4923 self nameSpaceFilterSelectedNameSpace setValue:selectionValue first. |
|
4924 self updateNameSpaceLabel. |
|
4925 ]. |
|
4926 self nameSpaceFilter value: selectionValue. |
|
4927 ]. |
|
4928 changedObject == self selectedProjects ifTrue:[ |
|
4929 self breakPoint:#cg. |
|
4930 self selectedProjectsChanged. |
|
4931 ]. |
|
4932 changedObject == self selectedDiagramProject ifTrue:[ |
|
4933 self breakPoint:#cg. |
|
4934 self selectedProjects value:(Array with:self selectedDiagramProject value). |
|
4935 self selectedProjectsChanged. |
|
4936 ^ self |
|
4937 ]. |
|
4938 |
|
4939 super update:something with:aParameter from:changedObject |
|
4940 |
|
4941 "Modified: / 27-04-2010 / 16:58:31 / cg" |
|
4942 ! |
|
4943 |
|
4944 updateCategorySelectionFromClasses |
|
4945 |allEntry changedEntry oldSelectedCategories categories| |
|
4946 |
|
4947 allEntry := self class nameListEntryForALL. |
|
4948 changedEntry := self class nameListEntryForChanged. |
|
4949 |
|
4950 categories := Set new. |
|
4951 oldSelectedCategories := self selectedCategories value. |
|
4952 |
|
4953 "/ category-selection feedBack; |
|
4954 "/ if '* all *' was in its selection, keep it (to avoid updating the classList) |
|
4955 oldSelectedCategories size > 0 ifTrue:[ |
|
4956 (oldSelectedCategories includes:allEntry) ifTrue:[ |
|
4957 categories add:allEntry |
|
4958 ]. |
|
4959 oldSelectedCategories do:[:entry | |
|
4960 (NavigatorModel isPseudoCategory:entry) ifTrue:[ |
|
4961 (oldSelectedCategories size == 1) ifTrue:[ |
|
4962 "/ don't switch to category |
|
4963 ^ self |
|
4964 ]. |
|
4965 categories add:entry |
|
4966 ]. |
|
4967 ]. |
|
4968 ]. |
|
4969 |
|
4970 (self selectedClasses value ? #()) do:[:eachSelectedClass | |
|
4971 |cat cls| |
|
4972 |
|
4973 cls := eachSelectedClass theNonMetaclass. |
|
4974 cls isPrivate ifTrue:[ |
|
4975 cls := cls topOwningClass. |
|
4976 ]. |
|
4977 cat := cls category. |
|
4978 categories add:cat. |
|
4979 ]. |
|
4980 |
|
4981 (categories conform:[:each | (self selectedCategories value ? #()) includes:each]) ifFalse:[ |
|
4982 self selectedCategories value:categories. |
|
4983 ]. |
|
4984 |
|
4985 "Modified: / 18.2.2000 / 13:17:36 / cg" |
|
4986 ! |
|
4987 |
|
4988 updateNamespaceSelectionFromClasses |
|
4989 "invoked when switching to the namespace-organization; |
|
4990 update selected namespaces from the set of selected classes" |
|
4991 |
|
4992 |allEntry classes selectedNamespaces oldSelectedNamespaces| |
|
4993 |
|
4994 allEntry := self class nameListEntryForALL. |
|
4995 |
|
4996 classes := self selectedClasses value. |
|
4997 classes isEmptyOrNil ifTrue:[ |
|
4998 |categories includesAll| |
|
4999 |
|
5000 categories := self selectedCategories value. |
|
5001 categories notEmptyOrNil ifTrue:[ |
|
5002 includesAll := categories includes:BrowserList nameListEntryForALL. |
|
5003 classes := environment allClassesForWhich:[:aClass | |
|
5004 (includesAll or:[categories includes:aClass category]). |
|
5005 ]. |
|
5006 ]. |
|
5007 ]. |
|
5008 classes notEmptyOrNil ifTrue:[ |
|
5009 selectedNamespaces := self selectedNamespaces value. |
|
5010 oldSelectedNamespaces := (selectedNamespaces ? #()) asSet. |
|
5011 selectedNamespaces := Set new. |
|
5012 |
|
5013 "/ namespace-selection feedBack; |
|
5014 "/ if '* all *' was in its selection, keep it (to avoid updating the classList) |
|
5015 "/ (oldSelectedNamespaces includes:allEntry) ifTrue:[ |
|
5016 "/ selectedNamespaces add:allEntry. |
|
5017 "/ ]. |
|
5018 selectedNamespaces addAll:(classes collect:[:eachClass | eachClass theNonMetaclass topNameSpace name.]). |
|
5019 |
|
5020 classes := classes copy. |
|
5021 "/ selectedNamespaces ~= oldSelectedNamespaces ifTrue:[ |
|
5022 self selectedNamespaces value:selectedNamespaces. |
|
5023 "/ ]. |
|
5024 |
|
5025 "/ (classes ~= self selectedClasses) value ifTrue:[self halt:'oops']. |
|
5026 ]. |
|
5027 |
|
5028 "Modified: / 10-08-2006 / 16:04:55 / cg" |
|
5029 ! |
|
5030 |
|
5031 updateOrganizationFromChangedClass |
|
5032 |orgMode selectedClassesHolder selectedClasses classHierarchyTopClassHolder commonSuperClass| |
|
5033 |
|
5034 orgMode := organizerMode value. |
|
5035 |
|
5036 orgMode == OrganizerCanvas organizerModeCategory ifTrue:[ |
|
5037 self updateCategorySelectionFromClasses. |
|
5038 ^ self. |
|
5039 ]. |
|
5040 orgMode == OrganizerCanvas organizerModeNamespace ifTrue:[ |
|
5041 self updateNamespaceSelectionFromClasses. |
|
5042 ^ self. |
|
5043 ]. |
|
5044 orgMode == OrganizerCanvas organizerModeProject ifTrue:[ |
|
5045 self updateProjectSelectionFromClasses. |
|
5046 ^ self. |
|
5047 ]. |
|
5048 orgMode == OrganizerCanvas organizerModePackageDiagram ifTrue:[ |
|
5049 self updatePackageDiagramView. |
|
5050 ^ self. |
|
5051 ]. |
|
5052 |
|
5053 selectedClassesHolder := self selectedClasses. |
|
5054 selectedClasses := selectedClassesHolder value. |
|
5055 classHierarchyTopClassHolder := self classHierarchyTopClass. |
|
5056 |
|
5057 (orgMode == OrganizerCanvas organizerModeClassHierarchy) ifTrue:[ |
|
5058 "/ (selectedClasses size == 1) ifTrue:[ |
|
5059 "/ self classHierarchyTopClass value:selectedClasses first |
|
5060 "/ ]. |
|
5061 "/ classHierarchyTopClassHolder value isNil ifTrue:[ |
|
5062 selectedClasses size > 0 ifTrue:[ |
|
5063 commonSuperClass := selectedClasses |
|
5064 inject:selectedClasses first |
|
5065 into:[:commonSuperClass :thisClass | commonSuperClass commonSuperclass:thisClass ]. |
|
5066 classHierarchyTopClassHolder value:commonSuperClass "selectedClasses first". |
|
5067 ]. |
|
5068 "/ ]. |
|
5069 ^ self. |
|
5070 ]. |
|
5071 orgMode == OrganizerCanvas organizerModeHierarchy ifTrue:[ |
|
5072 classHierarchyTopClassHolder value:nil. |
|
5073 ^ self. |
|
5074 ]. |
|
5075 (orgMode == OrganizerCanvas organizerModeClassInheritance) ifTrue:[ |
|
5076 classHierarchyTopClassHolder value: |
|
5077 ((selectedClasses size == 1) ifTrue:[selectedClasses first] ifFalse:nil). |
|
5078 ^ self. |
|
5079 ]. |
|
5080 ! |
|
5081 |
|
5082 updatePackageDiagramView |
|
5083 |diagramApp packages selectedClasses| |
|
5084 |
|
5085 self packageDiagramShown computeValue ifTrue:[ |
|
5086 diagramApp := self diagramApplicationModelHolder value. |
|
5087 selectedClasses := self selectedClasses value ? #(). |
|
5088 |
|
5089 packages := self selectedProjects value ? #(). |
|
5090 packages isEmpty ifTrue:[ |
|
5091 selectedClasses notEmptyOrNil ifTrue:[ |
|
5092 packages := (selectedClasses collect:[:cls | cls package] as:Set) asOrderedCollection. |
|
5093 ]. |
|
5094 ]. |
|
5095 |
|
5096 self selectedDiagramProject value:(packages firstIfEmpty:nil) withoutNotifying:self. |
|
5097 diagramApp notNil ifTrue:[ |
|
5098 self withWaitCursorDo:[ |
|
5099 diagramApp |
|
5100 packages:packages; |
|
5101 generateDiagram; |
|
5102 selectClasses:selectedClasses. |
|
5103 ] |
|
5104 ] |
|
5105 ]. |
|
5106 |
|
5107 "Modified: / 28-04-2010 / 08:16:55 / cg" |
|
5108 ! |
|
5109 |
|
5110 updateProjectSelectionFromClasses |
|
5111 "invoked when switching to the projects-organization; |
|
5112 update selected projects from the set of selected classes" |
|
5113 |
|
5114 |allEntry classes selectedProjects oldSelectedProjects categories| |
|
5115 |
|
5116 allEntry := self class nameListEntryForALL. |
|
5117 |
|
5118 selectedProjects := self selectedProjects value. |
|
5119 oldSelectedProjects := ((selectedProjects ? #()) collect:[:pkg | pkg string] as:Set). |
|
5120 |
|
5121 variableFilter value:nil. |
|
5122 packageFilter value:nil. |
|
5123 nameSpaceFilter value:nil. |
|
5124 |
|
5125 selectedProjects := Set new. |
|
5126 "/ project-selection feedBack; |
|
5127 "/ if '* all *' was in its selection, keep it (to avoid updating the classList) |
|
5128 (oldSelectedProjects size > 0 |
|
5129 and:[oldSelectedProjects includes:allEntry]) |
|
5130 ifTrue:[ |
|
5131 selectedProjects add:allEntry. |
|
5132 ]. |
|
5133 |
|
5134 classes := self selectedClasses value. |
|
5135 classes isEmptyOrNil ifTrue:[ |
|
5136 classes := OrderedCollection new. |
|
5137 categories := self selectedCategories value. |
|
5138 categories notEmptyOrNil ifTrue:[ |
|
5139 categories do:[:eachCategory | |
|
5140 classes addAll:(environment allClassesInCategory:eachCategory) |
|
5141 ]. |
|
5142 ]. |
|
5143 ]. |
|
5144 classes notEmptyOrNil ifTrue:[ |
|
5145 classes do:[:eachClass | |
|
5146 selectedProjects add:(eachClass package). |
|
5147 eachClass instAndClassSelectorsAndMethodsDo:[:sel :mthd | |
|
5148 selectedProjects add:(mthd package). |
|
5149 ] |
|
5150 ]. |
|
5151 ]. |
|
5152 |
|
5153 selectedProjects ~= oldSelectedProjects ifTrue:[ |
|
5154 self selectedProjects value:selectedProjects. |
|
5155 ]. |
|
5156 |
|
5157 "Created: / 26-02-2000 / 01:09:13 / cg" |
|
5158 "Modified: / 22-02-2007 / 13:52:21 / cg" |
|
5159 ! ! |
|
5160 |
|
5161 !OrganizerCanvas methodsFor:'forwarder operations'! |
|
5162 |
|
5163 copyMethods:methods toClass:cls |
|
5164 self masterApplication copyMethods:methods toClass:cls. |
|
5165 ! |
|
5166 |
|
5167 moveClasses:classes toCategory:cat |
|
5168 self masterApplication moveClasses:classes toCategory:cat |
|
5169 ! |
|
5170 |
|
5171 moveClasses:classes toProject:cat |
|
5172 self masterApplication moveClasses:classes toProject:cat |
|
5173 ! |
|
5174 |
|
5175 moveMethods:methods toClass:cls |
|
5176 self masterApplication moveMethods:methods toClass:cls. |
|
5177 ! |
|
5178 |
|
5179 moveMethods:methods toProject:package |
|
5180 self masterApplication moveMethods:methods toProject:package. |
|
5181 ! ! |
|
5182 |
|
5183 !OrganizerCanvas methodsFor:'help specs'! |
|
5184 |
|
5185 flyByHelpTextFor:aComponent |
|
5186 (aComponent isSameOrComponentOf:(builder componentAt:#NameSpaceFilterComboBox)) ifTrue:[ |
|
5187 ^ resources string:'Namespace filter' |
|
5188 ]. |
|
5189 ^ super flyByHelpTextFor:aComponent |
|
5190 ! ! |
|
5191 |
|
5192 !OrganizerCanvas methodsFor:'initialize-release'! |
|
5193 |
|
5194 release |
|
5195 super release. |
|
5196 |
|
5197 nameSpaceFilterSelection removeDependent:self. |
|
5198 organizerMode removeDependent:self. |
|
5199 selectedClasses removeDependent:self. |
|
5200 ! ! |
|
5201 |
|
5202 !OrganizerCanvas methodsFor:'private'! |
|
5203 |
|
5204 nameSpaceListWidgetWasBuilt:widget |
|
5205 |list| |
|
5206 |
|
5207 "/ sigh - cannot do this in the nameSpaceListWidget method, |
|
5208 "/ because the GUI is build late (when the menu is popped up the first time) |
|
5209 widget application immediateUpdate:true. |
|
5210 list := widget builder componentAt:#List. |
|
5211 list autoHideHorizontalScrollBar:true. |
|
5212 ! ! |
|
5213 |
|
5214 !OrganizerCanvas methodsFor:'subapplications'! |
|
5215 |
|
5216 diagramApplicationModelHolder |
|
5217 |holder graphApp| |
|
5218 |
|
5219 (holder := builder bindingAt:#diagramApplicationModelHolder) isNil ifTrue:[ |
|
5220 OOM::MetricVisualizer notNil ifTrue:[ |
|
5221 graphApp := OOM::MetricVisualizer new. |
|
5222 graphApp masterApplication:self. |
|
5223 graphApp selectedClassesHolder onChangeSend:#diagramClassSelectionChanged to:self. |
|
5224 graphApp showShortClassInfo:true. |
|
5225 graphApp ignoreAutoloadedClasses:true. |
|
5226 graphApp askForAutoload:false. |
|
5227 |
|
5228 holder := ValueHolder new. |
|
5229 holder value:graphApp. |
|
5230 builder aspectAt:#diagramApplicationModelHolder put: holder. |
|
5231 |
|
5232 self packageFilter onChangeSend:#packageFilterChanged to:self. |
|
5233 ]. |
|
5234 ]. |
|
5235 ^ holder |
|
5236 ! ! |
|
5237 |
|
5238 !OrganizerCanvas class methodsFor:'documentation'! |
|
5239 |
|
5240 version |
|
5241 ^ '$Header: /cvs/stx/stx/libtool/Tools__OrganizerCanvas.st,v 1.59 2014-11-26 17:44:13 cg Exp $' |
|
5242 ! |
|
5243 |
|
5244 version_CVS |
|
5245 ^ '$Header: /cvs/stx/stx/libtool/Tools__OrganizerCanvas.st,v 1.59 2014-11-26 17:44:13 cg Exp $' |
|
5246 ! ! |
|
5247 |