--- ray/src/util/getfile3.6.tcl 1994/10/28 20:14:43 2.5 +++ ray/src/util/getfile3.6.tcl 1994/11/30 16:47:00 2.7 @@ -172,9 +172,15 @@ proc update_dir w { # Update working directory $w.de config -foreground $oldcol } set curdir [pwd] + set offset [expr [string length $curdir] - 32] + if {$offset > 0} { + $w.de view [expr $offset + \ + [string first / [string range $curdir $offset end]] \ + + 1] + } $w.fm.fl delete 0 end set ls ../ - foreach f [glob *] { + foreach f [glob -nocomplain *] { if [file isdirectory $f] { lappend ls $f/ }