projects
/
ir-tcl-moved-to-github.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
510fc2e
)
Minor changes.
author
Adam Dickmeiss
<adam@indexdata.dk>
Wed, 10 Jun 1998 13:22:47 +0000
(13:22 +0000)
committer
Adam Dickmeiss
<adam@indexdata.dk>
Wed, 10 Jun 1998 13:22:47 +0000
(13:22 +0000)
client.tcl
patch
|
blob
|
history
diff --git
a/client.tcl
b/client.tcl
index
7e2ef83
..
9112e98
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.105 1998-06-10 13:00:45 adam
+# Revision 1.106 1998-06-10 13:22:47 adam
+# Minor changes.
+#
+# Revision 1.105 1998/06/10 13:00:45 adam
# Added ir-version command.
#
# Revision 1.104 1998/02/12 13:32:41 adam
# Added ir-version command.
#
# Revision 1.104 1998/02/12 13:32:41 adam
@@
-4157,9
+4160,9
@@
set logLevel all
if {[catch {ir-version}]} {
set e [info sharedlibextension]
.init.msg insert end "Loading irtcl$e.\n"
if {[catch {ir-version}]} {
set e [info sharedlibextension]
.init.msg insert end "Loading irtcl$e.\n"
- load ${libdir}/irtcl$e irtcl
+ catch {load ${libdir}/irtcl$e irtcl}
if {[catch {ir-version}]} {
if {[catch {ir-version}]} {
- load irtcl$e irtcl
+ catch {load irtcl$e irtcl}
}
}
}
}