# adding to a list

xtAppInitialize -class Program

xmList .list -visibleItemCount 3

.list addItem fred 1
.list getValues -items items
puts stdout "items: $items"

.list addItem bill 1
.list getValues -items items
puts stdout "items: $items"

.list addItem paul 0
.list getValues -items items
puts stdout "items: $items"

.list manageChild

. realizeWidget

. mainLoop
