1 # $Id: iterate.tcl,v 1.2 1995-05-26 11:44:10 adam Exp $
3 # Small test script which searches for science ...
4 proc init-response {} {
8 puts "In init-response"
17 z callback {search-response}
21 proc search-response {} {
22 set hits [z.1 resultCount]
26 z callback {present-response}
30 proc present-response {} {
36 z connect localhost:9999
37 z callback {init-response}