--- a/Tools__TagsBrowser.st Mon Mar 04 13:32:40 2013 +0100
+++ b/Tools__TagsBrowser.st Wed Mar 06 10:02:15 2013 +0100
@@ -2201,7 +2201,7 @@
oldSelection notNil ifTrue:[
oldLabel := oldSelection label.
- tagView selectElementForWhich:[:el | el label = oldLabel] ifAbsent:[self halt].
+ tagView selectElementForWhich:[:el | el label = oldLabel] ifAbsent:[self halt:'ouch - no such label'].
].
"Created: / 06-10-2011 / 13:41:57 / cg"
@@ -2600,13 +2600,14 @@
!TagsBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools__TagsBrowser.st,v 1.31 2012-11-26 21:47:52 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__TagsBrowser.st,v 1.32 2013-03-06 09:02:15 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools__TagsBrowser.st,v 1.31 2012-11-26 21:47:52 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__TagsBrowser.st,v 1.32 2013-03-06 09:02:15 cg Exp $'
!
version_SVN
^ '§Id§'
! !
+