return $abbrev
}
-proc show-report {islandname code} {
+proc show-report-decode {code} {
global vc_code2full
- .report.island configure -text $islandname
- glset report_code $code
- glset report_abbrev [code2abbrev $code]
-
manyset [split $code _] inport classcode subclass lockown xabbrev
manyset [split $lockown ""] lock notown
lappend codel "$lock$notown" $xabbrev
lappend newnotes [list $vid $realname $owner $xabbrev]
set kk "$island [join $codel _]"
- upvar #0 count($kk) k
- if {![info exists k]} { set k 0 }
- incr k
-
+ upvar #0 found($kk) k
+ lappend k [list $vid $realname]
+
debug "CODED $kk $vid $realname"
}
set clipboard {}
proc parse-clipboard {} {
- global clipboard count notes notes_used newnotes
+ global clipboard found notes notes_used newnotes
- catch { unset count }
+ catch { unset found }
catch { unset notes_used }
glset note_infos {}
glset note_missings {}
}
proc draw {} {
- global chart count isleloc canvas
+ global chart found isleloc canvas
$canvas delete all
}
set lastislandname {}
- foreach key [lsort [array names count]] {
- set c $count($key)
+ foreach key [lsort [array names found]] {
+ set c [llength $found($key)]
# debug "SHOWING $key $c"
regexp {^(.*) (\S+)$} $key dummy islandname code
proc report-set {sw val} { .report.details.$sw configure -text $val }
+proc show-report {islandname code} {
+ .report.island configure -text $islandname
+ glset report_code $code
+ glset report_abbrev [code2abbrev $code]
+
+ show-report-decode $code
+
+ set kk "$islandname $code"
+ upvar #0 found($kk) k
+
+ .report.list delete 0 end
+
+ foreach entry $k {
+ manyset $entry vid name
+ .report.list insert end $name
+ }
+}
+
proc zoom {extail} {
global scale canvas
set nscale [expr "\$scale $extail"]