STRE	 	Prototype
	SGLB	Misc/Class Reference
		CLAS	354227
	ESBR
	SORD	2
		LITO	1	/o,1,10;Delay (1-10)
	ESBR
	SGLB	Output/#1
		LCON	 	/*+;Output
	ESBR
ESTR
STRE
	SGLB	Misc/Superclass Reference
		CLAS	354008
	ESBR
	SGLB	Utility/Input	/3
		CMNT	 	Expects:  É ¥ inst/data/É
		LITO	1	É ¥ 1/inst/data/É
		LITO	2	É ¥ 2/1/inst/data/É
		PRIM	S_tree/Read	É ¥ count/inst/data/É
		PRIM	Stack/Rotate down	É ¥ data/count/inst/É
		LIST	 	É ¥ list/data/count/inst/É
			GSYM	Utility/Event
		ELST
		PRIM	Heap/Name of self	É ¥ self/list/data/count/inst/É
		PRIM	List/Splice	É ¥ list'/data/count/inst/É
		PRIM	Tags/Set delegate	É ¥ list''/data/count/inst/É
		PRIM	List/Item to list	É ¥ MSGE/data/count/inst/É
		PRIM	List/Add	É ¥ event/count/inst/É
		PRIM	Stack/Swap	É ¥ count/event/inst/É
		LCAL	loop	É ¥ inst/É
		PRIM	Heap/Store self
	ESBR
	SGLB	Utility/Event	for internal class use only!
		CMNT	 	Expects:  É ¥ inst/data/É
		PRIM	Stack/Swap	É ¥ data/inst/É
		GSYM	Output/#1	É ¥ #1/data/inst/É
		PRIM	Misc/Send entry	É ¥ inst/É
		PRIM	Heap/Store self
	ESBR
ESTR
LDEF	loop
	CMNT	 	Generates and posts the delayed event
	CMNT	 	Input:  É ¥ count/event/É
	CMNT	 	Output:  É ¥ É
	PRIM	Ordinal/Decrement	É ¥ count-1/event/É
	PRIM	Stack/Duplicate	É ¥ count/count/event/É
	BRFL	 	branch if done
		PRIM	Misc/Name of node	É ¥ node/count/event/É
		PRIM	Stack/Rotate up	É ¥ count/event/node/É
		PRIM	Stack/Drop	É ¥ event/node/É
		PRIM	Misc/Post event
	BRTR
	LIST	 	É ¥ list/count/event/É
		PRIM	Misc/Post event
	ELST
	PRIM	Stack/Rotate down	É ¥ event/list/count/É
	PRIM	List/Splice	É ¥ event'/count/É
	PRIM	Misc/Name of node	É ¥ node/event'/count/É
	PRIM	List/Splice	É ¥ event''/count/É
	PRIM	Stack/Swap	É ¥ count/event''/É
	LCAL	loop
EDEF