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