+ #----- decoding etc. report -----
+
+ frame .report
+ pack .report -side left -anchor n
+
+ label .report.island -text { }
+
+ frame .report.abbrev -background black
+ glset report_abbrev { }
+ entry .report.abbrev.abbrev -state readonly \
+ -textvariable report_abbrev \
+ -borderwidth 0 -relief flat -width 0 \
+ -highlightbackground white \
+ -readonlybackground white -foreground black
+ pack .report.abbrev.abbrev -side left -padx 1 -pady 1
+
+ frame .report.code
+ label .report.code.lab -text Code:
+ glset report_code { }
+ entry .report.code.code -state readonly -textvariable report_code -width 15
+ pack .report.code.lab .report.code.code -side left
+ frame .report.details -bd 2 -relief groove -padx 2 -pady 2
+
+ listbox .report.list -height 5
+
+ pack .report.island .report.abbrev .report.details \
+ .report.list .report.code -side top
+ pack configure .report.details -fill x
+
+ foreach sw {inport class subclass lock own xabbrev} {
+ label .report.details.$sw -text { }
+ pack .report.details.$sw -side top -anchor w
+ }
+}
+
+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
+ }