
# testing access to the SelectionBox components
xtAppInitialize -class Program

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

proc popup {} {
  xmSelectionDialog .d managed \
	-listItems "a, b, c" -listItemCount 3 \
	-listLabelString "Pick one of these"
  .d.Apply unmanageChild
  .d.Help unmanageChild
# this doesnt work - no problem - we aren't told the widget type
# or whether we are allowed to do this
#  .d.Items setValues -labelString "Choose one of these, buster!"

  .d setValues -listLabelString "Choose one of these, buster!"
}

. realizeWidget

. mainLoop
