version	U12.1.00
uid	notifier.u1-1786033038-0
record	util__Notifier__state,3
	0,__s
	1,__m
	2,listeners
record	util__Notifier__methods,33
	0,notify
	1,notifyAll
	2,addListener
	3,removeListener
	4,removeListeners
	5,removeAllListeners
	6,genListeners
	7,genAllListeners
	8,connect
	9,addToListeners
	10,disconnect
	11,notify1
	12,notifyClass
	13,initially
	14,clone
	15,to_string
	16,equals
	17,hash_code
	18,get_class_name
	19,get_id
	20,get_class
	21,is_instance
	22,Type
	23,instanceOf
	24,className
	25,invoke
	26,getField
	27,setField
	28,hasField
	29,fieldNames
	30,genMethods
	31,hasMethod
	32,lang__Object
impl	local
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/object.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/classcoding.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/basicclasscoding.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/method.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/class.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/langprocs.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/object.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/decode.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/encode.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/fcn_util.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/selectiveclasscoding.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/predicat.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/runnable.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/process.u
invocable	0
global	20
	0,000005,util__Notifier_notify,3
	1,000005,util__Notifier_notifyAll,2
	2,000005,util__Notifier_addListener,4
	3,000005,util__Notifier_removeListener,4
	4,000005,util__Notifier_removeListeners,2
	5,000005,util__Notifier_removeAllListeners,1
	6,000005,util__Notifier_genListeners,2
	7,000005,util__Notifier_genAllListeners,1
	8,000005,util__Notifier_connect,4
	9,000005,util__Notifier_addToListeners,2
	10,000005,util__Notifier_disconnect,2
	11,000005,util__Notifier_notify1,3
	12,000005,util__Notifier_notifyClass,3
	13,000005,util__Notifier_initially,1
	14,000011,util__Notifier__state,3
	15,000011,util__Notifier__methods,33
	16,000001,util__Notifier__oprec,0
	17,000001,lang__Object__oprec,0
	18,000005,util__Notifier,1
	19,000005,util__Notifierinitialize,0

proc util__Notifier_notify
	local	0,001000,self
	local	1,001000,typ
	local	2,001000,message
	local	3,000000,l
	con	0,010000,7,144,145,146,141,165,154,164
	con	1,010000,0
	declend
	filen	notifier.icn
	line	49
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	1
	line	51
	colm	1
	synt	any
	null
	str	0
	line	51
	colm	6
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	2
	line	52
	colm	1
	synt	any
	null
	str	1
	line	52
	colm	10
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	line	50
	colm	7
	synt	every
	mark0
	pnull
	var	3
	pnull
	var	0
	line	50
	colm	22
	synt	any
	field	genListeners
	var	1
	line	50
	colm	35
	synt	any
	invoke	1
	line	50
	colm	15
	synt	any
	asgn
	pop
	mark0
	pnull
	var	0
	line	50
	colm	47
	synt	any
	field	notify1
	var	3
	var	2
	line	50
	colm	55
	synt	any
	invoke	2
	unmark
lab L4
	efail
lab L5
	line	50
	colm	7
	synt	endevery
	unmark
lab L3
	pnull
	line	51
	colm	1
	synt	any
	pfail
	end
proc util__Notifier_notifyAll
	local	0,001000,self
	local	1,001000,message
	declend
	line	58
	colm	11
	synt	any
	mark	L1
	line	59
	colm	7
	synt	every
	mark0
	pnull
	var	0
	line	59
	colm	17
	synt	any
	field	notify1
	pnull
	var	0
	line	59
	colm	30
	synt	any
	field	genAllListeners
	line	59
	colm	46
	synt	any
	invoke	0
	var	1
	line	59
	colm	25
	synt	any
	invoke	2
	pop
lab L2
	efail
lab L3
	line	59
	colm	7
	synt	endevery
	unmark
lab L1
	pnull
	line	60
	colm	1
	synt	any
	pfail
	end
