From: Adam Dickmeiss <adam@indexdata.dk>
Date: Tue, 17 Oct 1995 14:18:05 +0000 (+0000)
Subject: Minor changes in presentation formats.
X-Git-Tag: IRTCL.1.4~199
X-Git-Url: http://sru.miketaylor.org.uk/?a=commitdiff_plain;h=29933c91f94e4c2b255006f911b9ad44a5409a0b;p=ir-tcl-moved-to-github.git

Minor changes in presentation formats.
---

diff --git a/client.tcl b/client.tcl
index 80bb76a..bb11305 100644
--- a/client.tcl
+++ b/client.tcl
@@ -4,7 +4,10 @@
 # Sebastian Hammer, Adam Dickmeiss
 #
 # $Log: client.tcl,v $
-# Revision 1.74  1995-10-17 12:18:57  adam
+# Revision 1.75  1995-10-17 14:18:05  adam
+# Minor changes in presentation formats.
+#
+# Revision 1.74  1995/10/17  12:18:57  adam
 # Bug fix: when target connection closed, the connection was not
 # properly reestablished.
 #
@@ -3171,7 +3174,7 @@ if {! $monoFlag} {
 }
 .data.record tag configure marc-data -foreground black
 .data.record tag configure marc-head \
-        -font -Adobe-Times-Medium-R-Normal-*-140-* \
+        -font -Adobe-Times-Bold-R-Normal-*-140-* \
         -foreground brown -relief raised -borderwidth 1
 .data.record tag configure marc-small-head -foreground brown
 .data.record tag configure marc-pref \
diff --git a/formats/line.tcl b/formats/line.tcl
index faf09c0..3568878 100644
--- a/formats/line.tcl
+++ b/formats/line.tcl
@@ -4,7 +4,10 @@
 # Sebastian Hammer, Adam Dickmeiss
 #
 # $Log: line.tcl,v $
-# Revision 1.8  1995-10-17 10:58:08  adam
+# Revision 1.9  1995-10-17 14:18:09  adam
+# Minor changes in presentation formats.
+#
+# Revision 1.8  1995/10/17  10:58:08  adam
 # More work on presentation formats.
 #
 # Revision 1.7  1995/09/20  11:37:06  adam
@@ -45,7 +48,7 @@ proc display-grs-line {w r i} {
             insertWithTags $w "\n" {}
             display-grs-line $w [lindex $e 4] [expr $i+1]
         } else {
-            insertWithTags [lindex $e 4] {}
+            insertWithTags $w [lindex $e 4] {}
             insertWithTags $w " ?\n" {}
         }
     }
diff --git a/formats/medium.tcl b/formats/medium.tcl
index 189d509..6904a26 100644
--- a/formats/medium.tcl
+++ b/formats/medium.tcl
@@ -4,7 +4,10 @@
 # Sebastian Hammer, Adam Dickmeiss
 #
 # $Log: medium.tcl,v $
-# Revision 1.8  1995-10-17 10:58:09  adam
+# Revision 1.9  1995-10-17 14:18:10  adam
+# Minor changes in presentation formats.
+#
+# Revision 1.8  1995/10/17  10:58:09  adam
 # More work on presentation formats.
 #
 # Revision 1.7  1995/10/16  17:01:03  adam
@@ -36,13 +39,13 @@ proc display-grs-medium {w r i} {
         }
         insertWithTags $w "([lindex $e 0]:[lindex $e 2]) " marc-tag
         if {[lindex $e 3] == "string"} {
-            insertWithTags $w [lindex $e 4] marc-text
-            insertWithTags $w "\n" marc-text
+            insertWithTags $w [lindex $e 4] {}
+            insertWithTags $w "\n"
         } elseif {[lindex $e 3] == "subtree"} {
-            insertWithTags $w "\n" marc-text
+            insertWithTags $w "\n"
             display-grs-medium $w [lindex $e 4] [expr $i+1]
         } else {
-            insertWithTags [lindex $e 4] {}
+            insertWithTags $w [lindex $e 4] {}
             insertWithTags $w " ?\n" {}
         }
     }
diff --git a/formats/raw.tcl b/formats/raw.tcl
index 8aa9162..93387a6 100644
--- a/formats/raw.tcl
+++ b/formats/raw.tcl
@@ -4,7 +4,10 @@
 # Sebastian Hammer, Adam Dickmeiss
 #
 # $Log: raw.tcl,v $
-# Revision 1.8  1995-10-17 10:58:09  adam
+# Revision 1.9  1995-10-17 14:18:10  adam
+# Minor changes in presentation formats.
+#
+# Revision 1.8  1995/10/17  10:58:09  adam
 # More work on presentation formats.
 #
 # Revision 1.7  1995/10/12  14:46:58  adam
@@ -41,7 +44,7 @@ proc display-grs-raw {w r i} {
             insertWithTags $w "\n" {}
             display-grs-raw $w [lindex $e 4] [expr $i+1]
         } else {
-            insertWithTags [lindex $e 4] {}
+            insertWithTags $w [lindex $e 4] {}
             insertWithTags $w " ?\n" {}
         }
     }