# dialog test with unmanage on cancel
xtAppInitialize -class Program

xmPushButton .button managed -labelString "file selection: push me"
xmSelectionDialog .button.sd managed
.button.sd.ItemsList setValues \
    -items {a b c d} \
    -itemCount 4

if {[.button.sd.ItemsList class] == "XmList"} {
    .button.sd.ItemsList selectPosition 4 false
}

. realizeWidget

. mainLoop
