# 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
