Index: tolbase/lib/wtree/wtree.tcl
===================================================================
--- tolbase/lib/wtree/wtree.tcl	(revision ffeacdcc7b99b98454707efff02a44ee5a5d5655)
+++ tolbase/lib/wtree/wtree.tcl	(revision 6dc91d2178e41f6ffdbc9dbfbee3b7d48fd148ca)
@@ -80,4 +80,10 @@
       -default "" -configuremethod "_conf-columnfilter"
 
+  option -bindtags \
+      -default "" -configuremethod "_conf-bindtags"      
+
+  option -selectcommand \
+      -default "" -configuremethod "_conf-selectcommand"           
+      
   variable tree
   variable vscrollbar
@@ -265,4 +271,12 @@
 	
 	$t item sort root $order -column $column -dictionary
+  }
+  
+  method focus { itemid } {
+    if { $itemid eq "" } {
+      $self item id active 
+    } else {
+      $self activate $itemid
+    }
   }
 
@@ -314,4 +328,6 @@
         -showrootbutton no -showbuttons yes -showlines yes \
         -scrollmargin 16 -xscrolldelay "500 50" -yscrolldelay "500 50"
+   
+    bindtags $tree [linsert [bindtags $tree] 0 $win Wtree]
 
     $tree notify install <<ItemSelected>>
@@ -702,4 +718,16 @@
     }
   }
+  
+  method _conf-bindtags { _ addtags } {
+    set options(-bindtags) $addtags
+    bindtags $self [concat $addtags [bindtags $self]]
+	bindtags $tree [concat $addtags [bindtags $tree]]
+  }
+  
+  method _conf-selectcommand { _ cmd } {
+    set options(-selectcommand) $cmd
+    if { $cmd eq "" } return
+    $self notify bind $self <Selection> $cmd
+  }  
 
   #
@@ -742,5 +770,5 @@
       array set opts [ lrange $col_spec 1 end ]
       set colID [ $tree column create \
-                      -text [ msgcat::mc $opts(-label) ] \
+                      -text $opts(-label) \
                       -image $opts(-image) \
                       -itembackground "\#e0e8f0 {}" \