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 (parent:
c901722
)
Minor changes really.
author
Adam Dickmeiss
<adam@indexdata.dk>
Fri, 2 Jun 1995 14:52:13 +0000
(14:52 +0000)
committer
Adam Dickmeiss
<adam@indexdata.dk>
Fri, 2 Jun 1995 14:52:13 +0000
(14:52 +0000)
client.tcl
patch
|
blob
|
history
diff --git
a/client.tcl
b/client.tcl
index
aa95b0a
..
ff68219
100644
(file)
--- a/
client.tcl
+++ b/
client.tcl
@@
-1,6
+1,9
@@
#
# $Log: client.tcl,v $
#
# $Log: client.tcl,v $
-# Revision 1.27 1995-06-02 14:29:42 adam
+# Revision 1.28 1995-06-02 14:52:13 adam
+# Minor changes really.
+#
+# Revision 1.27 1995/06/02 14:29:42 adam
# Work on scan interface - up/down buttons.
#
# Revision 1.26 1995/06/01 16:36:46 adam
# Work on scan interface - up/down buttons.
#
# Revision 1.26 1995/06/01 16:36:46 adam
@@
-452,6
+455,7
@@
proc open-target {target base} {
z39 failback [list fail-response $target]
z39 callback [list connect-response $target]
z39 connect [lindex $profile($target) 1]:[lindex $profile($target) 2]
z39 failback [list fail-response $target]
z39 callback [list connect-response $target]
z39 connect [lindex $profile($target) 1]:[lindex $profile($target) 2]
+ z39 options search present scan namedResultSets triggerResourceCtrl
show-status {Connecting} 1 {}
set hostid $target
.top.target.m disable 0
show-status {Connecting} 1 {}
set hostid $target
.top.target.m disable 0
@@
-1797,6
+1801,8
@@
bind .data.list <Double-Button-1> {set indx [.data.list nearest %y]
show-full-marc [incr indx] 0}
ir z39
show-full-marc [incr indx] 0}
ir z39
+z39 options search present scan namedResultSets triggerResourceCtrl
+puts [z39 options]
show-logo 1
show-logo 1