proc util__Notifier_addListener
	local	0,001000,self
	local	1,001000,listener
	local	2,001000,typ
	local	3,001000,methodname
	local	4,000000,lang__isClass
	local	5,000000,type
	local	6,000000,l
	local	7,000000,util__Subscription
	local	8,000000,write
	local	9,000000,lang__Type
	con	0,010000,7,144,145,146,141,165,154,164
	con	1,010000,8,143,141,154,154,142,141,143,153
	con	2,010000,9,160,162,157,143,145,144,165,162,145
	con	3,010000,13,143,157,055,145,170,160,162,145,163,163,151,157,156
	con	4,010000,6,163,164,162,151,156,147
	con	5,010000,20,116,157,164,040,162,145,141,144,171,040,164,157,040,150,141,156,144,154,145,040
	con	6,010000,15,040,154,151,163,164,145,156,145,162,163,040,171,145,164,056
	declend
	line	71
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	2
	line	73
	colm	1
	synt	any
	null
	str	0
	line	73
	colm	6
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	3
	line	74
	colm	1
	synt	any
	null
	str	1
	line	74
	colm	13
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	line	72
	colm	7
	synt	ifelse
	mark	L4
	var	4
	var	1
	line	72
	colm	23
	synt	any
	invoke	1
	unmark
	pnull
	var	0
	line	72
	colm	43
	synt	any
	field	connect
	var	1
	var	3
	var	2
	line	72
	colm	51
	synt	any
	invoke	3
	goto	L5
lab L4
	line	73
	colm	12
	synt	ifelse
	mark	L6
	pnull
	var	5
	var	1
	line	73
	colm	21
	synt	any
	invoke	1
	mark	L8
	str	2
	line	73
	colm	47
	synt	any
	esusp
	goto	L9
lab L8
	mark	L10
	str	3
	line	73
	colm	63
	synt	any
	esusp
	goto	L11
lab L10
	str	4
lab L11
lab L9
	line	73
	colm	32
	synt	any
	lexeq
	unmark
	mark	L12
	pnull
	var	6
	var	7
	var	1
	line	74
	colm	43
	synt	any
	keywd	null
	var	2
	line	74
	colm	33
	synt	any
	invoke	3
	line	74
	colm	12
	synt	any
	asgn
	unmark
lab L12
	pnull
	var	0
	line	75
	colm	14
	synt	any
	field	addToListeners
	var	6
	line	75
	colm	29
	synt	any
	invoke	1
	goto	L7
lab L6
	mark	L13
	var	8
	line	78
	colm	18
	synt	any
	keywd	errout
	str	5
	var	9
	var	1
	line	78
	colm	60
	synt	any
	invoke	1
	str	6
	line	78
	colm	17
	synt	any
	invoke	4
	unmark
lab L13
	line	80
	colm	10
	synt	any
	pfail
lab L7
	line	73
	colm	12
	synt	endifelse
lab L5
	line	72
	colm	7
	synt	endifelse
	unmark
lab L3
	mark	L14
	mark	L15
	pnull
	line	82
	colm	7
	synt	any
	pret
lab L15
	synt	any
	pfail
	unmark
lab L14
	pnull
	line	83
	colm	1
	synt	any
	pfail
	end
