| 1 |
|
# SCCSid "$SunId$ LBL" |
| 2 |
|
# |
| 3 |
< |
# Usage: getfile [-win w] [-perm] [-glob pattern] [-view proc] [-send proc] |
| 3 |
> |
# Usage: getfile [-win w] [-grab] [-perm] [-glob pattern] [-view proc] [-send proc] |
| 4 |
|
# |
| 5 |
|
# Create a dialog box (in window w if given) to get file name. |
| 6 |
+ |
# If -grab option is given, then getfile does a local grab on its window. |
| 7 |
|
# Normally, a single file name and return as value. |
| 8 |
|
# If perm switch is given, keep window up for multiple file entries. |
| 9 |
|
# If pattern is given, start with list of all the specified files, |
| 20 |
|
# Set defaults |
| 21 |
|
set w .fpwin |
| 22 |
|
set topwin 1 |
| 23 |
+ |
set dograb 0 |
| 24 |
|
set curdir . |
| 25 |
|
set curpat * |
| 26 |
|
set transient 1 |
| 32 |
|
set topwin 0 |
| 33 |
|
set args [lreplace $args 1 1] |
| 34 |
|
} |
| 35 |
+ |
-grab { |
| 36 |
+ |
set dograb 1 |
| 37 |
+ |
} |
| 38 |
|
-perm* { |
| 39 |
|
set transient 0 |
| 40 |
|
} |
| 68 |
|
frame $w -geometry 400x410 |
| 69 |
|
pack $w |
| 70 |
|
} |
| 71 |
+ |
if $dograb { grab $w } |
| 72 |
+ |
$w configure -cursor top_left_arrow |
| 73 |
|
label $w.dt -text Directory: |
| 74 |
|
place $w.dt -relx .025 -rely .03125 |
| 75 |
|
helplink $w.dt file directory intro |
