Lines Matching refs:data
31 upvar #0 $w data
49 wm transient $w $data(-parent)
65 wm title $w $data(-title)
75 focus $data(sEnt)
76 $data(sEnt) select from 0
77 $data(sEnt) select to end
100 upvar #0 $w data
102 set data(type) $type
117 if ![info exists data(selectPath)] {
119 set data(selectPath) [pwd]
120 set data(selectFile) ""
127 if ![string compare $data(-title) ""] {
129 set data(-title) "Open"
131 set data(-title) "Save As"
138 if [string compare $data(-initialdir) ""] {
139 if [file isdirectory $data(-initialdir)] {
140 set data(selectPath) [glob $data(-initialdir)]
142 error "\"$data(-initialdir)\" is not a valid directory"
145 set data(selectFile) $data(-initialfile)
151 set data(-filetypes) [tkFDGetFileTypes $data(-filetypes)]
153 if ![info exists data(filter)] {
154 set data(filter) *
156 if ![winfo exists $data(-parent)] {
157 error "bad window path name \"$data(-parent)\""
162 upvar #0 $w data
198 set data(fEnt) $f1.ent
202 set data(dList) [tkMotifFDialog_MakeSList $w $f2a Directory: 0 DList]
203 set data(fList) [tkMotifFDialog_MakeSList $w $f2b Files: 2 FList]
211 set data(sEnt) $f3.ent
215 set data(okBtn) [button $bot.ok -text OK -width 6 -under 0 \
217 set data(filterBtn) [button $bot.filter -text Filter -width 6 -under 0 \
219 set data(cancelBtn) [button $bot.cancel -text Cancel -width 6 -under 0 \
227 bind $w <Alt-t> "focus $data(fEnt)"
228 bind $w <Alt-d> "focus $data(dList)"
229 bind $w <Alt-l> "focus $data(fList)"
230 bind $w <Alt-s> "focus $data(sEnt)"
236 bind $data(fEnt) <Return> "tkMotifFDialog_ActivateFEnt $w"
237 bind $data(sEnt) <Return> "tkMotifFDialog_ActivateSEnt $w"
279 upvar #0 $w data
281 focus $data(dList)
282 if ![string compare [$data(dList) curselection] ""] {
285 set subdir [$data(dList) get [$data(dList) curselection]]
290 $data(fList) selection clear 0 end
293 set data(filter) [lindex $list 1]
297 set newSpec [file join $data(selectPath) $data(filter)]
300 set newSpec [file join [file dirname $data(selectPath)] \
301 $data(filter)]
304 set newSpec [file join $data(selectPath) $subdir $data(filter)]
308 $data(fEnt) delete 0 end
309 $data(fEnt) insert 0 $newSpec
313 upvar #0 $w data
315 if ![string compare [$data(dList) curselection] ""] {
318 set subdir [$data(dList) get [$data(dList) curselection]]
323 $data(fList) selection clear 0 end
327 set newDir $data(selectPath)
330 set newDir [file dirname $data(selectPath)]
333 set newDir [file join $data(selectPath) $subdir]
337 set data(selectPath) $newDir
341 $data(dList) selection set 0
342 $data(dList) activate 0
344 $data(dList) selection set 1
345 $data(dList) activate 1
350 upvar #0 $w data
352 focus $data(fList)
353 if ![string compare [$data(fList) curselection] ""] {
356 set data(selectFile) [$data(fList) get [$data(fList) curselection]]
357 if ![string compare $data(selectFile) ""] {
361 $data(dList) selection clear 0 end
363 $data(fEnt) delete 0 end
364 $data(fEnt) insert 0 [file join $data(selectPath) $data(filter)]
365 $data(fEnt) xview end
367 $data(sEnt) delete 0 end
368 $data(sEnt) insert 0 [file join $data(selectPath) $data(selectFile)]
369 $data(sEnt) xview end
373 upvar #0 $w data
375 if ![string compare [$data(fList) curselection] ""] {
378 set data(selectFile) [$data(fList) get [$data(fList) curselection]]
379 if ![string compare $data(selectFile) ""] {
387 upvar #0 $w data
390 set data(selectPath) [lindex $list 0]
391 set data(filter) [lindex $list 1]
397 upvar #0 $w data
399 set text [string trim [$data(fEnt) get]]
415 set fil $data(filter)
427 upvar #0 $w data
429 set selectFilePath [string trim [$data(sEnt) get]]
440 set data(selectPath) [glob $selectFilePath]
441 set data(selectFile) ""
459 if ![string compare $data(type) open] {
465 if ![string compare $data(type) save] {
484 upvar #0 $w data
490 upvar #0 $w data
513 upvar #0 $w data
515 $data(fEnt) delete 0 end
516 $data(fEnt) insert 0 [file join $data(selectPath) $data(filter)]
517 $data(sEnt) delete 0 end
518 $data(sEnt) insert 0 [file join $data(selectPath) $data(selectFile)]
524 upvar #0 $w data
526 $data(dList) delete 0 end
527 $data(fList) delete 0 end
531 cd $data(selectPath)
535 $data(dList) insert end ".."
543 $data(dList) insert end $f
548 if ![string compare $data(filter) *] {
552 [glob -nocomplain $data(filter)]]
558 $data(fList) insert end $f
567 $data(fList) yview $top