# simple pushButton test

xtAppInitialize -class Program

xmMainWindow .main managed

xmRowColumn .main.f managed
xmScrolledText .main.f.t managed \
    -value "text 1"
xmScrolledText .main.f.t2 managed \
    -value "text 2"

.main.f.t overrideTranslations "<Btn3Down> : action(puts %event)"
.main.f.t2 augmentTranslations "<Btn3Down> : action(puts %event)"


.main setValues -workWindow .main.f
. realizeWidget

. mainLoop
