# | Line 174 | Line 174 | proc update_dir w { # Update working directory | |
---|---|---|
174 | set curdir [pwd] | |
175 | $w.fm.fl delete 0 end | |
176 | set ls ../ | |
177 | < | foreach f [glob *] { |
177 | > | foreach f [glob -nocomplain *] { |
178 | if [file isdirectory $f] { | |
179 | lappend ls $f/ | |
180 | } |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |