# list element selection test
xtAppInitialize -class Program

xmList .list managed -items "red green blue" -itemCount 3
.list setValues -selectionPolicy single_select
.list singleSelectionCallback {puts stdout "selected: %item at position: %item_position"}

. realizeWidget

. mainLoop
