Tools__TagsBrowser.st
branchjv
changeset 12459 7899fe07efd7
parent 12431 9f0c59c742d5
parent 12436 e3157e0285f9
child 12807 ba8c5416aa28
--- a/Tools__TagsBrowser.st	Thu Mar 07 11:10:05 2013 +0000
+++ b/Tools__TagsBrowser.st	Wed Mar 13 01:04:29 2013 +0000
@@ -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,11 +2600,11 @@
 !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_HG