1 # $Id: iterate.tcl,v 1.3 1995-06-26 10:26:16 adam Exp $
3 # Small test script which searches for science ...
4 proc connect-response {} {
5 z callback {init-response}
9 proc init-response {} {
13 puts "In init-response"
22 z callback {search-response}
26 proc search-response {} {
27 set hits [z.1 resultCount]
31 z callback {present-response}
39 proc present-response {} {
45 z callback {connect-response}
46 z connect localhost:9999