#!/usr/bin/wishx

set i 0
foreach ln [split [read_file /usr/X11R6/include/X11/cursorfont.h] "\n"] {
#puts ln:$ln
    if {![regexp {^.*XC_([^ ]*) [0-9]*$} $ln junk c]} continue
puts c:$c
    if {[catch {label .$c -text $c -cursor $c -font {Helvetica 18}}]} continue
    grid .$c -row [expr $i / 4] -column [expr $i % 4] -sticky sw
    incr i
}
