# dialog test with unmanage on cancel
xtAppInitialize -class Program

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

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

. realizeWidget

. mainLoop
