- for {set j 0} {$j < $i} {incr j} {
- insertWithTags $w " " {}
- }
- insertWithTags $w "([lindex $e 0]:[lindex $e 2])" marc-tag
- if {[lindex $e 3] == "string"} {
- insertWithTags $w [lindex $e 4] {}
- insertWithTags $w "\n" {}
- } elseif {[lindex $e 3] == "subtree"} {
- insertWithTags $w "\n" {}
- display-grs-line $w [lindex $e 4] [expr $i+1]
- } else {
- insertWithTags $w [lindex $e 4] {}
- insertWithTags $w " ?\n" {}