| # | Line 61 | Line 61 | proc getfile args { # get filename interactively | |
|---|---|---|
| 61 | # Create widgets | |
| 62 | catch {destroy $w} | |
| 63 | if $topwin { | |
| 64 | < | toplevel $w -geometry 400x410 |
| 64 | > | toplevel $w -width 400 -height 410 |
| 65 | wm title $w "File Picker" | |
| 66 | wm iconname $w "Files" | |
| 67 | wm minsize $w 400 300 | |
| 68 | } else { | |
| 69 | < | frame $w -geometry 400x410 |
| 69 | > | frame $w -width 400 -height 410 |
| 70 | pack $w | |
| 71 | } | |
| 72 | if $dograb { grab $w } | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |