# bug in translations?
xtAppInitialize -class Program

xmLabel .label managed -labelString main

topLevelShell .t
# xmLabel .t.label managed -labelString popup

.t setValues -translations "#augment \
	<Key>q: exec(puts hello)"
.t popup

. realizeWidget

. mainLoop
