1 # $Id: iterate.tcl,v 1.1 1995-03-20 08:53:28 adam Exp $
3 # Small test script which searches for adam ...
4 proc init-response {} {
8 puts "In init-response"
9 z callback {search-response}
13 proc search-response {} {
17 puts "In search-response $count"
18 z callback {search-response}
25 z connect localhost:9999
26 z callback {init-response}