
# testing access to the SelectionBox components
xtAppInitialize -class Program

xmPushButton .b managed -labelString "Push me"
.b activateCallback popup

proc popup {} {
  set x [list "a\nb"]
  xmErrorDialog .d managed \
	-messageString $x
}

. realizeWidget

. mainLoop
