# simple pushButton test
puts "args: $argv"
xtAppInitialize -geometry "=600x500+10+10"
puts "args: $argv"

topLevelShell .top -geometry "=600x400+20+20"

xmLabel .top.label managed

.top popup

xmMainWindow .main

set base_ .main.r
xmRowColumn $base_ managed
xmLabel $base_.label managed
xmText $base_.text managed

.main manageChild

. realizeWidget
. mainLoop
