version	U12.1.00
uid	migration.u1-1787878258-0
record	gui___Event__state,5
	0,__s
	1,__m
	2,event
	3,component
	4,code
record	gui___Event__methods,22
	0,get_event
	1,get_code
	2,get_component
	3,clone
	4,to_string
	5,equals
	6,hash_code
	7,get_class_name
	8,get_id
	9,get_class
	10,is_instance
	11,Type
	12,instanceOf
	13,className
	14,invoke
	15,getField
	16,setField
	17,hasField
	18,fieldNames
	19,genMethods
	20,hasMethod
	21,lang__Object
impl	local
link	/local/pobj/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/object.u
link	/local/pobj/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/classcoding.u
link	/local/pobj/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/basicclasscoding.u
link	/local/pobj/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/method.u
link	/local/pobj/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/class.u
link	/local/pobj/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/langprocs.u
link	/local/pobj/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/object.u
link	/local/pobj/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/decode.u
link	/local/pobj/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/encode.u
link	/local/pobj/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/fcn_util.u
link	/local/pobj/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/selectiveclasscoding.u
link	/local/pobj/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/predicat.u
link	/local/pobj/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/runnable.u
link	/local/pobj/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/process.u
link	/local/pobj/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/property.u
link	graphics.u
link	posix.u
invocable	posix_rusage
invocable	posix_message
invocable	posix_lock
invocable	posix_servent
invocable	posix_hostent
invocable	posix_timeval
invocable	posix_group
invocable	posix_passwd
invocable	posix_stat
global	10
	0,000005,gui___Event_get_event,1
	1,000005,gui___Event_get_code,1
	2,000005,gui___Event_get_component,1
	3,000011,gui___Event__state,5
	4,000011,gui___Event__methods,22
	5,000001,gui___Event__oprec,0
	6,000001,lang__Object__oprec,0
	7,000005,gui___Event,3
	8,000005,gui___Eventinitialize,0
	9,000005,gui__V2TOV1,1

proc gui___Event_get_event
	local	0,001000,self
	declend
	filen	migration.icn
	line	11
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	var	0
	line	12
	colm	18
	synt	any
	field	event
	line	12
	colm	7
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	13
	colm	1
	synt	any
	pfail
	end
proc gui___Event_get_code
	local	0,001000,self
	declend
	line	15
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	var	0
	line	16
	colm	18
	synt	any
	field	code
	line	16
	colm	7
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	17
	colm	1
	synt	any
	pfail
	end
proc gui___Event_get_component
	local	0,001000,self
	declend
	line	19
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	var	0
	line	20
	colm	18
	synt	any
	field	component
	line	20
	colm	7
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	21
	colm	1
	synt	any
	pfail
	end
proc gui___Event
	local	0,001000,event
	local	1,001000,component
	local	2,001000,code
	local	3,000020,self
	local	4,000020,clone
	local	5,000000,gui___Event__oprec
	local	6,000000,gui___Eventinitialize
	local	7,000000,lang__Object__oprec
	local	8,000000,lang__Objectinitialize
	local	9,000000,gui___Event__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	5
	line	8
	colm	6
	synt	any
	null
	unmark
	var	6
	line	8
	colm	52
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	7
	line	9
	colm	6
	synt	any
	null
	unmark
	var	8
	line	9
	colm	54
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	pnull
	pnull
	var	5
	line	10
	colm	21
	synt	any
	field	lang__Object
	var	7
	line	10
	colm	35
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L6
	pnull
	var	3
	var	9
	line	12
	colm	30
	synt	any
	keywd	null
	var	5
	var	0
	var	1
	var	2
	line	12
	colm	29
	synt	any
	invoke	5
	line	12
	colm	8
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	pnull
	pnull
	var	3
	line	13
	colm	7
	synt	any
	field	__s
	var	3
	line	13
	colm	12
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	mark	L9
	var	3
	line	14
	colm	3
	synt	any
	pret
lab L9
	synt	any
	pfail
	unmark
lab L8
	pnull
	line	15
	colm	1
	synt	any
	pfail
	end
proc gui___Eventinitialize
	local	0,000000,gui___Event__oprec
	local	1,000000,gui___Event__methods
	local	2,000000,gui___Event_get_event
	local	3,000000,gui___Event_get_code
	local	4,000000,gui___Event_get_component
	local	5,000000,lang__Object_clone
	local	6,000000,lang__Object_to_string
	local	7,000000,lang__Object_equals
	local	8,000000,lang__Object_hash_code
	local	9,000000,lang__Object_get_class_name
	local	10,000000,lang__Object_get_id
	local	11,000000,lang__Object_get_class
	local	12,000000,lang__Object_is_instance
	local	13,000000,lang__Object_Type
	local	14,000000,lang__Object_instanceOf
	local	15,000000,lang__Object_className
	local	16,000000,lang__Object_invoke
	local	17,000000,lang__Object_getField
	local	18,000000,lang__Object_setField
	local	19,000000,lang__Object_hasField
	local	20,000000,lang__Object_fieldNames
	local	21,000000,lang__Object_genMethods
	local	22,000000,lang__Object_hasMethod
	declend
	line	17
	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
	line	18
	colm	53
	synt	any
	invoke	21
	line	18
	colm	30
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	19
	colm	1
	synt	any
	pfail
	end
proc gui__V2TOV1
	local	0,001000,ev
	local	1,000020,p
	local	2,000020,code
	local	3,000020,c
	local	4,000000,lang__get_class_for
	local	5,000000,member
	local	6,000000,lang__is_instance
	local	7,000000,gui___Event
	con	0,002000,2,12
	con	1,010000,11,147,165,151,072,072,102,165,164,164,157,156
	con	2,002000,2,21
	con	3,002000,1,0
	con	4,002000,2,20
	con	5,002000,1,1
	con	6,002000,2,22
	con	7,010000,1,015
	con	8,010000,1,012
	con	9,002000,2,60
	con	10,002000,1,2
	con	11,010000,14,147,165,151,072,072,124,145,170,164,106,151,145,154,144
	con	12,002000,2,50
	con	13,010000,14,147,165,151,072,072,123,143,162,157,154,154,102,141,162
	con	14,002000,2,30
	con	15,002000,2,31
	con	16,010000,9,147,165,151,072,072,124,162,145,145
	con	17,002000,2,51
	con	18,002000,2,40
	con	19,002000,2,70
	con	20,010000,25,147,165,151,072,072,123,145,154,145,143,164,141,142,154,145,123,143,162,157,154,154,101,162,145,141
	con	21,010000,10,147,165,151,072,072,124,141,142,154,145
	con	22,002000,2,92
	con	23,010000,21,147,165,151,072,072,105,144,151,164,141,142,154,145,124,145,170,164,114,151,163,164
	con	24,010000,9,147,165,151,072,072,114,151,163,164
	con	25,010000,13,147,165,151,072,072,105,144,151,164,114,151,163,164
	con	26,010000,18,147,165,151,072,072,115,145,156,165,103,157,155,160,157,156,145,156,164
	con	27,010000,18,165,164,151,154,072,072,116,157,164,151,146,151,143,141,164,151,157,156
	declend
	filen	migration.icn
	line	27
	colm	12
	synt	any
	mark	L1
	line	34
	colm	4
	synt	if
	mark0
	pnull
	pnull
	var	0
	line	34
	colm	9
	synt	any
	field	get_param
	line	34
	colm	19
	synt	any
	invoke	0
	pnull
	int	0
	line	34
	colm	26
	synt	any
	neg
	line	34
	colm	22
	synt	any
	eqv
	unmark
	line	35
	colm	7
	synt	any
	pfail
	line	34
	colm	4
	synt	endif
	unmark
lab L1
	mark	L2
	pnull
	var	3
	pnull
	var	4
	pnull
	var	0
	line	37
	colm	31
	synt	any
	field	get_source
	line	37
	colm	42
	synt	any
	invoke	0
	line	37
	colm	28
	synt	any
	invoke	1
	line	37
	colm	45
	synt	any
	field	get_implemented_classes
	line	37
	colm	69
	synt	any
	invoke	0
	line	37
	colm	6
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	line	39
	colm	4
	synt	ifelse
	mark	L4
	var	5
	var	3
	str	1
	line	39
	colm	13
	synt	any
	invoke	2
	unmark
	pnull
	var	2
	line	40
	colm	15
	synt	case
	mark0
	pnull
	var	0
	line	40
	colm	22
	synt	any
	field	get_type
	line	40
	colm	31
	synt	any
	invoke	0
	eret
	mark	L7
	ccase
	int	2
	line	41
	colm	13
	synt	any
	eqv
	unmark
	pop
	int	3
	goto	L6
