From 5e8d798d211867459f5352a8c0f57d473246ca77 Mon Sep 17 00:00:00 2001 From: Adam Dickmeiss Date: Thu, 24 Aug 1995 15:39:09 +0000 Subject: [PATCH] Minor changes. --- client.tcl | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/client.tcl b/client.tcl index bac1b70..baad580 100644 --- a/client.tcl +++ b/client.tcl @@ -4,7 +4,10 @@ # Sebastian Hammer, Adam Dickmeiss # # $Log: client.tcl,v $ -# Revision 1.64 1995-08-24 15:33:02 adam +# Revision 1.65 1995-08-24 15:39:09 adam +# Minor changes. +# +# Revision 1.64 1995/08/24 15:33:02 adam # Minor changes. # # Revision 1.63 1995/08/04 13:20:48 adam @@ -348,7 +351,6 @@ proc set-wrap {m} { } proc dputs {m} { - puts $m } proc set-display-format {f} { @@ -3083,7 +3085,7 @@ if {[tk4]} { } frame .bot.a pack .bot.a -side left -fill x -pack .bot.logo -side right -padx 2 -pady 2 +pack .bot.logo -side right -padx 2 -pady 2 -ipadx 1 message .bot.a.target -text "" -aspect 1000 -border 1 @@ -3099,6 +3101,6 @@ pack .bot.a.status .bot.a.set .bot.a.message \ -side left -padx 2 -pady 2 -ipadx 1 -ipady 1 ir z39 -z39 logLevel all +#z39 logLevel all show-logo 1 -- 1.7.10.4