proc util__Notifier_removeListener
	local	0,001000,self
	local	1,001000,listener
	local	2,001000,typ
	local	3,001000,methodname
	local	4,000000,l
	local	5,000000,lang__Type
	local	6,000000,proc
	local	7,000000,lang__isClass
	local	8,000000,lang__find_method
	con	0,010000,7,144,145,146,141,165,154,164
	con	1,010000,8,143,141,154,154,142,141,143,153
	con	2,002000,1,1
	con	3,010000,6,163,164,162,151,156,147
	declend
	line	93
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	2
	line	95
	colm	1
	synt	any
	null
	str	0
	line	95
	colm	6
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	3
	line	96
	colm	1
	synt	any
	null
	str	1
	line	96
	colm	13
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	line	94
	colm	7
	synt	every
	mark0
	pnull
	var	4
	pnull
	var	0
	line	94
	colm	22
	synt	any
	field	genListeners
	var	2
	line	94
	colm	35
	synt	any
	invoke	1
	line	94
	colm	15
	synt	any
	asgn
	pop
	mark0
	line	95
	colm	10
	synt	ifelse
	mark	L6
	pnull
	int	2
	line	95
	colm	23
	synt	any
	limit
	var	5
	pnull
	var	4
	line	95
	colm	25
	synt	any
	field	obj
	line	95
	colm	23
	synt	any
	invoke	1
	lsusp
	str	3
	line	95
	colm	33
	synt	any
	lexeq
	unmark
	line	96
	colm	13
	synt	if
	mark0
	pnull
	var	6
	pnull
	var	4
	line	96
	colm	24
	synt	any
	field	obj
	line	96
	colm	22
	synt	any
	invoke	1
	var	1
	line	96
	colm	30
	synt	any
	eqv
	unmark
	pnull
	var	0
	line	96
	colm	52
	synt	any
	field	disconnect
	var	4
	line	96
	colm	63
	synt	any
	invoke	1
	line	96
	colm	13
	synt	endif
	goto	L7
lab L6
	line	98
	colm	15
	synt	if
	mark0
	pnull
	pnull
	var	4
	line	98
	colm	20
	synt	any
	field	obj
	var	1
	line	98
	colm	25
	synt	any
	eqv
	unmark
	line	99
	colm	13
	synt	ifelse
	mark	L8
	var	7
	var	1
	line	99
	colm	29
	synt	any
	invoke	1
	pop
	pnull
	pnull
	var	4
	line	100
	colm	18
	synt	any
	field	meth
	var	8
	var	1
	var	3
	line	100
	colm	45
	synt	any
	invoke	2
	line	100
	colm	24
	synt	any
	eqv
	unmark
	pnull
	var	0
	line	101
	colm	20
	synt	any
	field	disconnect
	var	4
	line	101
	colm	31
	synt	any
	invoke	1
	goto	L9
lab L8
	pnull
	var	0
	line	104
	colm	20
	synt	any
	field	disconnect
	var	4
	line	104
	colm	31
	synt	any
	invoke	1
lab L9
	line	99
	colm	13
	synt	endifelse
	line	98
	colm	15
	synt	endif
lab L7
	line	95
	colm	10
	synt	endifelse
	unmark
lab L4
	efail
lab L5
	line	94
	colm	7
	synt	endevery
	unmark
lab L3
	pnull
	line	108
	colm	1
	synt	any
	pfail
	end
proc util__Notifier_removeListeners
	local	0,001000,self
	local	1,001000,typ
	local	2,000000,delete
	con	0,010000,7,144,145,146,141,165,154,164
	declend
	line	114
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	1
	line	116
	colm	1
	synt	any
	null
	str	0
	line	116
	colm	6
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	var	2
	pnull
	var	0
	line	115
	colm	20
	synt	any
	field	listeners
	var	1
	line	115
	colm	15
	synt	any
	invoke	2
	unmark
lab L2
	pnull
	line	116
	colm	1
	synt	any
	pfail
	end
proc util__Notifier_removeAllListeners
	local	0,001000,self
	declend
	line	121
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	122
	colm	11
	synt	any
	field	listeners
	line	122
	colm	23
	synt	any
	keywd	null
	line	122
	colm	21
	synt	any
	asgn
	unmark
lab L1
	pnull
	line	123
	colm	1
	synt	any
	pfail
	end
proc util__Notifier_genListeners
	local	0,001000,self
	local	1,001000,typ
	con	0,010000,7,144,145,146,141,165,154,164
	declend
	line	129
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	1
	line	131
	colm	1
	synt	any
	null
	str	0
	line	131
	colm	6
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	line	130
	colm	7
	synt	suspend
	mark0
	pnull
	pnull
	pnull
	pnull
	var	0
	line	130
	colm	22
	synt	any
	field	listeners
	var	1
	line	130
	colm	32
	synt	any
	subsc
	line	130
	colm	16
	synt	any
	nonnull
	line	130
	colm	15
	synt	any
	bang
	line	130
	colm	7
	synt	any
	psusp
	pop
lab L3
	efail
lab L4
	line	130
	colm	7
	synt	endsuspend
	unmark
lab L2
	pnull
	line	131
	colm	1
	synt	any
	pfail
	end
proc util__Notifier_genAllListeners
	local	0,001000,self
	declend
	line	136
	colm	11
	synt	any
	mark	L1
	line	137
	colm	7
	synt	suspend
	mark0
	pnull
	pnull
	pnull
	var	0
	line	137
	colm	21
	synt	any
	field	listeners
	line	137
	colm	16
	synt	any
	bang
	line	137
	colm	15
	synt	any
	bang
	line	137
	colm	7
	synt	any
	psusp
	pop
lab L2
	efail
lab L3
	line	137
	colm	7
	synt	endsuspend
	unmark
lab L1
	pnull
	line	138
	colm	1
	synt	any
	pfail
	end
proc util__Notifier_connect
	local	0,001000,self
	local	1,001000,obj
	local	2,001000,meth_name
	local	3,001000,typ
	local	4,000020,l
	local	5,000020,p
	local	6,000020,sum
	local	7,000000,lang__find_method
	local	8,000000,write
	local	9,000000,util__Subscription
	con	0,010000,8,143,141,154,154,142,141,143,153
	con	1,010000,7,144,145,146,141,165,154,164
	con	2,010000,25,103,157,156,156,145,143,164,072,040,116,157,040,163,165,143,150,040,155,145,164,150,157,144,040,047
	con	3,010000,1,047
	declend
	line	147
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	2
	line	149
	colm	1
	synt	any
	null
	str	0
	line	149
	colm	12
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	3
	line	150
	colm	1
	synt	any
	null
	str	1
	line	150
	colm	6
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	5
	mark	L4
	var	7
	var	1
	var	2
	line	150
	colm	29
	synt	any
	invoke	2
	line	150
	colm	45
	synt	any
	esusp
	goto	L5
lab L4
	mark	L6
	var	8
	line	151
	colm	19
	synt	any
	keywd	errout
	str	2
	var	2
	str	3
	line	151
	colm	18
	synt	any
	invoke	4
	unmark
lab L6
	line	152
	colm	11
	synt	any
	pfail
lab L5
	line	150
	colm	9
	synt	any
	asgn
	unmark
lab L3
	mark	L7
	line	155
	colm	7
	synt	every
	mark0
	pnull
	var	4
	pnull
	var	0
	line	155
	colm	22
	synt	any
	field	genListeners
	var	3
	line	155
	colm	35
	synt	any
	invoke	1
	line	155
	colm	15
	synt	any
	asgn
	pop
	mark0
	line	156
	colm	10
	synt	if
	mark0
	pnull
	pnull
	var	4
	line	156
	colm	15
	synt	any
	field	obj
	var	1
	line	156
	colm	20
	synt	any
	eqv
	pop
	pnull
	pnull
	var	4
	line	156
	colm	33
	synt	any
	field	meth
	var	5
	line	156
	colm	39
	synt	any
	eqv
	unmark
	line	157
	colm	13
	synt	any
	pfail
	line	156
	colm	10
	synt	endif
	unmark
lab L8
	efail
lab L9
	line	155
	colm	7
	synt	endevery
	unmark
lab L7
	mark	L10
	pnull
	var	4
	var	9
	var	1
	var	5
	var	3
	line	159
	colm	30
	synt	any
	invoke	3
	line	159
	colm	9
	synt	any
	asgn
	unmark
lab L10
	mark	L11
	pnull
	var	0
	line	160
	colm	11
	synt	any
	field	addToListeners
	var	4
	line	160
	colm	26
	synt	any
	invoke	1
	unmark
lab L11
	mark	L12
	mark	L13
	var	4
	line	161
	colm	7
	synt	any
	pret
lab L13
	synt	any
	pfail
	unmark
lab L12
	pnull
	line	162
	colm	1
	synt	any
	pfail
	end
