# testing selectionBox callback info
xtAppInitialize -class Program

xmSelectionBox .selectionBox managed
.selectionBox okCallback print_selectionBox

proc print_selectionBox {} {
    .selectionBox getValues -textString c
    puts stdout "Selection: $c"
}

. realizeWidget

. mainLoop
