# | Line 1 | Line 1 | |
---|---|---|
1 | < | # SCCSid "$SunId$ LBL" |
1 | > | # RCSid: $Id$ |
2 | # | |
3 | # Usage: getfile [-win w] [-grab] [-perm] [-glob pattern] [-view proc] [-send proc] | |
4 | # | |
# | 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 |