674 |
674 |
675 #(#FullSpec |
675 #(#FullSpec |
676 #'window:' |
676 #'window:' |
677 #(#WindowSpec |
677 #(#WindowSpec |
678 #'name:' 'Tree-View' |
678 #'name:' 'Tree-View' |
679 #'layout:' #(#LayoutFrame 216 0 173 0 729 0 633 0) |
679 #'layout:' #(#LayoutFrame 30 0 56 0 543 0 516 0) |
680 #'label:' 'Tree-View' |
680 #'label:' 'Tree-View' |
681 #'min:' #(#Point 10 10) |
681 #'min:' #(#Point 10 10) |
682 #'max:' #(#Point 1160 870) |
682 #'max:' #(#Point 1160 870) |
683 #'bounds:' #(#Rectangle 216 173 730 634) |
683 #'bounds:' #(#Rectangle 30 56 544 517) |
|
684 #'usePreferredExtent:' false |
684 ) |
685 ) |
685 #'component:' |
686 #'component:' |
686 #(#SpecCollection |
687 #(#SpecCollection |
687 #'collection:' |
688 #'collection:' |
688 #( |
689 #( |
701 #( |
702 #( |
702 #(#MenuPanelSpec |
703 #(#MenuPanelSpec |
703 #'name:' 'menuChangeHierarchy' |
704 #'name:' 'menuChangeHierarchy' |
704 #'activeHelpKey:' #menuChangeHierarchy |
705 #'activeHelpKey:' #menuChangeHierarchy |
705 #'enableChannel:' #hasOneSelectionOtherThanCanvas |
706 #'enableChannel:' #hasOneSelectionOtherThanCanvas |
|
707 #'tabable:' true |
706 #'menu:' #menuChangeHierarchy |
708 #'menu:' #menuChangeHierarchy |
707 #'showSeparatingLines:' true |
709 #'showSeparatingLines:' true |
708 #'extent:' #(#Point 103 32) |
710 #'extent:' #(#Point 103 32) |
709 ) |
711 ) |
710 #(#MenuPanelSpec |
712 #(#MenuPanelSpec |
725 #(#ArrowButtonSpec |
727 #(#ArrowButtonSpec |
726 #'name:' 'moveLeft' |
728 #'name:' 'moveLeft' |
727 #'activeHelpKey:' #moveSelectionLeft |
729 #'activeHelpKey:' #moveSelectionLeft |
728 #'tabable:' true |
730 #'tabable:' true |
729 #'model:' #moveSelectionLeft |
731 #'model:' #moveSelectionLeft |
|
732 #'enableChannel:' #canMoveOrAlignSelection |
730 #'isTriggerOnDown:' true |
733 #'isTriggerOnDown:' true |
731 #'enableChannel:' #canMoveOrAlignSelection |
|
732 #'direction:' #left |
734 #'direction:' #left |
733 #'extent:' #(#Point 22 24) |
735 #'extent:' #(#Point 22 24) |
734 ) |
736 ) |
735 #(#ArrowButtonSpec |
737 #(#ArrowButtonSpec |
736 #'name:' 'moveRight' |
738 #'name:' 'moveRight' |
737 #'activeHelpKey:' #moveSelectionRight |
739 #'activeHelpKey:' #moveSelectionRight |
738 #'model:' #moveSelectionRight |
740 #'model:' #moveSelectionRight |
|
741 #'enableChannel:' #canMoveOrAlignSelection |
739 #'isTriggerOnDown:' true |
742 #'isTriggerOnDown:' true |
740 #'enableChannel:' #canMoveOrAlignSelection |
|
741 #'direction:' #right |
743 #'direction:' #right |
742 #'extent:' #(#Point 22 24) |
744 #'extent:' #(#Point 22 24) |
743 ) |
745 ) |
744 #(#ArrowButtonSpec |
746 #(#ArrowButtonSpec |
745 #'name:' 'moveDown' |
747 #'name:' 'moveDown' |
746 #'activeHelpKey:' #moveSelectionDown |
748 #'activeHelpKey:' #moveSelectionDown |
747 #'model:' #moveSelectionDown |
749 #'model:' #moveSelectionDown |
|
750 #'enableChannel:' #canMoveOrAlignSelection |
748 #'isTriggerOnDown:' true |
751 #'isTriggerOnDown:' true |
749 #'enableChannel:' #canMoveOrAlignSelection |
|
750 #'direction:' #down |
752 #'direction:' #down |
751 #'extent:' #(#Point 22 24) |
753 #'extent:' #(#Point 22 24) |
752 ) |
754 ) |
753 #(#ArrowButtonSpec |
755 #(#ArrowButtonSpec |
754 #'name:' 'moveUp' |
756 #'name:' 'moveUp' |
755 #'activeHelpKey:' #moveSelectionUp |
757 #'activeHelpKey:' #moveSelectionUp |
756 #'model:' #moveSelectionUp |
758 #'model:' #moveSelectionUp |
|
759 #'enableChannel:' #canMoveOrAlignSelection |
757 #'isTriggerOnDown:' true |
760 #'isTriggerOnDown:' true |
758 #'enableChannel:' #canMoveOrAlignSelection |
|
759 #'direction:' #up |
761 #'direction:' #up |
760 #'extent:' #(#Point 22 24) |
762 #'extent:' #(#Point 22 24) |
761 ) |
763 ) |
762 ) |
764 ) |
763 ) |
765 ) |
788 #(#SpecCollection |
790 #(#SpecCollection |
789 #'collection:' |
791 #'collection:' |
790 #( |
792 #( |
791 #(#ArbitraryComponentSpec |
793 #(#ArbitraryComponentSpec |
792 #'name:' 'treeView' |
794 #'name:' 'treeView' |
|
795 #'tabable:' true |
793 #'menu:' #menuCanvas |
796 #'menu:' #menuCanvas |
794 #'hasHorizontalScrollBar:' true |
797 #'hasHorizontalScrollBar:' true |
795 #'hasVerticalScrollBar:' true |
798 #'hasVerticalScrollBar:' true |
796 #'miniScrollerHorizontal:' true |
799 #'miniScrollerHorizontal:' true |
797 #'miniScrollerVertical:' true |
800 #'miniScrollerVertical:' true |
826 #'activeHelpKey:' #cancel |
829 #'activeHelpKey:' #cancel |
827 #'label:' 'cancel' |
830 #'label:' 'cancel' |
828 #'tabable:' true |
831 #'tabable:' true |
829 #'model:' #cancel |
832 #'model:' #cancel |
830 #'enableChannel:' #modifiedChannel |
833 #'enableChannel:' #modifiedChannel |
831 #'extent:' #(#Point 165 24) |
834 #'extent:' #(#Point 164 24) |
832 ) |
835 ) |
833 #(#ActionButtonSpec |
836 #(#ActionButtonSpec |
834 #'name:' 'acceptButton' |
837 #'name:' 'acceptButton' |
835 #'activeHelpKey:' #accept |
838 #'activeHelpKey:' #accept |
836 #'label:' 'accept' |
839 #'label:' 'accept' |
837 #'tabable:' true |
840 #'tabable:' true |
838 #'model:' #accept |
841 #'model:' #accept |
839 #'enableChannel:' #modifiedChannel |
842 #'enableChannel:' #modifiedChannel |
840 #'extent:' #(#Point 166 24) |
843 #'extent:' #(#Point 165 24) |
841 ) |
844 ) |
842 ) |
845 ) |
843 ) |
846 ) |
844 #'horizontalLayout:' #fitSpace |
847 #'horizontalLayout:' #fitSpace |
845 #'verticalLayout:' #fitSpace |
848 #'verticalLayout:' #fitSpace |
1401 #(#MenuItem |
1404 #(#MenuItem |
1402 #'label:' 'install window spec.' |
1405 #'label:' 'install window spec.' |
1403 #'value:' #doInstallSpec |
1406 #'value:' #doInstallSpec |
1404 ) |
1407 ) |
1405 #(#MenuItem |
1408 #(#MenuItem |
|
1409 #'label:' 'install aspects' |
|
1410 #'value:' #doInstallAspects |
|
1411 #'enabled:' #hasSpecClass |
|
1412 ) |
|
1413 #(#MenuItem |
|
1414 #'label:' 'install hooks' |
|
1415 #'value:' #doInstallHooks |
|
1416 ) |
|
1417 #(#MenuItem |
1406 #'label:' 'install help spec.' |
1418 #'label:' 'install help spec.' |
1407 #'value:' #doInstallHelp |
1419 #'value:' #doInstallHelp |
1408 #'enabled:' #hasSpecClass |
|
1409 ) |
|
1410 #(#MenuItem |
|
1411 #'label:' 'install aspects' |
|
1412 #'value:' #doInstallAspects |
|
1413 #'enabled:' #hasSpecClass |
1420 #'enabled:' #hasSpecClass |
1414 ) |
1421 ) |
1415 #(#MenuItem |
1422 #(#MenuItem |
1416 #'label:' '-' |
1423 #'label:' '-' |
1417 ) |
1424 ) |
2698 "install help text |
2705 "install help text |
2699 " |
2706 " |
2700 self helpTool installHelpSpecInto:specClass |
2707 self helpTool installHelpSpecInto:specClass |
2701 ! |
2708 ! |
2702 |
2709 |
|
2710 doInstallHooks |
|
2711 "install application hooks |
|
2712 " |
|
2713 |code| |
|
2714 |
|
2715 self hasSpecClassAndSelector ifFalse:[ |
|
2716 self defineClassAndSelector |
|
2717 ]. |
|
2718 |
|
2719 self checkClassAndSelector ifFalse:[ |
|
2720 ^ self |
|
2721 ]. |
|
2722 |
|
2723 self painter className:specClass |
|
2724 superclassName:specSuperclass |
|
2725 selector:specSelector. |
|
2726 |
|
2727 code := self painter generateHookMethods. |
|
2728 (ReadStream on:code) fileIn. |
|
2729 |
|
2730 "Created: / 31.10.1997 / 17:37:54 / cg" |
|
2731 ! |
|
2732 |
2703 doInstallSpec |
2733 doInstallSpec |
2704 "install window specification |
2734 "install window specification |
2705 " |
2735 " |
2706 |code painter| |
2736 |code painter| |
2707 |
2737 |
2763 painter := self painter. |
2793 painter := self painter. |
2764 spec := UISpecification fromView:view topView. |
2794 spec := UISpecification fromView:view topView. |
2765 |
2795 |
2766 "/ ok, got it |
2796 "/ ok, got it |
2767 |
2797 |
2768 view application notNil ifTrue:[ |
2798 (app := view application) notNil ifTrue:[ |
2769 cls := view application class |
2799 cls := app class |
2770 ] ifFalse:[ |
2800 ] ifFalse:[ |
2771 cls := view class |
2801 cls := view class |
2772 ]. |
2802 ]. |
2773 self setClass:cls selector:nil. |
2803 self setClass:cls selector:nil. |
2774 |
2804 |
2775 painter setupFromSpec:spec. |
2805 painter setupFromSpec:spec. |
2776 ] |
2806 ] |
2777 ] |
2807 ] |
2778 |
2808 |
2779 "Modified: 24.6.1997 / 19:02:57 / cg" |
2809 "Modified: / 1.11.1997 / 13:47:49 / cg" |
2780 ! |
2810 ! |
2781 |
2811 |
2782 doStartApplication |
2812 doStartApplication |
2783 "start current edited application |
2813 "start current edited application |
2784 " |
2814 " |