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