equal
deleted
inserted
replaced
1952 finally:[ |
1952 finally:[ |
1953 |oldLabel| |
1953 |oldLabel| |
1954 |
1954 |
1955 oldSelection notNil ifTrue:[ |
1955 oldSelection notNil ifTrue:[ |
1956 oldLabel := oldSelection label. |
1956 oldLabel := oldSelection label. |
1957 tagView selectElementForWhich:[:el | el label = oldLabel] ifAbsent:[self halt]. |
1957 tagView selectElementForWhich:[:el | el label = oldLabel] ifAbsent:["ok, if previous tag is filtered away" "self halt"]. |
1958 ]. |
1958 ]. |
1959 ]. |
1959 ]. |
1960 ] ifFalse:[ |
1960 ] ifFalse:[ |
1961 tagView stopGeneratingTags. |
1961 tagView stopGeneratingTags. |
1962 tagView clearList. |
1962 tagView clearList. |
1963 ]. |
1963 ]. |
1964 |
1964 |
1965 "Modified: / 06-10-2011 / 14:05:30 / cg" |
1965 "Modified: / 07-12-2011 / 11:13:18 / cg" |
1966 ! ! |
1966 ! ! |
1967 |
1967 |
1968 !TagsBrowser methodsFor:'startup & release'! |
1968 !TagsBrowser methodsFor:'startup & release'! |
1969 |
1969 |
1970 cloneWith:anApplication |
1970 cloneWith:anApplication |
2241 ! ! |
2241 ! ! |
2242 |
2242 |
2243 !TagsBrowser class methodsFor:'documentation'! |
2243 !TagsBrowser class methodsFor:'documentation'! |
2244 |
2244 |
2245 version |
2245 version |
2246 ^ '$Header: /cvs/stx/stx/libtool/Tools__TagsBrowser.st,v 1.21 2011-12-06 14:44:05 cg Exp $' |
2246 ^ '$Header: /cvs/stx/stx/libtool/Tools__TagsBrowser.st,v 1.22 2011-12-09 11:49:58 cg Exp $' |
2247 ! |
2247 ! |
2248 |
2248 |
2249 version_CVS |
2249 version_CVS |
2250 ^ '$Header: /cvs/stx/stx/libtool/Tools__TagsBrowser.st,v 1.21 2011-12-06 14:44:05 cg Exp $' |
2250 ^ '$Header: /cvs/stx/stx/libtool/Tools__TagsBrowser.st,v 1.22 2011-12-09 11:49:58 cg Exp $' |
2251 ! |
2251 ! |
2252 |
2252 |
2253 version_SVN |
2253 version_SVN |
2254 ^ '§Id§' |
2254 ^ '§Id§' |
2255 ! ! |
2255 ! ! |