# testing if we can send events to a widget
# and get a result back out of it

proc activateCB {} {
    return "...activated"
}

proc disarmCB {} {
    return "...disarmed"
}

proc armCB {} {
    return "...armed"
}

xtAppInitialize -class Btn

xmPushButton .btn managed -labelString "Hello world"
.btn destroyWidget

xmPushButton .btn1 managed -labelString "Hello world"
.btn1 destroyWidget

xmPushButton .btn2 managed -labelString "Hello world"
.btn2 destroyWidget

xmPushButton .btn managed -labelString "Hello world"
.btn destroyWidget

xmForm .form managed
xmList .form.list managed
.form.list destroyWidget

xmList .form.list2 managed

. realizeWidget

. mainLoop
