242 ProjectBrowser new openInterface:#rightCanvasSpecForDeployment |
242 ProjectBrowser new openInterface:#rightCanvasSpecForDeployment |
243 " |
243 " |
244 |
244 |
245 <resource: #canvas> |
245 <resource: #canvas> |
246 |
246 |
247 ^ |
247 ^ |
248 |
248 #(#FullSpec |
249 #(#FullSpec |
249 #name: #rightCanvasSpecForDeployment |
250 #name: #rightCanvasSpecForDeployment |
250 #window: |
251 #window: |
251 #(#WindowSpec |
252 #(#WindowSpec |
252 #label: 'NewApplication' |
253 #label: 'NewApplication' |
253 #name: 'NewApplication' |
254 #name: 'NewApplication' |
254 #layout: #(#LayoutFrame 908 0 40 0 1207 0 339 0) |
255 #layout: #(#LayoutFrame 216 0 173 0 515 0 472 0) |
255 #level: 0 |
256 #level: 0 |
256 #min: #(#Point 10 10) |
257 #min: #(#Point 10 10) |
257 #max: #(#Point 1280 1024) |
258 #max: #(#Point 1280 1024) |
258 #bounds: #(#Rectangle 908 40 1208 340) |
259 #bounds: #(#Rectangle 216 173 516 473) |
259 #usePreferredExtent: false |
260 #usePreferredExtent: false |
260 #returnIsOKInDialog: true |
261 #returnIsOKInDialog: true |
261 #escapeIsCancelInDialog: true |
262 #escapeIsCancelInDialog: true |
262 ) |
263 ) |
263 #component: |
264 #component: |
264 #(#SpecCollection |
265 #(#SpecCollection |
265 #collection: #( |
266 #collection: |
266 #(#HorizontalPanelViewSpec |
267 #( |
267 #name: 'HorizontalPanel1' |
268 #(#HorizontalPanelViewSpec |
268 #layout: #(#LayoutFrame 0 0 -30 1 0 1 0 1) |
269 #name: 'HorizontalPanel1' |
269 #horizontalLayout: #fitSpace |
270 #layout: #(#LayoutFrame 0 0 -30 1 0 1 0 1) |
270 #verticalLayout: #center |
271 #horizontalLayout: #fitSpace |
271 #horizontalSpace: 3 |
272 #verticalLayout: #center |
272 #verticalSpace: 3 |
273 #horizontalSpace: 3 |
273 #component: |
274 #verticalSpace: 3 |
274 #(#SpecCollection |
275 #component: |
275 #collection: #( |
276 #(#SpecCollection |
276 #(#ActionButtonSpec |
277 #collection: |
277 #label: 'Cancel' |
278 #( |
278 #name: 'Button1' |
279 #(#ActionButtonSpec |
279 #translateLabel: true |
280 #label: 'Cancel' |
280 #model: #cancel |
281 #name: 'Button1' |
281 #enableChannel: #modifiedChannel |
282 #translateLabel: true |
282 #extent: #(#Point 145 22) |
283 #model: #cancel |
|
284 #enableChannel: #modifiedChannel |
|
285 #extent: #(#Point 145 22) |
|
286 ) |
|
287 #(#ActionButtonSpec |
|
288 #label: 'OK' |
|
289 #name: 'Button2' |
|
290 #translateLabel: true |
|
291 #model: #accept |
|
292 #enableChannel: #modifiedChannel |
|
293 #extent: #(#Point 146 22) |
|
294 ) |
|
295 ) |
|
296 ) |
|
297 ) |
283 ) |
298 #(#FramedBoxSpec |
284 #(#ActionButtonSpec |
299 #label: 'Delivery' |
285 #label: 'OK' |
300 #name: 'FramedBox1' |
286 #name: 'Button2' |
301 #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 124 0) |
|
302 #labelPosition: #topLeft |
|
303 #translateLabel: true |
287 #translateLabel: true |
304 #component: |
288 #model: #accept |
305 #(#SpecCollection |
289 #enableChannel: #modifiedChannel |
306 #collection: |
290 #extent: #(#Point 146 22) |
307 #( |
|
308 #(#CheckBoxSpec |
|
309 #label: 'Compiled Binary' |
|
310 #name: 'CheckBox1' |
|
311 #layout: #(#LayoutFrame 0 0.0 10 0 0 1.0 32 0) |
|
312 #model: #deliverCompiledBinary |
|
313 #translateLabel: true |
|
314 ) |
|
315 #(#CheckBoxSpec |
|
316 #label: 'Zip Archive' |
|
317 #name: 'CheckBox2' |
|
318 #layout: #(#LayoutFrame 0 0.0 38 0 0 1.0 60 0) |
|
319 #model: #deliverZipArchive |
|
320 #translateLabel: true |
|
321 ) |
|
322 #(#CheckBoxSpec |
|
323 #label: 'Sources' |
|
324 #name: 'CheckBox3' |
|
325 #layout: #(#LayoutFrame 0 0.0 66 0 0 1.0 88 0) |
|
326 #model: #deliverSources |
|
327 #translateLabel: true |
|
328 ) |
|
329 ) |
|
330 ) |
|
331 ) |
291 ) |
332 #(#FramedBoxSpec |
292 ) |
333 #label: 'Install Directory' |
293 |
334 #name: 'FramedBox2' |
294 ) |
335 #layout: #(#LayoutFrame 0 0.0 125 0 0 1.0 190 0) |
295 ) |
336 #labelPosition: #topLeft |
296 #(#FramedBoxSpec |
|
297 #label: 'Delivery' |
|
298 #name: 'FramedBox1' |
|
299 #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 150 0) |
|
300 #labelPosition: #topLeft |
|
301 #translateLabel: true |
|
302 #component: |
|
303 #(#SpecCollection |
|
304 #collection: #( |
|
305 #(#CheckBoxSpec |
|
306 #label: 'Compiled Binary' |
|
307 #name: 'CheckBox1' |
|
308 #layout: #(#LayoutFrame 0 0.0 10 0 0 1.0 32 0) |
|
309 #model: #deliverCompiledBinary |
337 #translateLabel: true |
310 #translateLabel: true |
338 #component: |
|
339 #(#SpecCollection |
|
340 #collection: |
|
341 #( |
|
342 #(#InputFieldSpec |
|
343 #name: 'EntryField1' |
|
344 #layout: #(#LayoutFrame 0 0.0 5 0 0 1.0 27 0) |
|
345 #model: #installDirectory |
|
346 #modifiedChannel: #modifiedChannel |
|
347 ) |
|
348 ) |
|
349 ) |
|
350 ) |
311 ) |
351 ) |
312 #(#CheckBoxSpec |
352 ) |
313 #label: 'Zip Archive' |
|
314 #name: 'CheckBox2' |
|
315 #layout: #(#LayoutFrame 0 0.0 38 0 0 1.0 60 0) |
|
316 #model: #deliverZipArchive |
|
317 #translateLabel: true |
|
318 ) |
|
319 #(#CheckBoxSpec |
|
320 #label: 'GZip Archive (self extracting)' |
|
321 #name: 'CheckBox3' |
|
322 #layout: #(#LayoutFrame 0 0.0 66 0 0 1.0 88 0) |
|
323 #model: #deliverSources |
|
324 #translateLabel: true |
|
325 ) |
|
326 #(#CheckBoxSpec |
|
327 #label: 'Sources' |
|
328 #name: 'CheckBox4' |
|
329 #layout: #(#LayoutFrame 0 0.0 94 0 0 1.0 116 0) |
|
330 #model: #deliverGZipArchive |
|
331 #translateLabel: true |
|
332 ) |
|
333 ) |
|
334 |
|
335 ) |
|
336 ) |
|
337 #(#FramedBoxSpec |
|
338 #label: 'Install Directory' |
|
339 #name: 'FramedBox2' |
|
340 #layout: #(#LayoutFrame 0 0.0 153 0 0 1.0 218 0) |
|
341 #labelPosition: #topLeft |
|
342 #translateLabel: true |
|
343 #component: |
|
344 #(#SpecCollection |
|
345 #collection: #( |
|
346 #(#InputFieldSpec |
|
347 #name: 'EntryField1' |
|
348 #layout: #(#LayoutFrame 0 0.0 5 0 0 1.0 27 0) |
|
349 #model: #installDirectory |
|
350 #modifiedChannel: #modifiedChannel |
|
351 ) |
|
352 ) |
|
353 |
|
354 ) |
|
355 ) |
|
356 ) |
|
357 |
353 ) |
358 ) |
|
359 ) |
354 ! |
360 ! |
355 |
361 |
356 rightCanvasSpecForEditableText |
362 rightCanvasSpecForEditableText |
357 "This resource specification was automatically generated |
363 "This resource specification was automatically generated |
358 by the UIPainter of ST/X." |
364 by the UIPainter of ST/X." |
501 ProjectBrowser new openInterface:#rightCanvasSpecForProperties |
507 ProjectBrowser new openInterface:#rightCanvasSpecForProperties |
502 " |
508 " |
503 |
509 |
504 <resource: #canvas> |
510 <resource: #canvas> |
505 |
511 |
506 ^ |
512 ^ |
507 |
513 #(#FullSpec |
508 #(#FullSpec |
514 #name: #rightCanvasSpecForProperties |
509 #name: #rightCanvasSpecForProperties |
515 #window: |
510 #window: |
516 #(#WindowSpec |
511 #(#WindowSpec |
517 #label: 'NewApplication' |
512 #name: 'NewApplication' |
518 #name: 'NewApplication' |
513 #layout: #(#LayoutFrame 216 0 173 0 515 0 472 0) |
519 #layout: #(#LayoutFrame 216 0 173 0 515 0 472 0) |
514 #level: 0 |
520 #level: 0 |
515 #label: 'NewApplication' |
521 #min: #(#Point 10 10) |
516 #min: #(#Point 10 10) |
522 #max: #(#Point 1280 1024) |
517 #max: #(#Point 1280 1024) |
523 #bounds: #(#Rectangle 216 173 516 473) |
518 #bounds: #(#Rectangle 216 173 516 473) |
524 #usePreferredExtent: false |
519 #usePreferredExtent: false |
525 #returnIsOKInDialog: true |
520 #returnIsOKInDialog: true |
526 #escapeIsCancelInDialog: true |
521 #escapeIsCancelInDialog: true |
527 ) |
522 ) |
528 #component: |
523 #component: |
529 #(#SpecCollection |
524 #(#SpecCollection |
530 #collection: #( |
525 #collection: |
531 #(#HorizontalPanelViewSpec |
526 #( |
532 #name: 'HorizontalPanel1' |
527 #(#HorizontalPanelViewSpec |
533 #layout: #(#LayoutFrame 0 0 -30 1 0 1 0 1) |
528 #name: 'HorizontalPanel1' |
534 #horizontalLayout: #fitSpace |
529 #layout: #(#LayoutFrame 0 0 -30 1 0 1 0 1) |
535 #verticalLayout: #center |
530 #component: |
536 #horizontalSpace: 3 |
531 #(#SpecCollection |
537 #verticalSpace: 3 |
532 #collection: |
538 #component: |
533 #( |
539 #(#SpecCollection |
534 #(#ActionButtonSpec |
540 #collection: #( |
535 #name: 'Button1' |
541 #(#ActionButtonSpec |
536 #label: 'Cancel' |
542 #label: 'Cancel' |
537 #translateLabel: true |
543 #name: 'Button1' |
538 #model: #cancel |
|
539 #enableChannel: #modifiedChannel |
|
540 #extent: #(#Point 145 22) |
|
541 ) |
|
542 #(#ActionButtonSpec |
|
543 #name: 'Button2' |
|
544 #label: 'OK' |
|
545 #translateLabel: true |
|
546 #model: #accept |
|
547 #enableChannel: #modifiedChannel |
|
548 #extent: #(#Point 146 22) |
|
549 ) |
|
550 ) |
|
551 ) |
|
552 #horizontalLayout: #fitSpace |
|
553 #verticalLayout: #center |
|
554 #horizontalSpace: 3 |
|
555 #verticalSpace: 3 |
|
556 ) |
|
557 #(#FramedBoxSpec |
|
558 #name: 'FramedBox1' |
|
559 #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 93 0) |
|
560 #component: |
|
561 #(#SpecCollection |
|
562 #collection: |
|
563 #( |
|
564 #(#RadioButtonSpec |
|
565 #name: 'RadioButton1' |
|
566 #layout: #(#LayoutFrame -1 0.0 10 0 135 0 32 0) |
|
567 #label: 'Application' |
|
568 #translateLabel: true |
|
569 #model: #projectType |
|
570 #isTriggerOnDown: true |
|
571 #select: #application |
|
572 ) |
|
573 #(#RadioButtonSpec |
|
574 #name: 'RadioButton2' |
|
575 #layout: #(#LayoutFrame -1 0.0 38 0 135 0 60 0) |
|
576 #label: 'Class Library' |
|
577 #translateLabel: true |
|
578 #model: #projectType |
|
579 #isTriggerOnDown: true |
|
580 #select: #library |
|
581 ) |
|
582 ) |
|
583 ) |
|
584 #label: 'Project Type' |
|
585 #labelPosition: #topLeft |
|
586 #translateLabel: true |
544 #translateLabel: true |
587 ) |
545 #model: #cancel |
588 #(#FramedBoxSpec |
546 #enableChannel: #modifiedChannel |
589 #name: 'FramedBox2' |
547 #extent: #(#Point 145 22) |
590 #layout: #(#LayoutFrame 0 0.0 94 0.0 0 1.0 159 0) |
548 ) |
591 #component: |
549 #(#ActionButtonSpec |
592 #(#SpecCollection |
550 #label: 'OK' |
593 #collection: |
551 #name: 'Button2' |
594 #( |
|
595 #(#InputFieldSpec |
|
596 #name: 'EntryField1' |
|
597 #layout: #(#LayoutFrame 0 0.0 4 0 0 1.0 26 0) |
|
598 #enableChannel: #currentProjectWasNotLoadedFromFile |
|
599 #model: #projectDirectory |
|
600 #modifiedChannel: #modifiedChannel |
|
601 ) |
|
602 ) |
|
603 ) |
|
604 #label: 'Directory' |
|
605 #labelPosition: #topLeft |
|
606 #translateLabel: true |
552 #translateLabel: true |
607 ) |
553 #model: #accept |
|
554 #enableChannel: #modifiedChannel |
|
555 #extent: #(#Point 146 22) |
|
556 ) |
|
557 ) |
|
558 |
608 ) |
559 ) |
609 ) |
560 ) |
|
561 #(#FramedBoxSpec |
|
562 #label: 'Project Type' |
|
563 #name: 'FramedBox1' |
|
564 #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 93 0) |
|
565 #labelPosition: #topLeft |
|
566 #translateLabel: true |
|
567 #component: |
|
568 #(#SpecCollection |
|
569 #collection: #( |
|
570 #(#RadioButtonSpec |
|
571 #label: 'Application' |
|
572 #name: 'RadioButton1' |
|
573 #layout: #(#LayoutFrame -1 0.0 10 0 135 0 32 0) |
|
574 #translateLabel: true |
|
575 #model: #projectType |
|
576 #isTriggerOnDown: true |
|
577 #select: #application |
|
578 ) |
|
579 #(#RadioButtonSpec |
|
580 #label: 'Class Library' |
|
581 #name: 'RadioButton2' |
|
582 #layout: #(#LayoutFrame -1 0.0 38 0 135 0 60 0) |
|
583 #translateLabel: true |
|
584 #model: #projectType |
|
585 #isTriggerOnDown: true |
|
586 #select: #library |
|
587 ) |
|
588 ) |
|
589 |
|
590 ) |
|
591 ) |
|
592 #(#FramedBoxSpec |
|
593 #label: 'Directory' |
|
594 #name: 'FramedBox2' |
|
595 #layout: #(#LayoutFrame 0 0.0 94 0.0 0 1.0 159 0) |
|
596 #labelPosition: #topLeft |
|
597 #translateLabel: true |
|
598 #component: |
|
599 #(#SpecCollection |
|
600 #collection: #( |
|
601 #(#InputFieldSpec |
|
602 #name: 'EntryField1' |
|
603 #layout: #(#LayoutFrame 0 0.0 4 0 0 1.0 26 0) |
|
604 #enableChannel: #currentProjectWasNotLoadedFromFile |
|
605 #model: #projectDirectory |
|
606 #modifiedChannel: #modifiedChannel |
|
607 ) |
|
608 ) |
|
609 |
|
610 ) |
|
611 ) |
|
612 #(#FramedBoxSpec |
|
613 #label: 'Repository' |
|
614 #name: 'FramedBox3' |
|
615 #layout: #(#LayoutFrame 0 0.0 160 0.0 0 1.0 243 0) |
|
616 #labelPosition: #topLeft |
|
617 #translateLabel: true |
|
618 #component: |
|
619 #(#SpecCollection |
|
620 #collection: #( |
|
621 #(#InputFieldSpec |
|
622 #name: 'EntryField2' |
|
623 #layout: #(#LayoutFrame 92 0.0 4 0 0 1.0 26 0) |
|
624 #model: #repositoryModule |
|
625 #modifiedChannel: #modifiedChannel |
|
626 ) |
|
627 #(#InputFieldSpec |
|
628 #name: 'EntryField3' |
|
629 #layout: #(#LayoutFrame 92 0.0 29 0 0 1.0 51 0) |
|
630 #model: #repositoryDirectory |
|
631 #modifiedChannel: #modifiedChannel |
|
632 ) |
|
633 #(#LabelSpec |
|
634 #label: 'Module:' |
|
635 #name: 'Label1' |
|
636 #layout: #(#LayoutFrame 7 0 4 0 86 0 26 0) |
|
637 #translateLabel: true |
|
638 #adjust: #right |
|
639 ) |
|
640 #(#LabelSpec |
|
641 #label: 'Directory:' |
|
642 #name: 'Label2' |
|
643 #layout: #(#LayoutFrame 7 0 29 0 86 0 51 0) |
|
644 #translateLabel: true |
|
645 #adjust: #right |
|
646 ) |
|
647 ) |
|
648 |
|
649 ) |
|
650 ) |
|
651 ) |
|
652 |
|
653 ) |
610 ) |
654 ) |
611 ! |
655 ! |
612 |
656 |
613 rightCanvasSpecForReadOnlyText |
657 rightCanvasSpecForReadOnlyText |
614 "This resource specification was automatically generated |
658 "This resource specification was automatically generated |
668 ProjectBrowser open |
712 ProjectBrowser open |
669 " |
713 " |
670 |
714 |
671 <resource: #canvas> |
715 <resource: #canvas> |
672 |
716 |
673 ^ |
717 ^ |
674 |
718 #(#FullSpec |
675 #(#FullSpec |
719 #name: #windowSpec |
676 #name: #windowSpec |
720 #window: |
677 #window: |
721 #(#WindowSpec |
678 #(#WindowSpec |
722 #label: 'ProjectBrowser' |
679 #name: 'ProjectBrowser' |
723 #name: 'ProjectBrowser' |
680 #layout: #(#LayoutFrame 216 0 173 0 779 0 495 0) |
724 #layout: #(#LayoutFrame 218 0 107 0 781 0 497 0) |
681 #level: 0 |
725 #level: 0 |
682 #label: 'ProjectBrowser' |
726 #min: #(#Point 10 10) |
683 #min: #(#Point 10 10) |
727 #max: #(#Point 1024 768) |
684 #max: #(#Point 1024 768) |
728 #bounds: #(#Rectangle 218 107 782 498) |
685 #bounds: #(#Rectangle 216 173 780 496) |
729 #menu: #mainMenu |
686 #menu: #mainMenu |
730 #usePreferredExtent: false |
687 #usePreferredExtent: false |
731 #returnIsOKInDialog: true |
688 #returnIsOKInDialog: true |
732 #escapeIsCancelInDialog: true |
689 #escapeIsCancelInDialog: true |
733 ) |
690 ) |
734 #component: |
691 #component: |
735 #(#SpecCollection |
692 #(#SpecCollection |
736 #collection: #( |
693 #collection: |
737 #(#MenuPanelSpec |
694 #( |
738 #name: 'ToolBar1' |
695 #(#MenuPanelSpec |
739 #layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 32 0) |
696 #name: 'ToolBar1' |
740 #menu: #menu |
697 #layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 32 0) |
741 #textDefault: true |
698 #menu: #menu |
742 ) |
699 #textDefault: true |
743 #(#VariableHorizontalPanelSpec |
|
744 #name: 'VariableHorizontalPanel1' |
|
745 #layout: #(#LayoutFrame 0 0.0 40 0.0 0 1.0 -24 1.0) |
|
746 #handles: #(#Any 0.379433 1.0) |
|
747 #component: |
|
748 #(#SpecCollection |
|
749 #collection: #( |
|
750 #(#SelectionInTreeViewSpec |
|
751 #name: 'TreeList1' |
|
752 #model: #selectedTreeNode |
|
753 #menu: #itemMenuHolder |
|
754 #performer: #itemMenuPerformer |
|
755 #hasHorizontalScrollBar: true |
|
756 #hasVerticalScrollBar: true |
|
757 #miniScrollerHorizontal: true |
|
758 #showRoot: false |
|
759 #showDirectoryIndicatorForRoot: false |
|
760 #showDirectoryIndicator: true |
|
761 #valueChangeSelector: #itemSelected: |
|
762 #hierarchicalList: #projectTreeHolder |
|
763 #selectConditionSelector: #selectionChangeAllowed |
|
764 #highlightMode: #label |
700 ) |
765 ) |
701 #(#VariableHorizontalPanelSpec |
766 #(#SubCanvasSpec |
702 #name: 'VariableHorizontalPanel1' |
767 #name: 'SubCanvas1' |
703 #layout: #(#LayoutFrame 0 0.0 40 0.0 0 1.0 -24 1.0) |
768 #hasHorizontalScrollBar: false |
704 #component: |
769 #hasVerticalScrollBar: false |
705 #(#SpecCollection |
770 #specHolder: #currentCanvasHolder |
706 #collection: |
|
707 #( |
|
708 #(#SelectionInTreeViewSpec |
|
709 #name: 'TreeList1' |
|
710 #model: #selectedTreeNode |
|
711 #menu: #itemMenuHolder |
|
712 #performer: #itemMenuPerformer |
|
713 #hasHorizontalScrollBar: true |
|
714 #hasVerticalScrollBar: true |
|
715 #miniScrollerHorizontal: true |
|
716 #showRoot: false |
|
717 #showDirectoryIndicatorForRoot: false |
|
718 #showDirectoryIndicator: true |
|
719 #valueChangeSelector: #itemSelected: |
|
720 #hierarchicalList: #projectTreeHolder |
|
721 #selectConditionSelector: #selectionChangeAllowed |
|
722 #highlightMode: #label |
|
723 ) |
|
724 #(#SubCanvasSpec |
|
725 #name: 'SubCanvas1' |
|
726 #hasHorizontalScrollBar: false |
|
727 #hasVerticalScrollBar: false |
|
728 #specHolder: #currentCanvasHolder |
|
729 ) |
|
730 ) |
|
731 ) |
|
732 #handles: #(#Any 0.379433 1.0) |
|
733 ) |
771 ) |
734 #(#UISubSpecification |
772 ) |
735 #name: 'infoBarSubSpec' |
773 |
736 #layout: #(#LayoutFrame 0 0.0 -24 1 0 1.0 0 1.0) |
774 ) |
737 #majorKey: #ToolApplicationModel |
775 ) |
738 #minorKey: #windowSpecForInfoBar |
776 #(#UISubSpecification |
739 ) |
777 #name: 'infoBarSubSpec' |
740 ) |
778 #layout: #(#LayoutFrame 0 0.0 -24 1 0 1.0 0 1.0) |
741 ) |
779 #majorKey: #ToolApplicationModel |
|
780 #minorKey: #windowSpecForInfoBar |
|
781 ) |
|
782 ) |
|
783 |
742 ) |
784 ) |
|
785 ) |
743 ! ! |
786 ! ! |
744 |
787 |
745 !ProjectBrowser class methodsFor:'menu specs'! |
788 !ProjectBrowser class methodsFor:'menu specs'! |
746 |
789 |
747 classesItemMenu |
790 classesItemMenu |
1339 |
1389 |
1340 |holder| |
1390 |holder| |
1341 |
1391 |
1342 (holder := builder bindingAt:#projectType) isNil ifTrue:[ |
1392 (holder := builder bindingAt:#projectType) isNil ifTrue:[ |
1343 builder aspectAt:#projectType put:(holder := ValueHolder new). |
1393 builder aspectAt:#projectType put:(holder := ValueHolder new). |
|
1394 holder onChangeSend:#value to:[modifiedChannel value:true]. |
|
1395 ]. |
|
1396 ^ holder. |
|
1397 |
|
1398 "Created: / 23.3.1999 / 14:18:05 / cg" |
|
1399 ! |
|
1400 |
|
1401 repositoryDirectory |
|
1402 "automatically generated by UIPainter ..." |
|
1403 |
|
1404 "*** the code below creates a default model when invoked." |
|
1405 "*** (which may not be the one you wanted)" |
|
1406 "*** Please change as required and accept in the browser." |
|
1407 |
|
1408 |holder| |
|
1409 |
|
1410 (holder := builder bindingAt:#repositoryDirectory) isNil ifTrue:[ |
|
1411 builder aspectAt:#repositoryDirectory put:(holder := ValueHolder new). |
|
1412 holder onChangeSend:#value to:[modifiedChannel value:true]. |
|
1413 ]. |
|
1414 ^ holder. |
|
1415 |
|
1416 "Created: / 23.3.1999 / 14:18:05 / cg" |
|
1417 ! |
|
1418 |
|
1419 repositoryModule |
|
1420 "automatically generated by UIPainter ..." |
|
1421 |
|
1422 "*** the code below creates a default model when invoked." |
|
1423 "*** (which may not be the one you wanted)" |
|
1424 "*** Please change as required and accept in the browser." |
|
1425 |
|
1426 |holder| |
|
1427 |
|
1428 (holder := builder bindingAt:#repositoryModule) isNil ifTrue:[ |
|
1429 builder aspectAt:#repositoryModule put:(holder := ValueHolder new). |
1344 holder onChangeSend:#value to:[modifiedChannel value:true]. |
1430 holder onChangeSend:#value to:[modifiedChannel value:true]. |
1345 ]. |
1431 ]. |
1346 ^ holder. |
1432 ^ holder. |
1347 |
1433 |
1348 "Created: / 23.3.1999 / 14:18:05 / cg" |
1434 "Created: / 23.3.1999 / 14:18:05 / cg" |
1589 self rightCanvasTextHolder value:p comment. |
1684 self rightCanvasTextHolder value:p comment. |
1590 |
1685 |
1591 self currentProjectWasNotLoadedFromFile value:p wasLoadedFromFile not. |
1686 self currentProjectWasNotLoadedFromFile value:p wasLoadedFromFile not. |
1592 self projectType value:(p type). |
1687 self projectType value:(p type). |
1593 self projectDirectory value:(p directory). |
1688 self projectDirectory value:(p directory). |
|
1689 self halt. |
|
1690 self repositoryModule value:(p repositoryModule). |
|
1691 self repositoryDirectory value:(p repositoryDirectory). |
|
1692 |
|
1693 self deliverCompiledBinary value:(p propertyAt:#deliverCompiledBinary) ? false. |
|
1694 self deliverGZipArchive value:(p propertyAt:#deliverGZipArchive) ? false. |
|
1695 self deliverZipArchive value:(p propertyAt:#deliverZipArchive) ? false. |
|
1696 self deliverSources value:(p propertyAt:#deliverSources) ? false. |
|
1697 |
1594 modifiedChannel value:false. |
1698 modifiedChannel value:false. |
1595 p addDependent:self. |
1699 p addDependent:self. |
1596 ]. |
1700 ]. |
1597 |
1701 |
1598 "Created: / 23.3.1999 / 14:16:12 / cg" |
1702 "Created: / 23.3.1999 / 14:16:12 / cg" |
1603 |p| |
1707 |p| |
1604 |
1708 |
1605 p := self currentProject. |
1709 p := self currentProject. |
1606 p notNil ifTrue:[ |
1710 p notNil ifTrue:[ |
1607 "/ self currentProjectWasNotLoadedFromFile value:p wasLoadedFromFile not. |
1711 "/ self currentProjectWasNotLoadedFromFile value:p wasLoadedFromFile not. |
1608 "/ self projectType value:(p type). |
1712 p type:self projectType value. |
1609 "/ self projectDirectory value:(p directory). |
1713 "/ p directory:self projectDirectory value. |
|
1714 |
|
1715 p repositoryModule:self repositoryModule value. |
|
1716 p repositoryDirectory:self repositoryDirectory value. |
|
1717 |
|
1718 p propertyAt:#deliverCompiledBinary put:self deliverCompiledBinary value. |
|
1719 p propertyAt:#deliverSources put:self deliverSources value. |
|
1720 p propertyAt:#deliverZipArchive put:self deliverZipArchive value. |
|
1721 p propertyAt:#deliverGZipArchive put:self deliverGZipArchive value. |
|
1722 |
1610 "/ modifiedChannel value:false. |
1723 "/ modifiedChannel value:false. |
1611 ]. |
1724 ]. |
1612 |
1725 |
1613 "Created: / 23.3.1999 / 14:16:12 / cg" |
1726 "Created: / 23.3.1999 / 14:16:12 / cg" |
1614 "Modified: / 23.3.1999 / 14:18:38 / cg" |
1727 "Modified: / 23.3.1999 / 14:18:38 / cg" |