ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/Development/ray/src/util/getfile3.6.tcl
(Generate patch)

Comparing ray/src/util/getfile3.6.tcl (file contents):
Revision 2.4 by greg, Fri Oct 28 17:17:18 1994 UTC vs.
Revision 2.5 by greg, Fri Oct 28 20:14:43 1994 UTC

# Line 1 | Line 1
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,
# Line 19 | Line 20 | proc getfile args {            # get filename interactively
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
# Line 30 | Line 32 | proc getfile args {            # get filename interactively
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                                  }
# Line 63 | Line 68 | proc getfile args {            # get filename interactively
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

Diff Legend

– Removed lines
+ Added lines
< Changed lines (old)
> Changed lines (new)