proc util__Notifier_addToListeners
	local	0,001000,self
	local	1,001000,l
	local	2,000000,put
	declend
	line	169
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	pnull
	var	0
	line	170
	colm	12
	synt	any
	field	listeners
	pnull
	var	1
	line	170
	colm	24
	synt	any
	field	type
	line	170
	colm	22
	synt	any
	subsc
	line	170
	colm	7
	synt	any
	null
	pnull
	line	170
	colm	32
	synt	any
	llist	0
	line	170
	colm	30
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	var	2
	pnull
	pnull
	var	0
	line	171
	colm	17
	synt	any
	field	listeners
	pnull
	var	1
	line	171
	colm	29
	synt	any
	field	type
	line	171
	colm	27
	synt	any
	subsc
	var	1
	line	171
	colm	12
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	mark	L4
	var	1
	line	173
	colm	7
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	174
	colm	1
	synt	any
	pfail
	end
proc util__Notifier_disconnect
	local	0,001000,self
	local	1,001000,l
	local	2,000020,k
	local	3,000020,t
	local	4,000000,put
	declend
	line	181
	colm	11
	synt	any
	mark	L1
	pnull
	var	2
	pnull
	var	1
	line	182
	colm	19
	synt	any
	field	type
	line	182
	colm	15
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	3
	pnull
	line	184
	colm	12
	synt	any
	llist	0
	line	184
	colm	9
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	line	185
	colm	7
	synt	every
	mark0
	var	4
	var	3
	pnull
	var	1
	pnull
	pnull
	pnull
	var	0
	line	185
	colm	34
	synt	any
	field	listeners
	var	2
	line	185
	colm	44
	synt	any
	subsc
	line	185
	colm	29
	synt	any
	bang
	line	185
	colm	24
	synt	any
	neqv
	line	185
	colm	18
	synt	any
	invoke	2
	pop
lab L4
	efail
lab L5
	line	185
	colm	7
	synt	endevery
	unmark
lab L3
	mark	L6
	pnull
	pnull
	pnull
	var	0
	line	186
	colm	11
	synt	any
	field	listeners
	var	2
	line	186
	colm	21
	synt	any
	subsc
	var	3
	line	186
	colm	24
	synt	any
	asgn
	unmark
lab L6
	pnull
	line	187
	colm	1
	synt	any
	pfail
	end
proc util__Notifier_notify1
	local	0,001000,self
	local	1,001000,l
	local	2,001000,message
	local	3,000000,type
	local	4,000000,lang__Type
	local	5,000000,a
	local	6,000000,copy
	local	7,000000,fcn
	local	8,000000,pop
	local	9,000000,args
	local	10,000000,param
	local	11,000000,i
	local	12,000000,lang__Arg
	local	13,000000,lang__isClass
	con	0,010000,9,160,162,157,143,145,144,165,162,145
	con	1,010000,6,163,164,162,151,156,147
	con	2,002000,1,1
	con	3,010000,13,143,157,055,145,170,160,162,145,163,163,151,157,156
	con	4,010000,4,154,151,163,164
	declend
	line	195
	colm	11
	synt	any
	mark	L1
	line	196
	colm	7
	synt	case
	mark0
	var	3
	pnull
	var	1
	line	196
	colm	20
	synt	any
	field	obj
	line	196
	colm	18
	synt	any
	invoke	1
	eret
	mark	L3
	ccase
	mark	L4
	str	0
	line	197
	colm	22
	synt	any
	esusp
	goto	L5
lab L4
	str	1
lab L5
	line	197
	colm	33
	synt	any
	eqv
	unmark
	pop
	pnull
	var	1
	line	197
	colm	36
	synt	any
	field	obj
	int	2
	line	197
	colm	51
	synt	any
	limit
	var	4
	var	0
	synt	any
	invoke	1
	lsusp
	pnull
	var	1
	line	197
	colm	62
	synt	any
	field	type
	var	2
	line	197
	colm	40
	synt	any
	invoke	3
	goto	L2
