Mass Deface "focus [$data(w:fsbox) subwidget filelist]" bind $w "focus [$data(w:fsbox) subwidget dirlist]" bind $w "focus [$data(w:fsbox) subwidget selection]" bind $w "focus [$data(w:fsbox) subwidget filter]" bind $w "tkButtonInvoke [$data(w:btns) subwidget ok]" bind $w "tkButtonInvoke [$data(w:btns) subwidget apply]" bind $w "tkButtonInvoke [$data(w:btns) subwidget cancel]" bind $w "tkButtonInvoke [$data(w:btns) subwidget help]" } proc tixFileSelectDialog:Invoke {w filename} { upvar #0 $w data wm withdraw $w if {$data(-command) != ""} { set bind(specs) "%V" set bind(%V) $filename tixEvalCmdBinding $w $data(-command) bind $filename } }