lab L7
	mark	L8
	ccase
	int	4
	line	42
	colm	13
	synt	any
	eqv
	unmark
	pop
	int	5
	goto	L6
lab L8
	mark	L9
	ccase
	int	6
	line	43
	colm	13
	synt	any
	eqv
	unmark
	pop
	pnull
	int	5
	line	43
	colm	15
	synt	any
	neg
	goto	L6
lab L9
	mark	L10
	ccase
	pnull
	pnull
	pnull
	var	0
	line	44
	colm	11
	synt	any
	nonnull
	line	44
	colm	15
	synt	any
	field	get_param
	line	44
	colm	25
	synt	any
	invoke	0
	mark	L11
	str	7
	line	44
	colm	37
	synt	any
	esusp
	goto	L12
lab L11
	str	8
lab L12
	line	44
	colm	28
	synt	any
	eqv
	pop
	int	9
	line	45
	colm	13
	synt	any
	eqv
	unmark
	pop
	int	10
	goto	L6
lab L10
	pop
	line	46
	colm	19
	synt	any
	pfail
lab L6
	line	40
	colm	15
	synt	endcase
	line	40
	colm	12
	synt	any
	asgn
	goto	L5
lab L4
	line	49
	colm	9
	synt	ifelse
	mark	L13
	var	5
	var	3
	str	11
	line	49
	colm	18
	synt	any
	invoke	2
	unmark
	pnull
	var	2
	line	50
	colm	15
	synt	case
	mark0
	pnull
	var	0
	line	50
	colm	22
	synt	any
	field	get_type
	line	50
	colm	31
	synt	any
	invoke	0
	eret
	mark	L16
	ccase
	int	12
	line	51
	colm	13
	synt	any
	eqv
	unmark
	pop
	int	5
	goto	L15
lab L16
	mark	L17
	ccase
	int	9
	line	52
	colm	13
	synt	any
	eqv
	unmark
	pop
	int	3
	goto	L15
lab L17
	pop
	line	53
	colm	19
	synt	any
	pfail
lab L15
	line	50
	colm	15
	synt	endcase
	line	50
	colm	12
	synt	any
	asgn
	goto	L14
lab L13
	line	56
	colm	9
	synt	ifelse
	mark	L18
	var	5
	var	3
	str	13
	line	56
	colm	18
	synt	any
	invoke	2
	unmark
	pnull
	var	2
	line	57
	colm	15
	synt	case
	mark0
	pnull
	var	0
	line	57
	colm	22
	synt	any
	field	get_type
	line	57
	colm	31
	synt	any
	invoke	0
	eret
	mark	L21
	ccase
	int	14
	line	58
	colm	13
	synt	any
	eqv
	unmark
	pop
	int	3
	goto	L20
lab L21
	mark	L22
	ccase
	int	15
	line	59
	colm	13
	synt	any
	eqv
	unmark
	pop
	int	5
	goto	L20
lab L22
	pop
	line	60
	colm	19
	synt	any
	pfail
lab L20
	line	57
	colm	15
	synt	endcase
	line	57
	colm	12
	synt	any
	asgn
	goto	L19
lab L18
	line	63
	colm	9
	synt	ifelse
	mark	L23
	var	5
	var	3
	str	16
	line	63
	colm	18
	synt	any
	invoke	2
	unmark
	pnull
	var	2
	line	64
	colm	15
	synt	case
	mark0
	pnull
	var	0
	line	64
	colm	22
	synt	any
	field	get_type
	line	64
	colm	31
	synt	any
	invoke	0
	eret
	mark	L26
	ccase
	int	17
	line	65
	colm	13
	synt	any
	eqv
	unmark
	pop
	int	3
	goto	L25
