# 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 \
	-background red
    [.fileSD parent] setValues \
	-width 600 -height 200
    .fileSD.Text setValues \
	-background green
    .fileSD.DirList setValues \
	-background pink
    .fileSD cancelCallback ".fileSD unmanageChild"
}

. realizeWidget

. mainLoop
