"focus [$data(w:fsbox) subwidget file]" bind $w "focus [$data(w:fsbox) subwidget types]" bind $w "focus [$data(w:fsbox) subwidget dir]" bind $w "tkButtonInvoke [$data(w:fsbox) subwidget ok]" bind $w "tkButtonInvoke [$data(w:fsbox) subwidget cancel]" bind $w "tkButtonInvoke [$data(w:fsbox) subwidget hidden]" }