# dialog test with unmanage on cancel

pushButton .button managed -labelString "file selection: push me"
.button activateCallback doFile

proc doFile {} {
    fileSelectionDialog .fileSD managed
    .fileSD cancelCallback ".fileSD unmanageChild"
}
