Tools__TagsBrowser.st
changeset 12436 e3157e0285f9
parent 12068 639cac07052e
child 12459 7899fe07efd7
child 12741 15a374e650d0
--- 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§'
 ! !
+