# | Line 55 | Line 55 | proc getfile args { # get filename interactively | |
---|---|---|
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: |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |