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 |