768 nil |
768 nil |
769 nil |
769 nil |
770 ) |
770 ) |
771 ! |
771 ! |
772 |
772 |
|
773 changeMenu1 |
|
774 "This resource specification was automatically generated |
|
775 by the MenuEditor of ST/X." |
|
776 |
|
777 "Do not manually edit this!! If it is corrupted, |
|
778 the MenuEditor may not be able to read the specification." |
|
779 |
|
780 |
|
781 " |
|
782 MenuEditor new openOnClass:Tools::ChangeSetBrowser2 andSelector:#changeMenu1 |
|
783 (Menu new fromLiteralArrayEncoding:(Tools::ChangeSetBrowser2 changeMenu1)) startUp |
|
784 " |
|
785 |
|
786 <resource: #menu> |
|
787 |
|
788 ^ |
|
789 #(Menu |
|
790 ( |
|
791 (MenuItem |
|
792 enabled: hasChangeSelectedAndNotRemoved: |
|
793 label: 'Apply' |
|
794 itemValue: changeMenuApplySelection: |
|
795 translateLabel: true |
|
796 isVisible: acceptEnabledHolder |
|
797 shortcutKey: Accept |
|
798 auxValue: 100 |
|
799 ) |
|
800 (MenuItem |
|
801 label: 'Apply all' |
|
802 itemValue: changeMenuApply: |
|
803 translateLabel: true |
|
804 isVisible: acceptEnabledHolder |
|
805 ) |
|
806 (MenuItem |
|
807 label: '-' |
|
808 ) |
|
809 (MenuItem |
|
810 label: 'Delete' |
|
811 itemValue: changeMenuDeleteSelection: |
|
812 nameKey: Delete |
|
813 translateLabel: true |
|
814 shortcutKey: Delete |
|
815 ) |
|
816 (MenuItem |
|
817 label: 'Undelete' |
|
818 itemValue: changeMenuUndeleteSelection: |
|
819 nameKey: Undelete |
|
820 translateLabel: true |
|
821 shortcutKey: Delete |
|
822 ) |
|
823 (MenuItem |
|
824 label: '-' |
|
825 ) |
|
826 (MenuItem |
|
827 label: 'Select...' |
|
828 translateLabel: true |
|
829 submenu: |
|
830 (Menu |
|
831 ( |
|
832 (MenuItem |
|
833 label: 'Select same' |
|
834 itemValue: changeMenuSelectSame: |
|
835 translateLabel: true |
|
836 ) |
|
837 (MenuItem |
|
838 label: 'Select additions (new classes/methods)' |
|
839 itemValue: changeMenuSelectAdditions: |
|
840 translateLabel: true |
|
841 ) |
|
842 (MenuItem |
|
843 label: 'Select removals' |
|
844 itemValue: changeMenuSelectRemovals: |
|
845 translateLabel: true |
|
846 ) |
|
847 (MenuItem |
|
848 label: 'Select differences' |
|
849 itemValue: changeMenuSelectDifferences: |
|
850 translateLabel: true |
|
851 ) |
|
852 (MenuItem |
|
853 label: '-' |
|
854 ) |
|
855 (MenuItem |
|
856 label: 'Select all' |
|
857 itemValue: changeMenuSelectAll: |
|
858 translateLabel: true |
|
859 ) |
|
860 (MenuItem |
|
861 label: 'Select none' |
|
862 itemValue: changeMenuSelectNone: |
|
863 translateLabel: true |
|
864 ) |
|
865 (MenuItem |
|
866 label: '-' |
|
867 ) |
|
868 (MenuItem |
|
869 label: 'Select using block' |
|
870 itemValue: changeMenuSelectUsingBlock: |
|
871 translateLabel: true |
|
872 ) |
|
873 ) |
|
874 nil |
|
875 nil |
|
876 ) |
|
877 ) |
|
878 (MenuItem |
|
879 label: '-' |
|
880 ) |
|
881 (MenuItem |
|
882 label: 'Show Deleted' |
|
883 translateLabel: true |
|
884 indication: showRemovedAspect |
|
885 ) |
|
886 (MenuItem |
|
887 label: 'Show Same' |
|
888 translateLabel: true |
|
889 indication: showSameAspect |
|
890 ) |
|
891 (MenuItem |
|
892 label: '-' |
|
893 ) |
|
894 (MenuItem |
|
895 label: 'Inspect change' |
|
896 itemValue: changeMenuInspect: |
|
897 translateLabel: true |
|
898 ) |
|
899 (MenuItem |
|
900 enabled: hasSingleChangeSelectedAndCanBrowse: |
|
901 label: 'Browse Method(s)' |
|
902 itemValue: changeMenuBrowse: |
|
903 translateLabel: true |
|
904 ) |
|
905 (MenuItem |
|
906 enabled: hasSingleChangeSelectedAndCanBrowse: |
|
907 label: 'Browse Class(s)' |
|
908 itemValue: changeMenuBrowseClass: |
|
909 translateLabel: true |
|
910 ) |
|
911 ) |
|
912 nil |
|
913 nil |
|
914 ) |
|
915 ! |
|
916 |
|
917 changeMenu2 |
|
918 "This resource specification was automatically generated |
|
919 by the MenuEditor of ST/X." |
|
920 |
|
921 "Do not manually edit this!! If it is corrupted, |
|
922 the MenuEditor may not be able to read the specification." |
|
923 |
|
924 |
|
925 " |
|
926 MenuEditor new openOnClass:Tools::ChangeSetBrowser2 andSelector:#changeMenu2 |
|
927 (Menu new fromLiteralArrayEncoding:(Tools::ChangeSetBrowser2 changeMenu2)) startUp |
|
928 " |
|
929 |
|
930 <resource: #menu> |
|
931 |
|
932 ^ |
|
933 #(Menu |
|
934 ( |
|
935 (MenuItem |
|
936 enabled: hasChangeSelectedAndNotRemoved: |
|
937 label: 'Apply' |
|
938 itemValue: changeMenuApplySelection: |
|
939 translateLabel: true |
|
940 isVisible: acceptEnabledHolder |
|
941 shortcutKey: Accept |
|
942 auxValue: 100 |
|
943 ) |
|
944 (MenuItem |
|
945 label: 'Apply all' |
|
946 itemValue: changeMenuApply: |
|
947 translateLabel: true |
|
948 isVisible: acceptEnabledHolder |
|
949 ) |
|
950 (MenuItem |
|
951 label: '-' |
|
952 ) |
|
953 (MenuItem |
|
954 label: 'Delete' |
|
955 itemValue: changeMenuDeleteSelection: |
|
956 nameKey: Delete |
|
957 translateLabel: true |
|
958 shortcutKey: Delete |
|
959 ) |
|
960 (MenuItem |
|
961 label: 'Undelete' |
|
962 itemValue: changeMenuUndeleteSelection: |
|
963 nameKey: Undelete |
|
964 translateLabel: true |
|
965 shortcutKey: Delete |
|
966 ) |
|
967 (MenuItem |
|
968 label: '-' |
|
969 ) |
|
970 (MenuItem |
|
971 label: 'Select...' |
|
972 translateLabel: true |
|
973 submenu: |
|
974 (Menu |
|
975 ( |
|
976 (MenuItem |
|
977 label: 'Select same' |
|
978 itemValue: changeMenuSelectSame: |
|
979 translateLabel: true |
|
980 ) |
|
981 (MenuItem |
|
982 label: 'Select additions (new classes/methods)' |
|
983 itemValue: changeMenuSelectAdditions: |
|
984 translateLabel: true |
|
985 ) |
|
986 (MenuItem |
|
987 label: 'Select removals' |
|
988 itemValue: changeMenuSelectRemovals: |
|
989 translateLabel: true |
|
990 ) |
|
991 (MenuItem |
|
992 label: 'Select differences' |
|
993 itemValue: changeMenuSelectDifferences: |
|
994 translateLabel: true |
|
995 ) |
|
996 (MenuItem |
|
997 label: '-' |
|
998 ) |
|
999 (MenuItem |
|
1000 label: 'Select all' |
|
1001 itemValue: changeMenuSelectAll: |
|
1002 translateLabel: true |
|
1003 ) |
|
1004 (MenuItem |
|
1005 label: 'Select none' |
|
1006 itemValue: changeMenuSelectNone: |
|
1007 translateLabel: true |
|
1008 ) |
|
1009 (MenuItem |
|
1010 label: '-' |
|
1011 ) |
|
1012 (MenuItem |
|
1013 label: 'Select using block' |
|
1014 itemValue: changeMenuSelectUsingBlock: |
|
1015 translateLabel: true |
|
1016 ) |
|
1017 ) |
|
1018 nil |
|
1019 nil |
|
1020 ) |
|
1021 ) |
|
1022 (MenuItem |
|
1023 label: '-' |
|
1024 ) |
|
1025 (MenuItem |
|
1026 label: 'Show Deleted' |
|
1027 translateLabel: true |
|
1028 indication: showRemovedAspect |
|
1029 ) |
|
1030 (MenuItem |
|
1031 label: 'Show Same' |
|
1032 translateLabel: true |
|
1033 indication: showSameAspect |
|
1034 ) |
|
1035 (MenuItem |
|
1036 label: '-' |
|
1037 ) |
|
1038 (MenuItem |
|
1039 label: 'Inspect change' |
|
1040 itemValue: changeMenuInspect: |
|
1041 translateLabel: true |
|
1042 ) |
|
1043 (MenuItem |
|
1044 enabled: hasSingleChangeSelectedAndCanBrowse: |
|
1045 label: 'Browse Method(s)' |
|
1046 itemValue: changeMenuBrowse: |
|
1047 translateLabel: true |
|
1048 ) |
|
1049 ) |
|
1050 nil |
|
1051 nil |
|
1052 ) |
|
1053 |
|
1054 "Created: / 05-09-2011 / 16:06:49 / cg" |
|
1055 ! |
|
1056 |
773 mainMenu |
1057 mainMenu |
774 "This resource specification was automatically generated |
1058 "This resource specification was automatically generated |
775 by the MenuEditor of ST/X." |
1059 by the MenuEditor of ST/X." |
776 |
1060 |
777 "Do not manually edit this!! If it is corrupted, |
1061 "Do not manually edit this!! If it is corrupted, |
1033 ! ! |
1317 ! ! |
1034 |
1318 |
1035 !ChangeSetBrowser2 methodsFor:'accessing - menus'! |
1319 !ChangeSetBrowser2 methodsFor:'accessing - menus'! |
1036 |
1320 |
1037 list1MenuHolder |
1321 list1MenuHolder |
1038 |
1322 ^ [ |
1039 ^[ |
1323 |menu| |
1040 | menu | |
1324 |
1041 menu := builder menuFor: #changeMenu. |
1325 menu := builder menuFor:#changeMenu1. |
1042 menu allItemsDo:[:item|item argument: list1]. |
1326 menu allItemsDo:[:item | item argument:list1 ]. |
1043 menu |
1327 menu |
1044 ] |
1328 ] |
1045 |
1329 |
1046 "Created: / 04-08-2011 / 18:11:03 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1330 "Created: / 04-08-2011 / 18:11:03 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1331 "Modified (format): / 05-09-2011 / 16:07:20 / cg" |
1047 ! |
1332 ! |
1048 |
1333 |
1049 list2MenuHolder |
1334 list2MenuHolder |
1050 |
1335 ^ [ |
1051 ^[ |
1336 |menu| |
1052 | menu | |
1337 |
1053 menu := builder menuFor: #changeMenu. |
1338 menu := builder menuFor:#changeMenu2. |
1054 menu allItemsDo:[:item|item argument: list2]. |
1339 menu allItemsDo:[:item | item argument:list2 ]. |
1055 menu |
1340 menu |
1056 ] |
1341 ] |
1057 |
1342 |
1058 "Created: / 04-08-2011 / 18:13:56 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1343 "Created: / 04-08-2011 / 18:13:56 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1344 "Modified (format): / 05-09-2011 / 16:07:34 / cg" |
1059 ! ! |
1345 ! ! |
1060 |
1346 |
1061 !ChangeSetBrowser2 methodsFor:'actions'! |
1347 !ChangeSetBrowser2 methodsFor:'actions'! |
1062 |
1348 |
1063 accept: source |
1349 accept: source |
1469 ! |
1755 ! |
1470 |
1756 |
1471 changeMenuBrowse: changeList |
1757 changeMenuBrowse: changeList |
1472 |changes methods classes| |
1758 |changes methods classes| |
1473 |
1759 |
1474 changes := changeList listHolder value collect:[:c | c change]. |
1760 changeList == list1 ifTrue:[ |
|
1761 changes := selection1Holder value. |
|
1762 ] ifFalse:[ |
|
1763 changes := selection2Holder value. |
|
1764 ]. |
|
1765 changes := changes collect:[:c | c change]. |
|
1766 "/ changes := changeList listHolder value collect:[:c | c change]. |
1475 (changes conform:[:c | c isClassDefinitionChange]) ifTrue:[ |
1767 (changes conform:[:c | c isClassDefinitionChange]) ifTrue:[ |
1476 classes := (changes collect:[:c | c changeClass]). |
1768 classes := (changes collect:[:c | c changeClass]). |
1477 UserPreferences current systemBrowserClass |
1769 UserPreferences current systemBrowserClass |
1478 browseClasses:classes title:'selected monticello classes'. |
1770 browseClasses:classes title:'selected monticello classes'. |
1479 ] ifFalse:[ |
1771 ] ifFalse:[ |
1495 UserPreferences current systemBrowserClass |
1787 UserPreferences current systemBrowserClass |
1496 browseMethods:methods title:'selected monticello methods' sort:false. |
1788 browseMethods:methods title:'selected monticello methods' sort:false. |
1497 ]. |
1789 ]. |
1498 |
1790 |
1499 "Created: / 04-08-2011 / 17:27:20 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1791 "Created: / 04-08-2011 / 17:27:20 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1500 "Modified: / 05-09-2011 / 10:38:51 / cg" |
1792 "Modified: / 05-09-2011 / 16:17:48 / cg" |
|
1793 ! |
|
1794 |
|
1795 changeMenuBrowseClass: changeList |
|
1796 |changes classes addThemChanges| |
|
1797 |
|
1798 changeList == list1 ifTrue:[ |
|
1799 changes := selection1Holder value. |
|
1800 ] ifFalse:[ |
|
1801 changes := selection2Holder value. |
|
1802 ]. |
|
1803 changes := changes collect:[:eachListEntry | eachListEntry change]. |
|
1804 |
|
1805 classes := Set new. |
|
1806 addThemChanges := |
|
1807 [:c | |
|
1808 c isClassDefinitionChange ifTrue:[ |
|
1809 classes add:c changeClass theNonMetaclass |
|
1810 ] ifFalse:[ |
|
1811 c isMethodChange ifTrue:[ |
|
1812 classes add:c changeMethod mclass theNonMetaclass |
|
1813 ] ifFalse:[ |
|
1814 c isCompositeChange ifTrue:[ |
|
1815 c changes do:addThemChanges |
|
1816 ] |
|
1817 ] |
|
1818 ] |
|
1819 ]. |
|
1820 changes do:addThemChanges. |
|
1821 |
|
1822 UserPreferences current systemBrowserClass |
|
1823 browseClasses:classes title:'selected monticello classes'. |
|
1824 |
|
1825 "Created: / 04-08-2011 / 17:27:20 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1826 "Created: / 05-09-2011 / 16:08:35 / cg" |
1501 ! |
1827 ! |
1502 |
1828 |
1503 changeMenuDeleteSelection: changeList |
1829 changeMenuDeleteSelection: changeList |
1504 |
1830 |
1505 self selectionDo:[:chg|chg removed: true] |
1831 self selectionDo:[:chg|chg removed: true] |