+ show-report-abbrev1
+}
+
+proc show-report-abbrev1 {} {
+ global report_list_codes
+ .cp.report.abbrev1 delete all
+ set ix [.cp.report.list curselection]
+ debug "SHOW-REPORT-ABBREV1 $ix $report_list_codes"
+ if {[llength $ix] != 1} return
+ set code [lindex $report_list_codes $ix]
+ if {![string length $code]} return
+ if {![have-notes]} {
+ manyset [split $code _] inport size subclass lockown xabbrev
+ regsub {.$} $lockown 3 lockown
+ set code [join [list $inport $size $subclass $lockown $xabbrev] _]
+ }
+ code2canvas1 $code .cp.report.abbrev1