From: Adam Dickmeiss <adam@indexdata.dk>
Date: Thu, 16 Mar 1995 17:54:03 +0000 (+0000)
Subject: Minor changes really.
X-Git-Tag: IRTCL.1.4~334
X-Git-Url: http://lists.indexdata.dk/?a=commitdiff_plain;h=e610d7034571c4ae0b937360f1ac2f544994308b;p=ir-tcl-moved-to-github.git

Minor changes really.
---

diff --git a/client.tcl b/client.tcl
index 8f8a58b..b600918 100644
--- a/client.tcl
+++ b/client.tcl
@@ -1,6 +1,9 @@
 #
 # $Log: client.tcl,v $
-# Revision 1.6  1995-03-15 19:10:20  adam
+# Revision 1.7  1995-03-16 17:54:03  adam
+# Minor changes really.
+#
+# Revision 1.6  1995/03/15  19:10:20  adam
 # Database setup in protocol-setup (rather target setup).
 #
 # Revision 1.5  1995/03/15  13:59:23  adam
@@ -24,7 +27,7 @@ set hotTargets {}
 set hotInfo {}
 set busy 0
 
-set profile(Default) {{} {} 16384 8192 tcpip {books names} }
+set profile(Default) {{} {} 16384 8192 tcpip {books names demo} }
 set hostname Default
 
 wm minsize . 360 200
@@ -123,8 +126,8 @@ proc show-full-marc {no} {
         pack  $w.bot -fill both
 
         text $w.top.record -width 60 -height 10 \
-                -yscrollcommand "$w.top.s set"
-        scrollbar $w.top.s -command "$w.top.record yview"
+                -yscrollcommand [list $w.top.s set]
+        scrollbar $w.top.s -command [list $w.top.record yview]
 
         set new 1
     }
diff --git a/ir-tcl.c b/ir-tcl.c
index b7cd50f..efe1fcb 100644
--- a/ir-tcl.c
+++ b/ir-tcl.c
@@ -3,7 +3,10 @@
  * (c) Index Data 1995
  *
  * $Log: ir-tcl.c,v $
- * Revision 1.10  1995-03-15 16:14:50  adam
+ * Revision 1.11  1995-03-16 17:54:03  adam
+ * Minor changes really.
+ *
+ * Revision 1.10  1995/03/15  16:14:50  adam
  * Blocking arg in cs_create changed.
  *
  * Revision 1.9  1995/03/15  13:59:24  adam
@@ -631,7 +634,7 @@ static int ir_obj_method (ClientData clientData, Tcl_Interp *interp,
     { 0, "protocolVersion",         do_protocolVersion },
     { 0, "options",                 do_options },
     { 1, "preferredMessageSize",    do_preferredMessageSize },
-    { 1, "maximumRecordSize",      do_maximumRecordSize },
+    { 1, "maximumRecordSize",       do_maximumRecordSize },
     { 1, "implementationName",      do_implementationName },
     { 1, "implementationId",        do_implementationId },
     { 1, "idAuthentication",        do_idAuthentication },
@@ -1345,6 +1348,8 @@ void ir_select_proc (ClientData clientData)
             ir_select_remove (cs_fileno (p->cs_link), p);
             return;
         }        
+        if (r == 1)
+            return ;
         odr_setbuf (p->odr_in, p->buf_in, r);
         printf ("cs_get ok, got %d\n", r);
         if (!z_APDU (p->odr_in, &apdu, 0))