
set Name [unique2 $Composite.tixDlgB]
set Parent $Name
#------------------------------------------
tixDlgBtns $Name 
$Name add done -text "Done" -command "puts done"
$Name add apply -text "Apply" -command "puts apply"
$Name add cancel -text "Cancel" -command "puts cancel"
place $Name -x 56 -y 56 -anchor nw
