From 650dd2921d7c5c13da95918099815c5e0d41480e Mon Sep 17 00:00:00 2001
From: Adam Dickmeiss <adam@indexdata.dk>
Date: Fri, 16 Jun 1995 14:55:18 +0000
Subject: [PATCH] Book logo mirrored.

---
 client.tcl   |   21 ++++++++++++---------
 clientrc.tcl |    4 ++--
 2 files changed, 14 insertions(+), 11 deletions(-)

diff --git a/client.tcl b/client.tcl
index 42c94c8..5f7fb28 100644
--- a/client.tcl
+++ b/client.tcl
@@ -4,7 +4,10 @@
 # Sebastian Hammer, Adam Dickmeiss
 #
 # $Log: client.tcl,v $
-# Revision 1.43  1995-06-16 14:41:05  adam
+# Revision 1.44  1995-06-16 14:55:18  adam
+# Book logo mirrored.
+#
+# Revision 1.43  1995/06/16  14:41:05  adam
 # Scan line entries can be copied to a search entry.
 #
 # Revision 1.42  1995/06/16  12:28:13  adam
@@ -340,12 +343,12 @@ proc show-target {target} {
 proc show-logo {v1} {
     global busy
     if {$busy != 0} {
-        incr v1 -1
-        if {$v1==0} {
-            set v1 9
+        incr v1
+        if {$v1==10} {
+            set v1 1
         }
         .bot.logo configure -bitmap @book${v1}
-        after 140 [list show-logo $v1]
+        after 120 [list show-logo $v1]
         return
     }
     while {1} {
@@ -484,12 +487,12 @@ proc about-origin-logo {n} {
     if {![winfo exists $w]} {
         return
     }
-    incr n -1
-    if {$n==0} {
-        set n 9
+    incr n
+    if {$n==10} {
+        set n 1
     }
     $w.top.a.logo configure -bitmap @book$n
-    after 140 [list about-origin-logo $n]
+    after 120 [list about-origin-logo $n]
 }
 
 proc about-origin {} {
diff --git a/clientrc.tcl b/clientrc.tcl
index 290b640..752ea37 100644
--- a/clientrc.tcl
+++ b/clientrc.tcl
@@ -12,10 +12,10 @@ set {profile(LOC)} {{Library of Congress} IBM2.LOC.gov 210 {} 16384 16384 tcpip
 set {profile(IREG)} {{Internet Resource} frost.notis.com 210 {} 16384 8192 tcpip {IREG ERIC} 1 {} {} z39v2 7}
 set {profile(DANBIB)} {{SR Target DANBIB} 0103/find2.denet.dk 4500 {} 8192 8192 mosi danbib 1 {} 1 z39v2 8}
 set {profile(OCLC)} {{OCLC First search engine} z3950.oclc.org 210 {} 16384 8192 tcpip {ArticleFirst BiographyIndex BusinessPeriodicalsIndex} 1 {} {} z39v2 9}
-set {profile(CARL)} {{CARL systems} Z39.50.carl.org 210 {} 16384 8192 tcpip {ACC AIC AUR BEM CUB DPL DNU EPL FRC LAW LCC MCC MIN MPL NJC NWC OCC PPC PUE RDR RGU SPL TCC TKU UNC WYO} 1 {} {} z39v2 11}
 set {profile(Aleph)} {{Aleph at ram10.aleph.co.il:5555} localhost 9998 {} 16384 4096 tcpip {dem mar} 1 0 1 z39v2 10}
-set {profile(CLSI)} {CLSI inet-gw.clsi.uc.geac.com 210 {} 16384 8192 tcpip Cl 1 {} {} z39v2 13}
+set {profile(CARL)} {{CARL systems} Z39.50.carl.org 210 {} 16384 8192 tcpip {ACC AIC AUR BEM CUB DPL DNU EPL FRC LAW LCC MCC MIN MPL NJC NWC OCC PPC PUE RDR RGU SPL TCC TKU UNC WYO} 1 {} {} z39v2 11}
 set {profile(Innovative)} {{Innovatives server: demo.iii.com} demo.iii.com 210 {} 16384 8192 tcpip DEFAULT 1 {} {} z39v2 12}
+set {profile(CLSI)} {CLSI inet-gw.clsi.uc.geac.com 210 {} 16384 8192 tcpip Cl 1 {} {} z39v2 13}
 set {profile(AULS)} {{Acadia university} auls.acadiau.ca 210 {} 16384 8192 tcpip AULS 1 {} {} z39v2 14}
 set {profile(dranet)} {dranet dranet.dra.com 210 {} 16384 16384 tcpip drewdb 1 {} {} z39v2 15}
 set queryTypes {Simple aaaaaaa phrase}
-- 
1.7.10.4