equal
deleted
inserted
replaced
600 #'flags:' 0 |
600 #'flags:' 0 |
601 #'label:' '' |
601 #'label:' '' |
602 #'level:' -1 |
602 #'level:' -1 |
603 #'adjust:' #left |
603 #'adjust:' #left |
604 ) |
604 ) |
605 #(#ActionButtonSpec |
605 #(#ToggleSpec |
606 #'name:' 'raiseGallery' |
606 #'name:' 'galleryLabel' |
607 #'layout:' #(#LayoutFrame 322 0 1 0 421 0 23 0) |
607 #'layout:' #(#LayoutFrame -162 1.0 1 0 -82 1.0 23 0) |
608 #'flags:' 0 |
608 #'flags:' 0 |
609 #'label:' 'Gallery' |
609 #'label:' 'Gallery' |
610 #'initiallyInvisible:' true |
610 #'model:' #galleryShown |
611 #'model:' #raiseGallery |
611 #'isTriggerOnDown:' true |
612 ) |
612 #'showLamp:' true |
613 #(#ActionButtonSpec |
613 #'lampColor:' #(#Color 100.0 100.0 0.0) |
614 #'name:' 'raisePainter' |
614 ) |
615 #'layout:' #(#LayoutFrame 424 0 1 0 524 0 23 0) |
615 #(#ToggleSpec |
|
616 #'name:' 'painterLabel' |
|
617 #'layout:' #(#LayoutFrame -81 1.0 1 0 -1 1.0 23 0) |
616 #'flags:' 0 |
618 #'flags:' 0 |
617 #'label:' 'Painter' |
619 #'label:' 'Painter' |
618 #'initiallyInvisible:' true |
620 #'model:' #painterShown |
619 #'model:' #raisePainter |
621 #'isTriggerOnDown:' true |
|
622 #'showLamp:' true |
|
623 #'lampColor:' #(#Color 100.0 100.0 0.0) |
620 ) |
624 ) |
621 ) |
625 ) |
622 ) |
626 ) |
623 ) |
627 ) |
624 ! ! |
628 ! ! |
659 ] |
663 ] |
660 ! |
664 ! |
661 |
665 |
662 doubleClick |
666 doubleClick |
663 objectList selectGroup |
667 objectList selectGroup |
664 ! |
|
665 |
|
666 raiseGallery |
|
667 |top| |
|
668 |
|
669 top := selectionPanel window. |
|
670 top map. |
|
671 top bePartner. |
|
672 (builder componentAt:#raiseGallery) beInvisible. |
|
673 |
|
674 ! |
|
675 |
|
676 raisePainter |
|
677 |top| |
|
678 |
|
679 top := self painter topView. |
|
680 top map. |
|
681 top bePartner. |
|
682 (builder componentAt:#raisePainter) beInvisible. |
|
683 |
|
684 |
|
685 ! ! |
668 ! ! |
686 |
669 |
687 !UIPainter methodsFor:'active help'! |
670 !UIPainter methodsFor:'active help'! |
688 |
671 |
689 activeHelpApplicationClass |
672 activeHelpApplicationClass |
740 "true if modifications are allowed otherwise running test |
723 "true if modifications are allowed otherwise running test |
741 " |
724 " |
742 ^ self painter enableChannel |
725 ^ self painter enableChannel |
743 ! |
726 ! |
744 |
727 |
|
728 galleryShown |
|
729 |holder| |
|
730 |
|
731 (holder := builder bindingAt:#galleryShown) isNil ifTrue:[ |
|
732 builder aspectAt:#galleryShown put:(holder := true asValue). |
|
733 holder addDependent:self |
|
734 ]. |
|
735 ^ holder |
|
736 |
|
737 ! |
|
738 |
745 menuAlignment |
739 menuAlignment |
746 |menu channel| |
740 |menu channel| |
747 |
741 |
748 channel := self enableChannel. |
742 channel := self enableChannel. |
749 |
743 |
818 !!hack!! |
812 !!hack!! |
819 " |
813 " |
820 ^ [ self painter showMiddleButtonMenu ]. |
814 ^ [ self painter showMiddleButtonMenu ]. |
821 |
815 |
822 |
816 |
|
817 |
|
818 ! |
|
819 |
|
820 painterShown |
|
821 |holder| |
|
822 |
|
823 (holder := builder bindingAt:#painterShown) isNil ifTrue:[ |
|
824 builder aspectAt:#painterShown put:(holder := true asValue). |
|
825 holder addDependent:self |
|
826 ]. |
|
827 ^ holder |
823 |
828 |
824 ! |
829 ! |
825 |
830 |
826 tabList |
831 tabList |
827 "automatically generated by UIPainter ..." |
832 "automatically generated by UIPainter ..." |
869 self modifiedChannel value ifTrue:[ |
874 self modifiedChannel value ifTrue:[ |
870 ^ self |
875 ^ self |
871 ]. |
876 ]. |
872 layoutTool update |
877 layoutTool update |
873 ]. |
878 ]. |
874 self modifiedChannel value:false |
879 ^ self modifiedChannel value:false |
875 ] |
880 ]. |
|
881 |
|
882 self galleryShown == someObject ifTrue:[ |
|
883 (self galleryShown value) ifTrue:[ |
|
884 self raiseUIView:(selectionPanel window) |
|
885 ] ifFalse:[ |
|
886 self hideUIView:(selectionPanel window) |
|
887 ]. |
|
888 ^ self |
|
889 ]. |
|
890 |
|
891 self painterShown == someObject ifTrue:[ |
|
892 (self painterShown value) ifTrue:[ |
|
893 self raiseUIView:(self painter topView) |
|
894 ] ifFalse:[ |
|
895 self hideUIView:(self painter topView) |
|
896 ]. |
|
897 ^ self |
|
898 ]. |
|
899 |
876 ! ! |
900 ! ! |
877 |
901 |
878 !UIPainter methodsFor:'event handling'! |
902 !UIPainter methodsFor:'event handling'! |
879 |
903 |
880 doesNotUnderstand:aMessage |
904 doesNotUnderstand:aMessage |
940 self modifiedChannel value:false. |
964 self modifiedChannel value:false. |
941 ! ! |
965 ! ! |
942 |
966 |
943 !UIPainter methodsFor:'private'! |
967 !UIPainter methodsFor:'private'! |
944 |
968 |
|
969 hideUIView:aView |
|
970 aView beIndependent. |
|
971 aView unmap. |
|
972 ! |
|
973 |
945 painter |
974 painter |
946 ^ objectList painter |
975 ^ objectList painter |
|
976 ! |
|
977 |
|
978 raiseUIView:aView |
|
979 aView map. |
|
980 aView bePartner. |
947 ! ! |
981 ! ! |
948 |
982 |
949 !UIPainter methodsFor:'queries'! |
983 !UIPainter methodsFor:'queries'! |
950 |
984 |
951 isHelpToolSelected |
985 isHelpToolSelected |
1007 ! |
1041 ! |
1008 |
1042 |
1009 closeRequestFor:aTopView |
1043 closeRequestFor:aTopView |
1010 "handle a close request for a specific view |
1044 "handle a close request for a specific view |
1011 " |
1045 " |
1012 |topView id| |
1046 |topView| |
1013 |
1047 |
1014 topView := self window. |
1048 topView := self window. |
1015 |
1049 |
1016 topView == aTopView ifTrue:[ |
1050 topView == aTopView ifTrue:[ |
1017 super closeRequestFor:aTopView |
1051 super closeRequestFor:aTopView |
1018 ] ifFalse:[ |
1052 ] ifFalse:[ |
1019 "/ aTopView beSlave. |
1053 aTopView = selectionPanel window ifTrue:[ |
1020 aTopView beIndependent. |
1054 self galleryShown value:false |
1021 |
1055 ] ifFalse:[ |
1022 aTopView unmap. |
1056 self painterShown value:false |
1023 |
1057 ]. |
1024 aTopView = selectionPanel window ifTrue:[id := #raiseGallery] |
|
1025 ifFalse:[id := #raisePainter]. |
|
1026 |
|
1027 (builder componentAt:id) beVisible. |
|
1028 topView raise. |
1058 topView raise. |
1029 ]. |
1059 ]. |
1030 ! |
1060 ! |
1031 |
1061 |
1032 openInterface |
1062 openInterface |
1431 doRaise |
1461 doRaise |
1432 |top x| |
1462 |top x| |
1433 |
1463 |
1434 top := self painter topView. |
1464 top := self painter topView. |
1435 top realized ifFalse:[ |
1465 top realized ifFalse:[ |
1436 self raisePainter |
1466 self painterShown value:true |
1437 ]. |
1467 ]. |
1438 top raise. |
1468 top raise. |
1439 |
1469 |
1440 top := selectionPanel window. |
1470 top := selectionPanel window. |
1441 top realized ifFalse:[ |
1471 top realized ifFalse:[ |
1442 self raiseGallery |
1472 self galleryShown value:true |
1443 ]. |
1473 ]. |
1444 top raise. |
1474 top raise. |
1445 ! |
1475 ! |
1446 |
1476 |
1447 doStartApplication |
1477 doStartApplication |