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