lab L26
	mark	L27
	ccase
	int	18
	line	66
	colm	13
	synt	any
	eqv
	unmark
	pop
	int	5
	goto	L25
lab L27
	mark	L28
	ccase
	int	19
	line	67
	colm	13
	synt	any
	eqv
	unmark
	pop
	int	10
	goto	L25
lab L28
	pop
	line	68
	colm	19
	synt	any
	pfail
lab L25
	line	64
	colm	15
	synt	endcase
	line	64
	colm	12
	synt	any
	asgn
	goto	L24
lab L23
	line	71
	colm	9
	synt	ifelse
	mark	L29
	var	5
	var	3
	str	20
	line	71
	colm	18
	synt	any
	invoke	2
	unmark
	pnull
	var	2
	line	72
	colm	15
	synt	case
	mark0
	pnull
	var	0
	line	72
	colm	22
	synt	any
	field	get_type
	line	72
	colm	31
	synt	any
	invoke	0
	eret
	mark	L32
	ccase
	int	17
	line	73
	colm	13
	synt	any
	eqv
	unmark
	pop
	int	3
	goto	L31
lab L32
	mark	L33
	ccase
	int	18
	line	74
	colm	13
	synt	any
	eqv
	unmark
	pop
	int	5
	goto	L31
lab L33
	pop
	line	75
	colm	19
	synt	any
	pfail
lab L31
	line	72
	colm	15
	synt	endcase
	line	72
	colm	12
	synt	any
	asgn
	goto	L30
lab L29
	line	78
	colm	9
	synt	ifelse
	mark	L34
	var	5
	var	3
	str	21
	line	78
	colm	18
	synt	any
	invoke	2
	unmark
	pnull
	var	2
	line	79
	colm	15
	synt	case
	mark0
	pnull
	var	0
	line	79
	colm	22
	synt	any
	field	get_type
	line	79
	colm	31
	synt	any
	invoke	0
	eret
	mark	L37
	ccase
	int	22
	line	80
	colm	13
	synt	any
	eqv
	unmark
	pop
	int	3
	goto	L36
lab L37
	mark	L38
	ccase
	int	17
	line	81
	colm	13
	synt	any
	eqv
	unmark
	pop
	int	3
	goto	L36
lab L38
	mark	L39
	ccase
	int	18
	line	82
	colm	13
	synt	any
	eqv
	unmark
	pop
	int	5
	goto	L36
lab L39
	pop
	line	83
	colm	19
	synt	any
	pfail
lab L36
	line	79
	colm	15
	synt	endcase
	line	79
	colm	12
	synt	any
	asgn
	goto	L35
lab L34
	line	86
	colm	9
	synt	ifelse
	mark	L40
	var	5
	var	3
	str	23
	line	86
	colm	18
	synt	any
	invoke	2
	unmark
	pnull
	var	2
	line	87
	colm	15
	synt	case
	mark0
	pnull
	var	0
	line	87
	colm	22
	synt	any
	field	get_type
	line	87
	colm	31
	synt	any
	invoke	0
	eret
	mark	L43
	ccase
	mark	L44
	int	17
	line	88
	colm	13
	synt	any
	esusp
	goto	L45
lab L44
	mark	L46
	int	12
	line	89
	colm	13
	synt	any
	esusp
	goto	L47
lab L46
	int	18
lab L47
lab L45
	line	90
	colm	13
	synt	any
	eqv
	unmark
	pop
	int	3
	goto	L42
lab L43
	pop
	line	91
	colm	19
	synt	any
	pfail
lab L42
	line	87
	colm	15
	synt	endcase
	line	87
	colm	12
	synt	any
	asgn
	goto	L41
lab L40
	line	94
	colm	9
	synt	ifelse
	mark	L48
	var	5
	var	3
	str	24
	line	94
	colm	18
	synt	any
	invoke	2
	unmark
	pnull
	var	2
	line	95
	colm	15
	synt	case
	mark0
	pnull
	var	0
	line	95
	colm	22
	synt	any
	field	get_type
	line	95
	colm	31
	synt	any
	invoke	0
	eret
	mark	L51
	ccase
	int	18
	line	96
	colm	13
	synt	any
	eqv
	unmark
	pop
	int	3
	goto	L50
