+ toplevel $w
+
+ wm title $w "About IrTcl"
+ place-force $w .
+ top-down-window $w
+
+ set i [z39 implementationName]
+ label $w.top.in -text "Implementation name: $i"
+ set i [z39 implementationId]
+ label $w.top.ii -text "Implementation id: $i"
+
+ pack $w.top.in $w.top.ii -side top -anchor nw
+
+ bottom-buttons $w [list {Close} [list destroy $w]] 1
+}
+
+proc display-raw {sno no w} {
+ $w delete 0.0 end
+ set r [z39.$sno getMarc $no list * * *]
+ foreach line $r {
+ set tag [lindex $line 0]
+ set indicator [lindex $line 1]
+ set fields [lindex $line 2]
+
+ if {$indicator != ""} {
+ insertWithTags $w "$tag $indicator" marc-tag
+ } else {
+ insertWithTags $w "$tag " marc-tag
+ }
+ foreach field $fields {
+ set id [lindex $field 0]
+ set data [lindex $field 1]
+ if {$id != ""} {
+ insertWithTags $w " $id " marc-id
+ }
+ set start [$w index insert]
+ insertWithTags $w $data {}
+ }
+ $w insert end "\n"
+ }
+}
+
+proc display-nice {sno no w} {
+ $w delete 0.0 end
+ set i [z39.$sno getMarc $no field 245 * a]
+ if {$i != ""} {
+ set i [lindex $i 0]
+ insertWithTags $w "Title: " marc-tag
+ insertWithTags $w $i marc-data
+ set i [z39.$sno getMarc $no field 245 * b]
+ if {$i != ""} {
+ insertWithTags $w [lindex $i 0] marc-data
+ }
+ $w insert end "\n"
+ }
+ set i [z39.$sno getMarc $no field 700 * a]
+ if {$i == ""} {
+ set i [z39.$sno getMarc $no field 100 * a]
+ }
+ if {$i != ""} {
+ if {[llength $i] > 1} {
+ insertWithTags $w "Authors: " marc-tag
+ } else {
+ insertWithTags $w "Author: " marc-tag
+ }
+ foreach x $i {
+ insertWithTags $w $x marc-data
+ }
+ $w insert end "\n"
+ }
+ set i [z39.$sno getMarc $no field 110 * *]
+ if {$i != ""} {
+ insertWithTags $w "Co-Author: " marc-tag
+ foreach x $i {
+ insertWithTags $w $x marc-data
+ }
+ $w insert end "\n"
+ }
+
+ set i [z39.$sno getMarc $no field 650 * *]
+ if {$i != ""} {
+ set n 0
+ insertWithTags $w "Keywords: " marc-tag
+ foreach x $i {
+ if {$n > 0} {
+ $w insert end ", "
+ }
+ insertWithTags $w $x marc-data
+ incr n
+ }
+ $w insert end "\n"
+ }
+ set i [concat [z39.$sno getMarc $no field 260 * a] \
+ [z39.$sno getMarc $no field 260 * b]]
+ if {$i != ""} {
+ insertWithTags $w "Publisher: " marc-tag
+ foreach x $i {
+ insertWithTags $w $x marc-data
+ }
+ $w insert end "\n"
+ }
+ set i [z39.$sno getMarc $no field 020 * a]
+ if {$i != ""} {
+ insertWithTags $w "ISBN: " marc-tag
+ foreach x $i {
+ insertWithTags $w $x marc-data
+ }
+ $w insert end "\n"
+ }
+ set i [z39.$sno getMarc $no field 022 * a]
+ if {$i != ""} {
+ insertWithTags $w "ISSN: " marc-tag
+ foreach x $i {
+ insertWithTags $w $x marc-data
+ }
+ $w insert end "\n"
+ }
+ set i [z39.$sno getMarc $no field 030 * a]
+ if {$i != ""} {
+ insertWithTags $w "CODEN: " marc-tag
+ foreach x $i {
+ insertWithTags $w $x marc-data
+ }
+ $w insert end "\n"
+ }
+ set i [z39.$sno getMarc $no field 015 * a]
+ if {$i != ""} {
+ insertWithTags $w "Ctl number: " marc-tag
+ foreach x $i {
+ insertWithTags $w $x marc-data
+ }
+ $w insert end "\n"
+ }
+ set i [z39.$sno getMarc $no field 010 * a]
+ if {$i != ""} {
+ insertWithTags $w "LC number: " marc-tag
+ foreach x $i {
+ insertWithTags $w $x marc-data
+ }
+ $w insert end "\n"
+ }
+}
+
+proc show-full-marc {sno no b} {
+ global fullMarcSeq
+ global displayFormat
+
+ if {[z39.$sno type $no] != "DB"} {
+ return
+ }
+ if {$b} {
+ set w .full-marc-$fullMarcSeq
+ incr fullMarcSeq
+ } else {
+ set w .full-marc
+ }