# unicode.tcl -- 
 #    Inspect the available characters for a part of the UNICODE table
 #

 package require Tktable

 # fillArray --
 #    Fill the array with unicode characters
 #
 # Arguments:
 #    array    Name of the array
 #    norows   Number of rows (number of columns is fixed to 16)
 #
 # Result:
 #    None
 #
 # Side effect:
 #    The array is filled with unicode characters: 0 to 16*norows-1
 #
 proc fillArray {array norows} {
    upvar $array chars

    set nocols  16
    set chars(0,0) "Offset"
    for { set col 1 } { $col <= $nocols } { incr col } {
       set code [format "%x" [expr {$col-1}]]
       set chars(0,$col) $code
    }
    set unicode  0
    for { set row 1 } { $row <= $norows } { incr row } {
       set code [format "%x" $unicode]
       set chars($row,0) $code
       for { set col 1 } { $col <= $nocols } { incr col } {
          set code [format "%x" $unicode]
          set chars($row,$col) [subst \\u$code]
          incr unicode
       }
    }
 }

 # showArray -- 
 #    Show the table
 #
 # Arguments:
 #    w        Widget that will contain the table
 #    array    Name of the array
 #    norows   Number of rows
 #
 # Result:
 #    None
 #
 # Side effect:
 #    The array is shown
 #
 proc showArray {w array norows} {
    if { $w == "." } {
       set t .table
       set x .xscroll
       set y .yscroll
    } else {
       set t $w.table
       set x $w.xscroll
       set y $w.yscroll
    }
    table $t -rows $norows -cols 17 \
       -colwidth 6 \
       -height   10 \
       -titlerows 1 -titlecols 1 -variable ::$array \
       -xscrollcommand "$x set" \
       -yscrollcommand "$y set"
    scrollbar $x -orient horizontal \
       -command "$t xview"
    scrollbar $y -orient vertical \
       -command "$t yview"
    grid $t $y
    grid $x  x

    grid $t   -sticky news
    grid $x   -sticky ew
    grid $y   -sticky ns
 
 }

 # main --
 #   Set up the main screen and fill it
 #

 global unicode_array
 
 fillArray unicode_array 100 
 showArray . unicode_array 100

 set pages {}
 set f {"Baekmuk Dotum" 9}
 for {set i 0} {$i <=255} {incr i} {
  lappend pages [format %02X $i]
 }
 frame .f
 label .f.l -text "Unicode page"
 spinbox .f.s -values $pages -width 2 -command {redo .c %s} -textvar page
 set page 00
 entry .f.e -textvar entry -font $f
 eval pack [winfo childr .f] -side left
 pack .f.e -fill x -expand 1
 canvas .c -width 235 -height 215 -bg white
 eval pack [winfo childr .] -anchor w
 proc redo {w page} {
  $w delete all
  set xd [split 0123456789ABCDEF  ""]
  set y 10
  foreach i $xd {
   if !0x$page$i continue
   set x 10
   $w create text $x $y -text ${i}0
   foreach j $xd {
   incr x 13
    $w create text $x $y -text [subst \\u$page$i$j] -tag char -font $::f
   }
   incr y 13
  }
 }
 proc next incr {
   set p [expr (0x$::page+$incr)%256]
   set ::page [format %02X $p]
 }
 redo .c 00
 bind . <Up> {redo .c [next 1]}
 bind . <Down> {redo .c [next -1]}
 .c bind char <1> {
  append entry [.c itemcget current -text]
  .f.e select range 0 end
  clipboard clear
  clipboard append $entry
 }
 focus .f.e
 bind . <Left> {
  exec wish $argv0 &; exit
 }