lab L3
	mark	L6
	ccase
	str	3
	line	198
	colm	26
	synt	any
	eqv
	unmark
	pop
	pnull
	int	2
	line	198
	colm	39
	synt	any
	limit
	var	4
	var	0
	synt	any
	invoke	1
	lsusp
	pnull
	var	1
	line	198
	colm	50
	synt	any
	field	type
	var	2
	line	198
	colm	28
	synt	any
	llist	3
	pnull
	var	1
	line	198
	colm	70
	synt	any
	field	obj
	line	198
	colm	67
	synt	any
	coact
	goto	L2
lab L6
	mark	L7
	ccase
	str	4
	line	201
	colm	16
	synt	any
	eqv
	unmark
	pop
	mark	L8
	pnull
	var	5
	var	6
	pnull
	var	1
	line	202
	colm	27
	synt	any
	field	obj
	line	202
	colm	25
	synt	any
	invoke	1
	line	202
	colm	16
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	var	7
	var	8
	var	5
	line	203
	colm	26
	synt	any
	invoke	1
	line	203
	colm	18
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	pnull
	var	9
	pnull
	int	2
	line	204
	colm	33
	synt	any
	limit
	var	4
	var	0
	synt	any
	invoke	1
	lsusp
	pnull
	var	1
	line	204
	colm	44
	synt	any
	field	type
	var	10
	line	204
	colm	22
	synt	any
	llist	3
	line	204
	colm	19
	synt	any
	asgn
	unmark
lab L10
	mark	L11
	line	205
	colm	14
	synt	every
	mark0
	pnull
	var	11
	pnull
	int	2
	pnull
	var	5
	line	205
	colm	30
	synt	any
	size
	push1
	line	205
	colm	27
	synt	any
	toby
	line	205
	colm	22
	synt	any
	asgn
	pop
	mark0
	line	205
	colm	36
	synt	if
	mark0
	pnull
	pnull
	var	5
	var	11
	line	205
	colm	40
	synt	any
	subsc
	var	12
	line	205
	colm	44
	synt	any
	eqv
	unmark
	pnull
	pnull
	var	5
	var	11
	line	205
	colm	64
	synt	any
	subsc
	var	8
	var	9
	line	205
	colm	72
	synt	any
	invoke	1
	line	205
	colm	67
	synt	any
	asgn
	line	205
	colm	36
	synt	endif
	unmark
lab L12
	efail
lab L13
	line	205
	colm	14
	synt	endevery
	unmark
lab L11
	line	206
	colm	14
	synt	suspend
	mark0
	var	7
	var	5
	invoke	-1
	line	206
	colm	14
	synt	any
	psusp
	pop
lab L14
	efail
lab L15
	line	206
	colm	14
	synt	endsuspend
	goto	L2
lab L7
	pop
	line	208
	colm	19
	synt	if
	mark0
	var	13
	pnull
	var	1
	line	208
	colm	37
	synt	any
	field	obj
	line	208
	colm	35
	synt	any
	invoke	1
	unmark
	pnull
	var	0
	line	208
	colm	52
	synt	any
	field	notifyClass
	var	1
	var	2
	line	208
	colm	64
	synt	any
	invoke	2
	line	208
	colm	19
	synt	endif
lab L2
	line	196
	colm	7
	synt	endcase
	unmark
lab L1
	pnull
	line	210
	colm	1
	synt	any
	pfail
	end
proc util__Notifier_notifyClass
	local	0,001000,self
	local	1,001000,lRec
	local	2,001000,message
	local	3,000000,lang__Type
	con	0,002000,1,1
	declend
	line	222
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	223
	colm	11
	synt	any
	field	meth
	pnull
	pnull
	var	1
	line	223
	colm	24
	synt	any
	field	obj
	int	0
	line	223
	colm	40
	synt	any
	limit
	var	3
	var	0
	synt	any
	invoke	1
	lsusp
	pnull
	var	1
	line	223
	colm	54
	synt	any
	field	type
	var	2
	line	223
	colm	19
	synt	any
	llist	4
	invoke	-1
	unmark
lab L1
	pnull
	line	224
	colm	1
	synt	any
	pfail
	end
