| # | Line 172 | Line 172 | proc update_dir w { # Update working directory | |
|---|---|---|
| 172 | $w.de config -foreground $oldcol | |
| 173 | } | |
| 174 | set curdir [pwd] | |
| 175 | + | set offset [expr [string length $curdir] - 32] |
| 176 | + | if {$offset > 0} { |
| 177 | + | $w.de view [expr $offset + \ |
| 178 | + | [string first / [string range $curdir $offset end]] \ |
| 179 | + | + 1] |
| 180 | + | } |
| 181 | $w.fm.fl delete 0 end | |
| 182 | set ls ../ | |
| 183 | foreach f [glob -nocomplain *] { | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |