########################
#
# selInsert
#
#   insert into a selection entry, scroll to root name
#
# $Header: /home/cvsroot/tcldb/ucodb/Tlib/selInsert,v 1.1.1.1 1996/10/12 01:08:26 de Exp $
#
proc selInsert {win pathname} {

  $win.sel delete 0 end
  $win.sel insert 0 $pathname
  set idx [expr [string length [file dirname [file dirname $pathname]] ]+1]
  $win.sel xview $idx
  if {[info tclversion] < 7.4} {
  $win.sel select anchor 0
  } else {
  $win.sel get 
  }

}

