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
New settings: smallSetElementSetNames and mediumSetElementSetNames.
[ir-tcl-moved-to-github.git]
/
client.tcl
diff --git
a/client.tcl
b/client.tcl
index
05c3d9d
..
31685b7
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.77 1995-10-18 15:37:46 adam
+# Revision 1.79 1995-10-18 16:42:37 adam
+# New settings: smallSetElementSetNames and mediumSetElementSetNames.
+#
+# Revision 1.78 1995/10/18 15:45:36 quinn
+# *** empty log message ***
+#
+# Revision 1.77 1995/10/18 15:37:46 adam
# Piggy-back present.
#
# Revision 1.76 1995/10/18 15:15:20 adam
# Piggy-back present.
#
# Revision 1.76 1995/10/18 15:15:20 adam
@@
-1161,8
+1167,12
@@
proc search-request {bflag} {
}
if {$elementSetNames == "None" } {
z39.$setNo elementSetNames {}
}
if {$elementSetNames == "None" } {
z39.$setNo elementSetNames {}
+ z39.$setNo smallSetElementSetNames {}
+ z39.$setNo mediumSetElementSetNames {}
} else {
z39.$setNo elementSetNames $elementSetNames
} else {
z39.$setNo elementSetNames $elementSetNames
+ z39.$setNo smallSetElementSetNames $elementSetNames
+ z39.$setNo mediumSetElementSetNames $elementSetNames
}
z39 callback {search-response}
z39.$setNo search $query
}
z39 callback {search-response}
z39.$setNo search $query
@@
-1553,12
+1563,14
@@
proc add-title-lines {setno no offset} {
global setNo
global busy
global setNo
global busy
+ dputs "add-title-lines offset=${offset} no=${no}"
if {$setno != -1} {
set setNo $setno
} else {
set setno $setNo
}
if {$offset == 1} {
if {$setno != -1} {
set setNo $setno
} else {
set setno $setNo
}
if {$offset == 1} {
+
.bot.a.set configure -text $setno
.data.record delete 0.0 end
}
.bot.a.set configure -text $setno
.data.record delete 0.0 end
}
@@
-1569,6
+1581,7
@@
proc add-title-lines {setno no offset} {
set o [expr $i + $offset]
set type [z39.$setno type $o]
if {$type == ""} {
set o [expr $i + $offset]
set type [z39.$setno type $o]
if {$type == ""} {
+ dputs "no more at $o"
break
}
.data.record tag bind r$o <Any-Enter> {}
break
}
.data.record tag bind r$o <Any-Enter> {}
@@
-3232,4
+3245,3
@@
z39 smallSetUpperBound 2
z39 mediumSetPresentNumber 2
z39 logLevel all
show-logo 1
z39 mediumSetPresentNumber 2
z39 logLevel all
show-logo 1
-