55 |
|
# Create widgets |
56 |
|
catch {destroy $w} |
57 |
|
if $topwin { |
58 |
< |
toplevel $w -geometry 500x410 |
58 |
> |
toplevel $w -geometry 400x410 |
59 |
|
wm title $w "File Picker" |
60 |
|
wm iconname $w "Files" |
61 |
< |
wm minsize $w 300 250 |
61 |
> |
wm minsize $w 400 300 |
62 |
|
} else { |
63 |
< |
frame $w -geometry 500x410 |
63 |
> |
frame $w -geometry 400x410 |
64 |
|
pack $w |
65 |
|
} |
66 |
|
label $w.dt -text Directory: |
157 |
|
if {"$curpat" == ""} { |
158 |
|
set curpat * |
159 |
|
} |
160 |
+ |
if {"$curdir" == {}} {set curdir {~}} |
161 |
|
if [catch {cd $curdir} curdir] { |
162 |
|
set oldcol [lindex [$w.de config -foreground] 4] |
163 |
|
$w.de config -foreground Red |