projects
/
ir-tcl-moved-to-github.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Updated for new location of YAZ headers.
[ir-tcl-moved-to-github.git]
/
client.tcl
diff --git
a/client.tcl
b/client.tcl
index
9112e98
..
5346e93
100644
(file)
--- a/
client.tcl
+++ b/
client.tcl
@@
-4,7
+4,13
@@
# Sebastian Hammer, Adam Dickmeiss
#
# $Log: client.tcl,v $
# Sebastian Hammer, Adam Dickmeiss
#
# $Log: client.tcl,v $
-# Revision 1.106 1998-06-10 13:22:47 adam
+# Revision 1.108 1999-11-30 14:05:58 adam
+# Updated for new location of YAZ headers.
+#
+# Revision 1.107 1999/02/11 11:30:08 adam
+# Updated for WIN32.
+#
+# Revision 1.106 1998/06/10 13:22:47 adam
# Minor changes.
#
# Revision 1.105 1998/06/10 13:00:45 adam
# Minor changes.
#
# Revision 1.105 1998/06/10 13:00:45 adam
@@
-817,8
+823,8
@@
if {[catch {set g $windowGeometry(.)}]} {
# to a default value or to the value in windowGeometry(.)
toplevelG .init
place-force .init .
# to a default value or to the value in windowGeometry(.)
toplevelG .init
place-force .init .
-message .init.top -text "IrTcl" -relief raised -border 1 -font $font(bb,normal)
-text .init.msg -width 30 -height 4
+message .init.top -aspect 500 -text "IrTcl" -relief raised -border 1 -font $font(bb,normal)
+text .init.msg -width 40 -height 4
pack .init.top -side top -fill x -expand yes
pack .init.msg -side bottom -fill both -expand yes
wm iconify .
pack .init.top -side top -fill x -expand yes
pack .init.msg -side bottom -fill both -expand yes
wm iconify .
@@
-4168,7
+4174,11
@@
if {[catch {ir-version}]} {
.init.msg insert end "IrTcl version [lindex [ir-version] 0]\n"
.init.msg insert end "YAZ version [lindex [ir-version] 1]\n"
.init.msg insert end "IrTcl version [lindex [ir-version] 0]\n"
.init.msg insert end "YAZ version [lindex [ir-version] 1]\n"
-ir-log-init all irtcl.log
+if $debugMode {
+ ir-log-init all {} irtcl.log
+} else {
+ ir-log-init none {} {}
+}
# Create Z Assocation
ir z39
# Create Z Assocation
ir z39