gistfile1.io

Query := Object clone do(
	delegate ::= nil
	
	execute := method(
		if(delegate,
			delegate executeQuery(self)
		,
			"Query execute" println
		)
	)
)

TimeoutDelegate := Object clone do(
	executeQuery := method(query,
		timeout(//Doesn't actually exist in Io.  Would need to implement using yielding coros.
			query execute
		)
	)
)

Query clone setDelegate(TimeoutDelegate clone) execute