proc util__Notifier_initially
	local	0,001000,self
	local	1,000000,table
	declend
	line	226
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	227
	colm	8
	synt	any
	field	listeners
	var	1
	line	227
	colm	25
	synt	any
	invoke	0
	line	227
	colm	18
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	line	228
	colm	7
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	229
	colm	1
	synt	any
	pfail
	end
proc util__Notifier
	local	0,001000,listeners
	local	1,000020,self
	local	2,000020,clone
	local	3,000000,util__Notifier__oprec
	local	4,000000,util__Notifierinitialize
	local	5,000000,lang__Object__oprec
	local	6,000000,lang__Objectinitialize
	local	7,000000,util__Notifier__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	3
	line	8
	colm	6
	synt	any
	null
	unmark
	var	4
	line	8
	colm	58
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	5
	line	9
	colm	6
	synt	any
	null
	unmark
	var	6
	line	9
	colm	54
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	pnull
	pnull
	var	3
	line	10
	colm	24
	synt	any
	field	lang__Object
	var	5
	line	10
	colm	38
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L6
	pnull
	var	1
	var	7
	line	12
	colm	33
	synt	any
	keywd	null
	var	3
	var	0
	line	12
	colm	32
	synt	any
	invoke	3
	line	12
	colm	8
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	pnull
	pnull
	var	1
	line	13
	colm	7
	synt	any
	field	__s
	var	1
	line	13
	colm	12
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	mark	L9
	pnull
	pnull
	var	1
	line	14
	colm	7
	synt	any
	field	__m
	line	14
	colm	11
	synt	any
	field	initially
	var	1
	line	14
	colm	21
	synt	any
	invoke	1
	line	14
	colm	28
	synt	any
	esusp
	goto	L10
lab L9
	line	14
	colm	30
	synt	any
	pfail
lab L10
	unmark
lab L8
	mark	L11
	mark	L12
	var	1
	line	15
	colm	3
	synt	any
	pret
lab L12
	synt	any
	pfail
	unmark
lab L11
	pnull
	line	16
	colm	1
	synt	any
	pfail
	end
proc util__Notifierinitialize
	local	0,000000,util__Notifier__oprec
	local	1,000000,util__Notifier__methods
	local	2,000000,util__Notifier_notify
	local	3,000000,util__Notifier_notifyAll
	local	4,000000,util__Notifier_addListener
	local	5,000000,util__Notifier_removeListener
	local	6,000000,util__Notifier_removeListeners
	local	7,000000,util__Notifier_removeAllListeners
	local	8,000000,util__Notifier_genListeners
	local	9,000000,util__Notifier_genAllListeners
	local	10,000000,util__Notifier_connect
	local	11,000000,util__Notifier_addToListeners
	local	12,000000,util__Notifier_disconnect
	local	13,000000,util__Notifier_notify1
	local	14,000000,util__Notifier_notifyClass
	local	15,000000,util__Notifier_initially
	local	16,000000,lang__Object_clone
	local	17,000000,lang__Object_to_string
	local	18,000000,lang__Object_equals
	local	19,000000,lang__Object_hash_code
	local	20,000000,lang__Object_get_class_name
	local	21,000000,lang__Object_get_id
	local	22,000000,lang__Object_get_class
	local	23,000000,lang__Object_is_instance
	local	24,000000,lang__Object_Type
	local	25,000000,lang__Object_instanceOf
	local	26,000000,lang__Object_className
	local	27,000000,lang__Object_invoke
	local	28,000000,lang__Object_getField
	local	29,000000,lang__Object_setField
	local	30,000000,lang__Object_hasField
	local	31,000000,lang__Object_fieldNames
	local	32,000000,lang__Object_genMethods
	local	33,000000,lang__Object_hasMethod
	declend
	line	18
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	var	11
	var	12
	var	13
	var	14
	var	15
	var	16
	var	17
	var	18
	var	19
	var	20
	var	21
	var	22
	var	23
	var	24
	var	25
	var	26
	var	27
	var	28
	var	29
	var	30
	var	31
	var	32
	var	33
	line	19
	colm	59
	synt	any
	invoke	32
	line	19
	colm	33
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	20
	colm	1
	synt	any
	pfail
	end
