#---------------
# Author:   William J Giddings
# Date:     07/05/09
#---------------
#!/bin/sh
# the next line restarts using tclsh \
exec tclsh "$0" "$@"

#---------------

package require Gnocl

set iv [gnocl::iconView \
    -icons [list wjg.png gnocl.png wjg.png gnocl.png wjg.png gnocl.png] \
    -columnSpacing 20 \
    -margin 5 \
    -spacing 15 \
    -columns 4 \
    -rowSpacing 20 \
    -pixbufColumn 0 \
    -textColumn 1 \
]

gnocl::window -child $iv -title gnocl::iconView -widthRequest 200 -heightRequest 200
gnocl::mainLoop