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

Comparing ray/src/util/getfile.tcl (file contents):
Revision 2.2 by greg, Sat Feb 22 02:07:30 2003 UTC vs.
Revision 2.3 by greg, Sun Jun 3 20:13:51 2012 UTC

# Line 96 | Line 96 | proc getfile args {            # get filename interactively
96          helplink $w.fm.fl file file intro
97          if [info exists sendproc] {
98                  bind $w.fm.fl <Double-Button-1> "set_curfile $w $sendproc"
99 +                bind $w.fm.fl <Return> "set_curfile $w $sendproc"
100                  if {$transient} {
101                          bind $w.fm.fl <Double-Button-1> \
102                                          "+if {\$curfile > {}} {destroy $w}"
103 +                        bind $w.fm.fl <Return> \
104 +                                        "+if {\$curfile > {}} {destroy $w}"
105                  }
106          } else {
107                  bind $w.fm.fl <Double-Button-1> "set_curfile $w"
108 +                bind $w.fm.fl <Return> "set_curfile $w"
109                  label $w.fl -text File:
110                  place $w.fl -relx .10625 -rely .875
111                  entry $w.fn -relief sunken -textvariable curfile

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines