# | 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 |