#!/usr/bin/env tclsh
package require Tk
set cursors {
    X_cursor arrow based_arrow_down based_arrow_up boat bogosity
    bottom_left_corner bottom_right_corner bottom_side bottom_tee
    box_spiral center_ptr circle clock coffee_mug cross cross_reverse
    crosshair diamond_cross dot dotbox double_arrow draft_large draft_small
    draped_box exchange fleur gobbler gumby hand1 hand2 heart icon iron_cross
    left_ptr left_side left_tee leftbutton ll_angle lr_angle man middlebutton
    mouse pencil pirate plus question_arrow right_ptr right_side right_tee
    rightbutton rtl_logo sailboat sb_down_arrow sb_h_double_arrow sb_left_arrow
    sb_right_arrow sb_up_arrow sb_v_double_arrow shuttle sizing spider
    spraycan star target tcross top_left_arrow top_left_corner top_right_corner
    top_side top_tee trek ul_angle umbrella ur_angle watch xterm
}
set ncols 4
for {set i 0} {$i<$ncols} {incr i} {
    lappend cols col$i
}
set nmax [expr {int([llength $cursors]*1./$ncols)}]
foreach col $cols {
    set $col [lrange $cursors 0 $nmax]
    set cursors [lrange $cursors [expr $nmax+1] end]
}
#-- The rest is straightforward - let [grid] figure out the geometry...
label .top -text "Move the cursor over a name to see how it looks" \
    -relief ridge
grid .top -columnspan $ncols -sticky news -ipady 2
for {set i 0} {$i<[llength $col0]} {incr i} {
    set row {}
    foreach col $cols {
        set name [lindex [set $col] $i]
        if {$name eq ""} break
        lappend row .l$name
        label .l$name -text $name -anchor w
        bind .l$name <Enter> [list %W config -cursor $name]
    }
    eval grid $row -sticky we
}