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
Bug fixes.
[ir-tcl-moved-to-github.git]
/
client.tcl
diff --git
a/client.tcl
b/client.tcl
index
2ab73be
..
45007fc
100644
(file)
--- a/
client.tcl
+++ b/
client.tcl
@@
-4,7
+4,10
@@
# Sebastian Hammer, Adam Dickmeiss
#
# $Log: client.tcl,v $
# Sebastian Hammer, Adam Dickmeiss
#
# $Log: client.tcl,v $
-# Revision 1.68 1995-09-21 13:11:49 adam
+# Revision 1.69 1995-09-21 13:42:54 adam
+# Bug fixes.
+#
+# Revision 1.68 1995/09/21 13:11:49 adam
# Support of dynamic loading.
# Test script uses load command if necessary.
#
# Support of dynamic loading.
# Test script uses load command if necessary.
#
@@
-3119,8
+3122,11
@@
pack .bot.a.status .bot.a.set .bot.a.message \
if {[catch {ir z39}]} {
set e [info sharedlibextension]
if {[catch {ir z39}]} {
set e [info sharedlibextension]
- puts -nonewline "Loading irtcl..."
- load irtcl$e
+ if {$e == {}} {
+ set e .dll
+ }
+ puts -nonewline "Loading irtcl$e ..."
+ load irtcl$e irtcl
ir z39
puts "ok"
}
ir z39
puts "ok"
}