if 0 {[Richard Suchenwirth] 2004-12-12 - To finish this Sunday evening,
here's a tool that displays [Tk]'s built-in cursor names on labels, and
changes the cursor shape when you move it over one of them. 

[http://mini.net/files/cursors.jpg]

I have to admit
the shapes look a bit 1980-ish, but some of these may still be useful in the
21st century... :^}
 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
 }
if 0 {For a neat arrangements in alphabetic columns, the long list is
split into several column lists:}
 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
 }

if 0 {

[LES] Very handy! Can one create their own cursors and have Tk use them? How? - [RS]: In principle, yes - see http://www.tcl.tk/man/tcl8.4/TkLib/GetCursor.htm (you don't need C coding, just go to the place where @... patterns are described), but it's not platform-independent - on Unix/Linux you can give an [XBM] file with foreground color; on Windows you can give .ico or .cur files...
----
[Category Example] - [Arts and crafts of Tcl-Tk programming]
}