lab L51
	pop
	line	97
	colm	19
	synt	any
	pfail
lab L50
	line	95
	colm	15
	synt	endcase
	line	95
	colm	12
	synt	any
	asgn
	goto	L49
lab L48
	line	100
	colm	9
	synt	ifelse
	mark	L52
	var	5
	var	3
	str	25
	line	100
	colm	18
	synt	any
	invoke	2
	unmark
	pnull
	var	2
	line	101
	colm	15
	synt	case
	mark0
	pnull
	var	0
	line	101
	colm	22
	synt	any
	field	get_type
	line	101
	colm	31
	synt	any
	invoke	0
	eret
	mark	L55
	ccase
	int	18
	line	102
	colm	13
	synt	any
	eqv
	unmark
	pop
	int	3
	goto	L54
lab L55
	mark	L56
	ccase
	int	12
	line	103
	colm	13
	synt	any
	eqv
	unmark
	pop
	int	10
	goto	L54
lab L56
	pop
	line	104
	colm	19
	synt	any
	pfail
lab L54
	line	101
	colm	15
	synt	endcase
	line	101
	colm	12
	synt	any
	asgn
	goto	L53
lab L52
	line	107
	colm	9
	synt	ifelse
	mark	L57
	var	5
	var	3
	str	26
	line	107
	colm	18
	synt	any
	invoke	2
	unmark
	pnull
	var	2
	line	108
	colm	15
	synt	case
	mark0
	pnull
	var	0
	line	108
	colm	22
	synt	any
	field	get_type
	line	108
	colm	31
	synt	any
	invoke	0
	eret
	mark	L60
	ccase
	int	9
	line	109
	colm	13
	synt	any
	eqv
	unmark
	pop
	int	3
	goto	L59
lab L60
	pop
	line	110
	colm	19
	synt	any
	pfail
lab L59
	line	108
	colm	15
	synt	endcase
	line	108
	colm	12
	synt	any
	asgn
	goto	L58
lab L57
	pnull
	var	2
	int	3
	line	114
	colm	12
	synt	any
	asgn
lab L58
	line	107
	colm	9
	synt	endifelse
lab L53
	line	100
	colm	9
	synt	endifelse
lab L49
	line	94
	colm	9
	synt	endifelse
lab L41
	line	86
	colm	9
	synt	endifelse
lab L35
	line	78
	colm	9
	synt	endifelse
lab L30
	line	71
	colm	9
	synt	endifelse
lab L24
	line	63
	colm	9
	synt	endifelse
lab L19
	line	56
	colm	9
	synt	endifelse
lab L14
	line	49
	colm	9
	synt	endifelse
lab L5
	line	39
	colm	4
	synt	endifelse
	unmark
lab L3
	mark	L61
	pnull
	var	1
	pnull
	var	0
	line	120
	colm	11
	synt	any
	field	get_param
	line	120
	colm	21
	synt	any
	invoke	0
	line	120
	colm	6
	synt	any
	asgn
	unmark
lab L61
	mark	L62
lab L63
	line	121
	colm	4
	synt	while
	mark0
	var	6
	var	1
	str	27
	line	121
	colm	27
	synt	any
	invoke	2
	unmark
	mark	L63
	pnull
	var	1
	pnull
	var	1
	line	122
	colm	13
	synt	any
	field	get_param
	line	122
	colm	23
	synt	any
	invoke	0
	line	122
	colm	9
	synt	any
	asgn
lab L64
	unmark
	goto	L63
lab L65
	line	121
	colm	4
	synt	endwhile
	unmark
lab L62
	mark	L66
	mark	L67
	var	7
	var	1
	pnull
	var	0
	line	124
	colm	27
	synt	any
	field	get_source
	line	124
	colm	38
	synt	any
	invoke	0
	var	2
	line	124
	colm	22
	synt	any
	invoke	3
	line	124
	colm	4
	synt	any
	pret
lab L67
	synt	any
	pfail
	unmark
lab L66
	pnull
	line	125
	colm	1
	synt	any
	pfail
	end
