992 ^ protocolListGenerator |
992 ^ protocolListGenerator |
993 |
993 |
994 ! |
994 ! |
995 |
995 |
996 selectedCategories |
996 selectedCategories |
|
997 "a value holder on the currently selected class categories" |
|
998 |
997 selectedCategories isNil ifTrue:[ |
999 selectedCategories isNil ifTrue:[ |
998 selectedCategories := nil asValue. |
1000 selectedCategories := nil asValue. |
999 ]. |
1001 ]. |
1000 ^ selectedCategories |
1002 ^ selectedCategories |
1001 |
|
1002 ! |
1003 ! |
1003 |
1004 |
1004 selectedClasses |
1005 selectedClasses |
|
1006 "a value holder on the currently selected classes" |
|
1007 |
1005 selectedClasses isNil ifTrue:[ |
1008 selectedClasses isNil ifTrue:[ |
1006 selectedClasses := "SpecialValueHolder with:nil." nil asValue. |
1009 selectedClasses := "SpecialValueHolder with:nil." nil asValue. |
1007 ]. |
1010 ]. |
1008 ^ selectedClasses |
1011 ^ selectedClasses |
1009 |
1012 |
1010 "Modified: / 26-02-2013 / 12:29:45 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1013 "Modified: / 26-02-2013 / 12:29:45 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1011 ! |
1014 ! |
1012 |
1015 |
1013 selectedLintRules |
1016 selectedLintRules |
|
1017 "a value holder on the currently selected lint rules" |
|
1018 |
1014 selectedLintRules isNil ifTrue:[ |
1019 selectedLintRules isNil ifTrue:[ |
1015 selectedLintRules := nil asValue. |
1020 selectedLintRules := nil asValue. |
1016 ]. |
1021 ]. |
1017 ^ selectedLintRules |
1022 ^ selectedLintRules |
1018 |
1023 |
1019 "Modified: / 02-02-2010 / 20:42:47 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1024 "Modified: / 02-02-2010 / 20:42:47 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1020 ! |
1025 ! |
1021 |
1026 |
1022 selectedMethods |
1027 selectedMethods |
|
1028 "a value holder on the currently selected methods" |
|
1029 |
1023 selectedMethods isNil ifTrue:[ |
1030 selectedMethods isNil ifTrue:[ |
1024 selectedMethods := nil asValue. |
1031 selectedMethods := nil asValue. |
1025 ]. |
1032 ]. |
1026 ^ selectedMethods |
1033 ^ selectedMethods |
1027 |
|
1028 ! |
1034 ! |
1029 |
1035 |
1030 selectedMethodsArrayAt:index |
1036 selectedMethodsArrayAt:index |
1031 |holder| |
1037 |holder| |
1032 |
1038 |
1042 ]. |
1048 ]. |
1043 ^ holder. |
1049 ^ holder. |
1044 ! |
1050 ! |
1045 |
1051 |
1046 selectedNamespaces |
1052 selectedNamespaces |
|
1053 "a value holder on the currently selected namespaces" |
|
1054 |
1047 selectedNamespaces isNil ifTrue:[ |
1055 selectedNamespaces isNil ifTrue:[ |
1048 selectedNamespaces := nil asValue. |
1056 selectedNamespaces := nil asValue. |
1049 ]. |
1057 ]. |
1050 ^ selectedNamespaces |
1058 ^ selectedNamespaces |
1051 |
|
1052 ! |
1059 ! |
1053 |
1060 |
1054 selectedProjects |
1061 selectedProjects |
|
1062 "a value holder on the currently selected projects" |
|
1063 |
1055 selectedProjects isNil ifTrue:[ |
1064 selectedProjects isNil ifTrue:[ |
1056 selectedProjects := nil asValue. |
1065 selectedProjects := nil asValue. |
1057 ]. |
1066 ]. |
1058 ^ selectedProjects |
1067 ^ selectedProjects |
1059 |
|
1060 ! |
1068 ! |
1061 |
1069 |
1062 selectedProtocols |
1070 selectedProtocols |
|
1071 "a value holder on the currently selected protocols" |
|
1072 |
1063 selectedProtocols isNil ifTrue:[ |
1073 selectedProtocols isNil ifTrue:[ |
1064 selectedProtocols := nil asValue. |
1074 selectedProtocols := nil asValue. |
1065 ]. |
1075 ]. |
1066 ^ selectedProtocols |
1076 ^ selectedProtocols |
1067 |
|
1068 ! |
1077 ! |
1069 |
1078 |
1070 selectorListGenerator |
1079 selectorListGenerator |
|
1080 "a value holder on the current selector generator" |
|
1081 |
1071 selectorListGenerator isNil ifTrue:[ |
1082 selectorListGenerator isNil ifTrue:[ |
1072 selectorListGenerator := nil asValue. |
1083 selectorListGenerator := nil asValue. |
1073 ]. |
1084 ]. |
1074 ^ selectorListGenerator |
1085 ^ selectorListGenerator |
1075 |
|
1076 ! |
1086 ! |
1077 |
1087 |
1078 selectorListGeneratorArray |
1088 selectorListGeneratorArray |
1079 self halt:'should not be invoked'. |
1089 self halt:'should not be invoked'. |
1080 ! |
1090 ! |
1105 theSingleSelectedBookmarkFromMethodOrClass |
1115 theSingleSelectedBookmarkFromMethodOrClass |
1106 |
1116 |
1107 | mth cls | |
1117 | mth cls | |
1108 |
1118 |
1109 mth := self theSingleSelectedMethod. |
1119 mth := self theSingleSelectedMethod. |
1110 (mth notNil and:[mth mclass notNil]) |
1120 (mth notNil and:[mth mclass notNil]) ifTrue:[ |
1111 ifTrue:[^Tools::NewSystemBrowser bookmarkForClass:mth mclass selector:mth selector]. |
1121 ^ Tools::NewSystemBrowser bookmarkForClass:mth mclass selector:mth selector |
1112 cls := self theSingleSelectedClass. |
1122 ]. |
1113 cls |
1123 (cls := self theSingleSelectedClass) notNil ifTrue:[ |
1114 ifNotNil:[^Tools::NewSystemBrowser bookmarkForClass:cls selector:nil]. |
1124 ^ Tools::NewSystemBrowser bookmarkForClass:cls selector:nil |
1115 ^nil |
1125 ]. |
|
1126 ^ nil |
1116 |
1127 |
1117 "Created: / 02-06-2011 / 22:16:17 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1128 "Created: / 02-06-2011 / 22:16:17 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1118 "Modified: / 02-06-2011 / 23:19:02 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1129 "Modified: / 02-06-2011 / 23:19:02 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1119 ! |
1130 ! |
1120 |
1131 |
1121 theSingleSelectedClassFromMethodHolder |
1132 theSingleSelectedClassFromMethodHolder |
|
1133 "computes the class from the current single selected method" |
1122 |
1134 |
1123 ^BlockValue |
1135 ^BlockValue |
1124 with: |
1136 with: |
1125 [:i1 :i2| | mth cls | |
1137 [:i1 :i2| |
|
1138 |
|
1139 | mth cls | |
1126 mth := self theSingleSelectedMethod. |
1140 mth := self theSingleSelectedMethod. |
1127 cls := mth ifNil:[nil] ifNotNil:[mth mclass]. |
1141 cls := mth isNil |
1128 cls ifNil:[ |
1142 ifTrue:[ nil ] |
1129 cls := self theSingleSelectedClass]. |
1143 ifFalse:[ mth mclass ]. |
1130 cls] |
1144 cls isNil ifTrue:[ |
|
1145 cls := self theSingleSelectedClass |
|
1146 ]. |
|
1147 cls |
|
1148 ] |
1131 argument: self selectedMethods |
1149 argument: self selectedMethods |
1132 argument: self selectedClasses. |
1150 argument: self selectedClasses. |
1133 |
1151 |
1134 "Created: / 14-02-2010 / 10:05:00 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1152 "Created: / 14-02-2010 / 10:05:00 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1135 ! |
1153 ! |
1148 theSingleSelectedLanguageFromMethodOrClass |
1166 theSingleSelectedLanguageFromMethodOrClass |
1149 |
1167 |
1150 | mth cls | |
1168 | mth cls | |
1151 |
1169 |
1152 mth := self theSingleSelectedMethod. |
1170 mth := self theSingleSelectedMethod. |
1153 mth ifNotNil:[^mth programmingLanguage]. |
1171 mth notNil ifTrue:[ ^ mth programmingLanguage ]. |
1154 cls := self theSingleSelectedClass. |
1172 cls := self theSingleSelectedClass. |
1155 cls ifNotNil:[^cls programmingLanguage]. |
1173 cls notNil ifTrue:[ ^ cls programmingLanguage ]. |
1156 ^SmalltalkLanguage instance |
1174 ^SmalltalkLanguage instance |
1157 |
1175 |
1158 "Created: / 20-07-2010 / 15:59:29 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1176 "Created: / 20-07-2010 / 15:59:29 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1159 ! |
1177 ! |
1160 |
1178 |
1711 ! ! |
1729 ! ! |
1712 |
1730 |
1713 !NavigationState class methodsFor:'documentation'! |
1731 !NavigationState class methodsFor:'documentation'! |
1714 |
1732 |
1715 version |
1733 version |
1716 ^ '$Header: /cvs/stx/stx/libtool/Tools__NavigationState.st,v 1.56 2014-03-25 18:28:36 vrany Exp $' |
1734 ^ '$Header: /cvs/stx/stx/libtool/Tools__NavigationState.st,v 1.57 2014-12-02 21:08:21 cg Exp $' |
1717 ! |
1735 ! |
1718 |
1736 |
1719 version_CVS |
1737 version_CVS |
1720 ^ '$Header: /cvs/stx/stx/libtool/Tools__NavigationState.st,v 1.56 2014-03-25 18:28:36 vrany Exp $' |
1738 ^ '$Header: /cvs/stx/stx/libtool/Tools__NavigationState.st,v 1.57 2014-12-02 21:08:21 cg Exp $' |
1721 ! |
1739 ! |
1722 |
1740 |
1723 version_SVN |
1741 version_SVN |
1724 ^ '$Id: Tools__NavigationState.st,v 1.56 2014-03-25 18:28:36 vrany Exp $' |
1742 ^ '$Id: Tools__NavigationState.st,v 1.57 2014-12-02 21:08:21 cg Exp $' |
1725 ! ! |
1743 ! ! |
1726 |
1744 |
1727 |
1745 |
1728 NavigationState initialize! |
1746 NavigationState initialize! |