
set Name [unique2 $Composite.tixFD]
set Parent $Name

proc filecmd$Name {file} {
  puts $file
}

#------------------------------------------
tixFileSelectBox $Name -command "wm withdraw \[winfo toplevel $Name\]; filecmd$Name"
tixStdDlgBtns $Name-btns
$Name-btns button ok config -command "$Name invoke"
$Name-btns button apply config -command "$Name filter" -text filter
$Name-btns button cancel config -command "wm withdraw \[winfo toplevel $Name\]"
pack $Name -fill both -expand 1 -side top
pack $Name-btns -fill both -expand 1 -side bottom
