# adding to a list

xtAppInitialize -class Program

xmScrolledList .list \
    -visibleItemCount 3 \
    -items {a b c d e f g} \
    -itemCount 7 \
    -topItemPosition 3

.list manageChild

.list getValues \
    -topItemPosition p

puts "top: $p"

. realizeWidget

. mainLoop
