--- a/Tools__TagsBrowser.st	Tue Dec 06 11:54:33 2011 +0100
+++ b/Tools__TagsBrowser.st	Tue Dec 06 15:44:05 2011 +0100
@@ -1986,14 +1986,9 @@
     tagView application:self.
     tagView list:tagList.
 
-    tagView action:[:i| |tag|
-        action notNil ifTrue:[
-            tag := tagList at:i ifAbsent:nil.
-            tag notNil ifTrue:[ action value:tag ].
-        ]
-    ].
+    tagView action:[:i| self tagListSelectionChangedTo:i].
 
-    "Modified: / 03-08-2011 / 11:19:49 / cg"
+    "Modified: / 06-12-2011 / 14:57:06 / cg"
 !
 
 postBuildWith:aBuilder
@@ -2002,6 +1997,18 @@
     self sortIsByName value:true.
 
     "Created: / 03-08-2011 / 11:19:44 / cg"
+!
+
+tagListSelectionChangedTo:idx
+    |tag|
+
+    action notNil ifTrue:[
+        tag := tagList at:idx ifAbsent:nil.
+        tag notNil ifTrue:[ action value:tag ].
+    ]
+
+    "Modified: / 03-08-2011 / 11:19:49 / cg"
+    "Created: / 06-12-2011 / 14:57:26 / cg"
 ! !
 
 !TagsBrowser::TagView methodsFor:'accessing'!
@@ -2236,11 +2243,11 @@
 !TagsBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagsBrowser.st,v 1.20 2011-10-21 12:45:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagsBrowser.st,v 1.21 2011-12-06 14:44:05 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagsBrowser.st,v 1.20 2011-10-21 12:45:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagsBrowser.st,v 1.21 2011-12-06 14:44:05 cg Exp $'
 !
 
 version_SVN