# list multiple selection test
xtAppInitialize -class Program

xmList .list managed -items "red, green, blue" -itemCount 3
.list setValues -selectionPolicy multiple_select
.list multipleSelectionCallback {puts stdout "selected: %selected_items"}

. realizeWidget

. mainLoop
