-# $Id: iterate.tcl,v 1.3 1995-06-26 10:26:16 adam Exp $
+# $Id: iterate.tcl,v 1.5 1996-08-21 11:24:01 adam Exp $
#
# Small test script which searches for science ...
+proc fail-back {} {
+ puts "Fail"
+}
+
proc connect-response {} {
z callback {init-response}
ir-set z.1 z
}
ir z
+z failback {fail-back}
z databaseNames dummy
z callback {connect-response}
z connect localhost:9999
-
+vwait forever