1 # $Id: iterate.tcl,v 1.4 1995-08-04 11:32:40 adam Exp $
3 # Small test script which searches for science ...
8 proc connect-response {} {
9 z callback {init-response}
13 proc init-response {} {
17 puts "In init-response"
26 z callback {search-response}
30 proc search-response {} {
31 set hits [z.1 resultCount]
35 z callback {present-response}
43 proc present-response {} {
48 z failback {fail-back}
50 z callback {connect-response}
51 z connect localhost:210