+ if {[tk4]} {
+ set start [$w index insert]
+ } else {
+ for {set j 0} {$j < $i} {incr j} {
+ insertWithTags $w " " marc-tag
+ }
+ }
+ set ttype [lindex $e 0]
+ set tval [lindex $e 2]
+ if {$ttype == 3} {
+ insertWithTags $w "$tval " marc-pref
+ } elseif {[info exists tagSet($ttype,$tval)]} {
+ insertWithTags $w "$tagSet($ttype,$tval) " marc-pref
+ } else {
+ insertWithTags $w "($ttype,$tval) " marc-tag