version	U12.1.00
uid	menucomponent.u1-1786033108-0
record	gui__MenuComponent__state,23
	0,__s
	1,__m
	2,label
	3,label_x
	4,label_y
	5,label_h
	6,label_left_w
	7,label_right_w
	8,label_mid_w
	9,is_sub_menu_flag
	10,parent_component
	11,is_shaded_flag
	12,label_left
	13,img_left
	14,img_left_h
	15,img_left_w
	16,label_right
	17,img_right
	18,img_right_h
	19,img_right_w
	20,parent
	21,accel
	22,listeners
record	gui__MenuComponent__methods,63
	0,fatal
	1,set_parent
	2,set_label_left
	3,set_label_right
	4,set_img_left
	5,set_img_right
	6,is_shaded
	7,toggle_is_shaded
	8,set_is_shaded
	9,clear_is_shaded
	10,possibly_invalidate
	11,set_parent_component
	12,is_sub_menu
	13,get_label
	14,set_label
	15,display_label
	16,set_accel
	17,get_accel
	18,set_label_pos
	19,close_all
	20,succeed
	21,size_label
	22,set_one
	23,initially
	24,test_flag
	25,as_attrib
	26,int_val
	27,int_vals
	28,numeric_val
	29,numeric_vals
	30,cset_val
	31,string_val
	32,string_vals
	33,attrib
	34,set_fields
	35,field_error
	36,genlisteners
	37,fire
	38,connect
	39,disconnect_fromlist
	40,disconnect_all
	41,disconnect
	42,clone
	43,to_string
	44,equals
	45,hash_code
	46,get_class_name
	47,get_id
	48,get_class
	49,is_instance
	50,Type
	51,instanceOf
	52,className
	53,invoke
	54,getField
	55,setField
	56,hasField
	57,fieldNames
	58,genMethods
	59,hasMethod
	60,util__SetFields
	61,util__Connectable
	62,lang__Object
impl	local
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/setfields.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/connectable.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/object.u
link	graphics.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
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/property.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/error.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/format.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/stringbuff.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/cltable.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/comparator.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/md5.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/notification.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/listener.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/connectable.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/setfields.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/timezone.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/time.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/mapbytes.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/money.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/pushback.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/qsort.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/args.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/blockread.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/notifier.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/scan_util.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/misc_util.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/str_util.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/str_replacer.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/matrix_util.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	32
	0,000005,gui__MenuComponent_fatal,2
	1,000005,gui__MenuComponent_set_parent,2
	2,000005,gui__MenuComponent_set_label_left,2
	3,000005,gui__MenuComponent_set_label_right,2
	4,000005,gui__MenuComponent_set_img_left,2
	5,000005,gui__MenuComponent_set_img_right,2
	6,000005,gui__MenuComponent_is_shaded,1
	7,000005,gui__MenuComponent_toggle_is_shaded,1
	8,000005,gui__MenuComponent_set_is_shaded,1
	9,000005,gui__MenuComponent_clear_is_shaded,1
	10,000005,gui__MenuComponent_possibly_invalidate,1
	11,000005,gui__MenuComponent_set_parent_component,2
	12,000005,gui__MenuComponent_is_sub_menu,1
	13,000005,gui__MenuComponent_get_label,1
	14,000005,gui__MenuComponent_set_label,2
	15,000005,gui__MenuComponent_display_label,4
	16,000005,gui__MenuComponent_set_accel,2
	17,000005,gui__MenuComponent_get_accel,1
	18,000005,gui__MenuComponent_set_label_pos,3
	19,000005,gui__MenuComponent_close_all,2
	20,000005,gui__MenuComponent_succeed,2
	21,000005,gui__MenuComponent_size_label,1
	22,000005,gui__MenuComponent_set_one,3
	23,000005,gui__MenuComponent_initially,1
	24,000011,gui__MenuComponent__state,23
	25,000011,gui__MenuComponent__methods,63
	26,000001,gui__MenuComponent__oprec,0
	27,000001,util__SetFields__oprec,0
	28,000001,util__Connectable__oprec,0
	29,000001,lang__Object__oprec,0
	30,000005,gui__MenuComponent,0
	31,000005,gui__MenuComponentinitialize,0

proc gui__MenuComponent_fatal
	local	0,001000,self
	local	1,001000,s
	local	2,000000,stop
	local	3,000000,lang__get_class_name
	con	0,010000,37,147,165,151,040,072,040,145,162,162,157,162,040,167,150,151,154,163,164,040,160,162,157,143,145,163,163,151,156,147,040,157,142,152,145,143,164,040
	con	1,010000,3,040,072,040
	declend
	filen	menucomponent.icn
	line	46
	colm	11
	synt	any
	mark	L1
	var	2
	pnull
	pnull
	pnull
	str	0
	var	3
	var	0
	line	47
	colm	75
	synt	any
	invoke	1
	line	47
	colm	52
	synt	any
	cat
	str	1
	line	47
	colm	82
	synt	any
	cat
	var	1
	line	47
	colm	91
	synt	any
	cat
	line	47
	colm	11
	synt	any
	invoke	1
	unmark
lab L1
	pnull
	line	48
	colm	1
	synt	any
	pfail
	end
proc gui__MenuComponent_set_parent
	local	0,001000,self
	local	1,001000,x
	declend
	line	50
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	var	0
	line	51
	colm	18
	synt	any
	field	parent
	var	1
	line	51
	colm	26
	synt	any
	asgn
	line	51
	colm	7
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	52
	colm	1
	synt	any
	pfail
	end
proc gui__MenuComponent_set_label_left
	local	0,001000,self
	local	1,001000,x
	declend
	line	57
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	58
	colm	11
	synt	any
	field	label_left
	var	1
	line	58
	colm	23
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	0
	line	59
	colm	11
	synt	any
	field	possibly_invalidate
	line	59
	colm	31
	synt	any
	invoke	0
	unmark
lab L2
	pnull
	line	60
	colm	1
	synt	any
	pfail
	end
proc gui__MenuComponent_set_label_right
	local	0,001000,self
	local	1,001000,x
	declend
	line	65
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	66
	colm	11
	synt	any
	field	label_right
	var	1
	line	66
	colm	24
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	0
	line	67
	colm	11
	synt	any
	field	possibly_invalidate
	line	67
	colm	31
	synt	any
	invoke	0
	unmark
lab L2
	pnull
	line	68
	colm	1
	synt	any
	pfail
	end
proc gui__MenuComponent_set_img_left
	local	0,001000,self
	local	1,001000,x
	local	2,000000,gui__img_width
	local	3,000000,gui__img_height
	declend
	line	73
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	74
	colm	11
	synt	any
	field	img_left
	var	1
	line	74
	colm	21
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	0
	line	75
	colm	11
	synt	any
	field	img_left_w
	var	2
	pnull
	var	0
	line	75
	colm	45
	synt	any
	field	img_left
	line	75
	colm	40
	synt	any
	invoke	1
	line	75
	colm	23
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	0
	line	76
	colm	11
	synt	any
	field	img_left_h
	var	3
	pnull
	var	0
	line	76
	colm	46
	synt	any
	field	img_left
	line	76
	colm	41
	synt	any
	invoke	1
	line	76
	colm	23
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	0
	line	77
	colm	11
	synt	any
	field	possibly_invalidate
	line	77
	colm	31
	synt	any
	invoke	0
	unmark
lab L4
	pnull
	line	78
	colm	1
	synt	any
	pfail
	end
proc gui__MenuComponent_set_img_right
	local	0,001000,self
	local	1,001000,x
	local	2,000000,gui__img_width
	local	3,000000,gui__img_height
	declend
	line	83
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	84
	colm	11
	synt	any
	field	img_right
	var	1
	line	84
	colm	22
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	0
	line	85
	colm	11
	synt	any
	field	img_right_w
	var	2
	pnull
	var	0
	line	85
	colm	46
	synt	any
	field	img_right
	line	85
	colm	41
	synt	any
	invoke	1
	line	85
	colm	24
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	0
	line	86
	colm	11
	synt	any
	field	img_right_h
	var	3
	pnull
	var	0
	line	86
	colm	47
	synt	any
	field	img_right
	line	86
	colm	42
	synt	any
	invoke	1
	line	86
	colm	24
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	0
	line	87
	colm	11
	synt	any
	field	possibly_invalidate
	line	87
	colm	31
	synt	any
	invoke	0
	unmark
lab L4
	pnull
	line	88
	colm	1
	synt	any
	pfail
	end
proc gui__MenuComponent_is_shaded
	local	0,001000,self
	declend
	line	93
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	var	0
	line	94
	colm	19
	synt	any
	field	is_shaded_flag
	line	94
	colm	14
	synt	any
	nonnull
	line	94
	colm	7
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	95
	colm	1
	synt	any
	pfail
	end
proc gui__MenuComponent_toggle_is_shaded
	local	0,001000,self
	con	0,002000,1,1
	declend
	line	101
	colm	11
	synt	any
	mark	L1
	line	102
	colm	7
	synt	ifelse
	mark	L2
	pnull
	pnull
	var	0
	line	102
	colm	15
	synt	any
	field	is_shaded_flag
	line	102
	colm	10
	synt	any
	null
	unmark
	pnull
	pnull
	var	0
	line	103
	colm	14
	synt	any
	field	is_shaded_flag
	int	0
	line	103
	colm	30
	synt	any
	asgn
	goto	L3
lab L2
	pnull
	pnull
	var	0
	line	105
	colm	14
	synt	any
	field	is_shaded_flag
	line	105
	colm	33
	synt	any
	keywd	null
	line	105
	colm	30
	synt	any
	asgn
lab L3
	line	102
	colm	7
	synt	endifelse
	unmark
lab L1
	mark	L4
	pnull
	var	0
	line	106
	colm	11
	synt	any
	field	possibly_invalidate
	line	106
	colm	31
	synt	any
	invoke	0
	unmark
lab L4
	pnull
	line	107
	colm	1
	synt	any
	pfail
	end
proc gui__MenuComponent_set_is_shaded
	local	0,001000,self
	con	0,002000,1,1
	declend
	line	112
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	113
	colm	11
	synt	any
	field	is_shaded_flag
	int	0
	line	113
	colm	27
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	0
	line	114
	colm	11
	synt	any
	field	possibly_invalidate
	line	114
	colm	31
	synt	any
	invoke	0
	unmark
lab L2
	pnull
	line	115
	colm	1
	synt	any
	pfail
	end
proc gui__MenuComponent_clear_is_shaded
	local	0,001000,self
	declend
	line	120
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	121
	colm	11
	synt	any
	field	is_shaded_flag
	line	121
	colm	30
	synt	any
	keywd	null
	line	121
	colm	27
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	0
	line	122
	colm	11
	synt	any
	field	possibly_invalidate
	line	122
	colm	31
	synt	any
	invoke	0
	unmark
lab L2
	pnull
	line	123
	colm	1
	synt	any
	pfail
	end
proc gui__MenuComponent_possibly_invalidate
	local	0,001000,self
	declend
	line	128
	colm	11
	synt	any
	mark	L1
	line	129
	colm	7
	synt	if
	mark0
	pnull
	pnull
	var	0
	line	129
	colm	15
	synt	any
	field	parent
	line	129
	colm	10
	synt	any
	null
	unmark
	pnull
	pnull
	pnull
	var	0
	line	130
	colm	16
	synt	any
	field	parent_component
	line	130
	colm	11
	synt	any
	nonnull
	line	130
	colm	34
	synt	any
	field	invalidate
	line	130
	colm	45
	synt	any
	invoke	0
	line	129
	colm	7
	synt	endif
	unmark
lab L1
	pnull
	line	131
	colm	1
	synt	any
	pfail
	end
proc gui__MenuComponent_set_parent_component
	local	0,001000,self
	local	1,001000,x
	declend
	line	133
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	var	0
	line	134
	colm	18
	synt	any
	field	parent_component
	var	1
	line	134
	colm	36
	synt	any
	asgn
	line	134
	colm	7
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	135
	colm	1
	synt	any
	pfail
	end
proc gui__MenuComponent_is_sub_menu
	local	0,001000,self
	declend
	line	137
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	var	0
	line	138
	colm	19
	synt	any
	field	is_sub_menu_flag
	line	138
	colm	14
	synt	any
	nonnull
	line	138
	colm	7
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	139
	colm	1
	synt	any
	pfail
	end
proc gui__MenuComponent_get_label
	local	0,001000,self
	declend
	line	144
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	var	0
	line	145
	colm	18
	synt	any
	field	label
	line	145
	colm	7
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	146
	colm	1
	synt	any
	pfail
	end
proc gui__MenuComponent_set_label
	local	0,001000,self
	local	1,001000,x
	declend
	line	151
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	var	0
	line	152
	colm	18
	synt	any
	field	label
	var	1
	line	152
	colm	25
	synt	any
	asgn
	line	152
	colm	7
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	153
	colm	1
	synt	any
	pfail
	end
proc gui__MenuComponent_display_label
	local	0,001000,self
	local	1,001000,lw
	local	2,001000,mw
	local	3,001000,rw
	local	4,000020,cw
	local	5,000000,gui__left_string
	local	6,000000,gui__DrawImageEx
	local	7,000000,gui__FilterRectangle
	con	0,002000,1,8
	con	1,002000,1,2
	declend
	line	159
	colm	11
	synt	any
	mark	L1
	pnull
	var	4
	pnull
	pnull
	var	0
	line	161
	colm	17
	synt	any
	field	parent_component
	line	161
	colm	34
	synt	any
	field	cbwin
	line	161
	colm	10
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	line	166
	colm	7
	synt	ifelse
	mark	L3
	pnull
	pnull
	var	0
	line	166
	colm	15
	synt	any
	field	label_left
	line	166
	colm	10
	synt	any
	nonnull
	unmark
	var	5
	var	4
	pnull
	pnull
	var	0
	line	167
	colm	34
	synt	any
	field	label_x
	int	0
	line	167
	colm	42
	synt	any
	plus
	pnull
	pnull
	var	0
	line	167
	colm	49
	synt	any
	field	label_y
	pnull
	pnull
	var	0
	line	167
	colm	63
	synt	any
	field	label_h
	int	1
	line	167
	colm	72
	synt	any
	div
	line	167
	colm	57
	synt	any
	plus
	pnull
	var	0
	line	167
	colm	81
	synt	any
	field	label_left
	line	167
	colm	26
	synt	any
	invoke	4
	goto	L4
lab L3
	line	168
	colm	12
	synt	if
	mark0
	pnull
	pnull
	var	0
	line	168
	colm	20
	synt	any
	field	img_left
	line	168
	colm	15
	synt	any
	nonnull
	unmark
	var	6
	var	4
	pnull
	pnull
	var	0
	line	169
	colm	34
	synt	any
	field	label_x
	int	0
	line	169
	colm	42
	synt	any
	plus
	pnull
	pnull
	var	0
	line	169
	colm	49
	synt	any
	field	label_y
	pnull
	pnull
	pnull
	var	0
	line	169
	colm	64
	synt	any
	field	label_h
	pnull
	var	0
	line	169
	colm	79
	synt	any
	field	img_left_h
	line	169
	colm	73
	synt	any
	minus
	int	1
	line	169
	colm	91
	synt	any
	div
	line	169
	colm	57
	synt	any
	plus
	pnull
	var	0
	line	169
	colm	98
	synt	any
	field	img_left
	line	169
	colm	26
	synt	any
	invoke	4
	line	168
	colm	12
	synt	endif
lab L4
	line	166
	colm	7
	synt	endifelse
	unmark
lab L2
	mark	L5
	line	174
	colm	7
	synt	ifelse
	mark	L6
	pnull
	pnull
	var	0
	line	174
	colm	15
	synt	any
	field	label_right
	line	174
	colm	10
	synt	any
	nonnull
	unmark
	var	5
	var	4
	pnull
	pnull
	pnull
	var	0
	line	175
	colm	34
	synt	any
	field	label_x
	var	1
	line	175
	colm	42
	synt	any
	plus
	var	2
	line	175
	colm	45
	synt	any
	plus
	pnull
	pnull
	var	0
	line	175
	colm	54
	synt	any
	field	label_y
	pnull
	pnull
	var	0
	line	175
	colm	69
	synt	any
	field	label_h
	int	1
	line	175
	colm	78
	synt	any
	div
	line	175
	colm	63
	synt	any
	plus
	pnull
	var	0
	line	175
	colm	87
	synt	any
	field	label_right
	line	175
	colm	26
	synt	any
	invoke	4
	goto	L7
lab L6
	line	176
	colm	12
	synt	if
	mark0
	pnull
	pnull
	var	0
	line	176
	colm	20
	synt	any
	field	img_right
	line	176
	colm	15
	synt	any
	nonnull
	unmark
	var	6
	var	4
	pnull
	pnull
	pnull
	var	0
	line	177
	colm	34
	synt	any
	field	label_x
	var	1
	line	177
	colm	42
	synt	any
	plus
	var	2
	line	177
	colm	45
	synt	any
	plus
	pnull
	pnull
	var	0
	line	177
	colm	54
	synt	any
	field	label_y
	pnull
	pnull
	pnull
	var	0
	line	177
	colm	70
	synt	any
	field	label_h
	pnull
	var	0
	line	177
	colm	85
	synt	any
	field	img_right_h
	line	177
	colm	79
	synt	any
	minus
	int	1
	line	177
	colm	98
	synt	any
	div
	line	177
	colm	63
	synt	any
	plus
	pnull
	var	0
	line	177
	colm	105
	synt	any
	field	img_right
	line	177
	colm	26
	synt	any
	invoke	4
	line	176
	colm	12
	synt	endif
lab L7
	line	174
	colm	7
	synt	endifelse
	unmark
lab L5
	mark	L8
	var	5
	var	4
	pnull
	pnull
	pnull
	var	0
	line	182
	colm	31
	synt	any
	field	label_x
	var	1
	line	182
	colm	39
	synt	any
	plus
	int	0
	line	182
	colm	42
	synt	any
	plus
	pnull
	pnull
	var	0
	line	182
	colm	50
	synt	any
	field	label_y
	pnull
	pnull
	var	0
	line	182
	colm	65
	synt	any
	field	label_h
	int	1
	line	182
	colm	74
	synt	any
	div
	line	182
	colm	59
	synt	any
	plus
	pnull
	var	0
	line	182
	colm	83
	synt	any
	field	label
	pnull
	var	0
	line	182
	colm	95
	synt	any
	field	accel
	line	182
	colm	23
	synt	any
	invoke	5
	unmark
lab L8
	mark	L9
	line	187
	colm	7
	synt	if
	mark0
	pnull
	pnull
	var	0
	line	187
	colm	15
	synt	any
	field	is_shaded_flag
	line	187
	colm	10
	synt	any
	nonnull
	unmark
	var	7
	var	4
	pnull
	var	0
	line	188
	colm	38
	synt	any
	field	label_x
	pnull
	var	0
	line	188
	colm	51
	synt	any
	field	label_y
	pnull
	pnull
	var	2
	var	1
	line	188
	colm	62
	synt	any
	plus
	var	3
	line	188
	colm	66
	synt	any
	plus
	pnull
	var	0
	line	188
	colm	76
	synt	any
	field	label_h
	line	188
	colm	30
	synt	any
	invoke	5
	line	187
	colm	7
	synt	endif
	unmark
lab L9
	pnull
	line	189
	colm	1
	synt	any
	pfail
	end
proc gui__MenuComponent_set_accel
	local	0,001000,self
	local	1,001000,k
	declend
	line	196
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	197
	colm	11
	synt	any
	field	accel
	var	1
	line	197
	colm	18
	synt	any
	asgn
	unmark
lab L1
	pnull
	line	198
	colm	1
	synt	any
	pfail
	end
proc gui__MenuComponent_get_accel
	local	0,001000,self
	declend
	line	203
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	var	0
	line	204
	colm	18
	synt	any
	field	accel
	line	204
	colm	7
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	205
	colm	1
	synt	any
	pfail
	end
proc gui__MenuComponent_set_label_pos
	local	0,001000,self
	local	1,001000,x
	local	2,001000,y
	declend
	line	210
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	211
	colm	11
	synt	any
	field	label_x
	var	1
	line	211
	colm	20
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	0
	line	212
	colm	11
	synt	any
	field	label_y
	var	2
	line	212
	colm	20
	synt	any
	asgn
	unmark
lab L2
	pnull
	line	213
	colm	1
	synt	any
	pfail
	end
proc gui__MenuComponent_close_all
	local	0,001000,self
	local	1,001000,discard
	declend
	line	218
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	219
	colm	11
	synt	any
	field	parent_component
	line	219
	colm	28
	synt	any
	field	set_which_open
	line	219
	colm	43
	synt	any
	invoke	0
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	0
	line	220
	colm	11
	synt	any
	field	parent_component
	line	220
	colm	28
	synt	any
	field	unique_end
	var	1
	line	220
	colm	39
	synt	any
	invoke	1
	unmark
lab L2
	pnull
	line	221
	colm	1
	synt	any
	pfail
	end
proc gui__MenuComponent_succeed
	local	0,001000,self
	local	1,001000,ev
	con	0,002000,1,1
	con	1,002000,2,60
	declend
	line	226
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	line	227
	colm	11
	synt	any
	field	close_all
	int	0
	line	227
	colm	21
	synt	any
	invoke	1
	unmark
lab L1
	mark	L2
	pnull
	var	0
	line	228
	colm	11
	synt	any
	field	fire
	int	1
	var	1
	line	228
	colm	16
	synt	any
	invoke	2
	unmark
lab L2
	pnull
	line	229
	colm	1
	synt	any
	pfail
	end
proc gui__MenuComponent_size_label
	local	0,001000,self
	local	1,000020,cw
	local	2,000000,WAttrib
	local	3,000000,TextWidth
	con	0,010000,18,156,157,040,154,141,142,145,154,040,163,160,145,143,151,146,151,145,144
	con	1,010000,7,146,150,145,151,147,150,164
	con	2,002000,1,2
	con	3,002000,1,5
	con	4,002000,1,8
	con	5,002000,1,0
	declend
	line	234
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	pnull
	pnull
	var	0
	line	236
	colm	17
	synt	any
	field	parent_component
	line	236
	colm	34
	synt	any
	field	cwin
	line	236
	colm	10
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	line	238
	colm	7
	synt	if
	mark0
	pnull
	pnull
	var	0
	line	238
	colm	15
	synt	any
	field	label
	line	238
	colm	10
	synt	any
	null
	unmark
	pnull
	var	0
	line	239
	colm	14
	synt	any
	field	fatal
	str	0
	line	239
	colm	20
	synt	any
	invoke	1
	line	238
	colm	7
	synt	endif
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	0
	line	241
	colm	11
	synt	any
	field	label_h
	pnull
	var	2
	var	1
	str	1
	line	241
	colm	30
	synt	any
	invoke	2
	pnull
	int	2
	int	3
	line	241
	colm	50
	synt	any
	mult
	line	241
	colm	46
	synt	any
	plus
	line	241
	colm	20
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	line	246
	colm	7
	synt	ifelse
	mark	L5
	pnull
	pnull
	var	0
	line	246
	colm	15
	synt	any
	field	label_left
	line	246
	colm	10
	synt	any
	nonnull
	unmark
	pnull
	pnull
	var	0
	line	247
	colm	14
	synt	any
	field	label_left_w
	pnull
	var	3
	var	1
	pnull
	var	0
	line	247
	colm	49
	synt	any
	field	label_left
	line	247
	colm	40
	synt	any
	invoke	2
	int	4
	line	247
	colm	62
	synt	any
	plus
	line	247
	colm	28
	synt	any
	asgn
	goto	L6
lab L5
	line	248
	colm	12
	synt	ifelse
	mark	L7
	pnull
	pnull
	var	0
	line	248
	colm	20
	synt	any
	field	img_left
	line	248
	colm	15
	synt	any
	nonnull
	unmark
	mark	L9
	pnull
	pnull
	var	0
	line	249
	colm	14
	synt	any
	field	label_left_w
	pnull
	pnull
	var	0
	line	249
	colm	36
	synt	any
	field	img_left_w
	int	4
	line	249
	colm	48
	synt	any
	plus
	line	249
	colm	28
	synt	any
	asgn
	unmark
lab L9
	pnull
	pnull
	var	0
	line	250
	colm	14
	synt	any
	field	label_h
	dup
	pnull
	pnull
	var	0
	line	250
	colm	32
	synt	any
	field	img_left_h
	pnull
	int	2
	int	3
	line	250
	colm	48
	synt	any
	mult
	line	250
	colm	44
	synt	any
	plus
	line	250
	colm	23
	synt	any
	numlt
	asgn
	goto	L8
lab L7
	pnull
	pnull
	var	0
	line	252
	colm	14
	synt	any
	field	label_left_w
	int	5
	line	252
	colm	28
	synt	any
	asgn
lab L8
	line	248
	colm	12
	synt	endifelse
lab L6
	line	246
	colm	7
	synt	endifelse
	unmark
lab L4
	mark	L10
	line	257
	colm	7
	synt	ifelse
	mark	L11
	pnull
	pnull
	var	0
	line	257
	colm	15
	synt	any
	field	label_right
	line	257
	colm	10
	synt	any
	nonnull
	unmark
	pnull
	pnull
	var	0
	line	258
	colm	14
	synt	any
	field	label_right_w
	pnull
	var	3
	var	1
	pnull
	var	0
	line	258
	colm	50
	synt	any
	field	label_right
	line	258
	colm	41
	synt	any
	invoke	2
	int	4
	line	258
	colm	64
	synt	any
	plus
	line	258
	colm	29
	synt	any
	asgn
	goto	L12
lab L11
	line	259
	colm	12
	synt	ifelse
	mark	L13
	pnull
	pnull
	var	0
	line	259
	colm	20
	synt	any
	field	img_right
	line	259
	colm	15
	synt	any
	nonnull
	unmark
	mark	L15
	pnull
	pnull
	var	0
	line	260
	colm	14
	synt	any
	field	label_right_w
	pnull
	pnull
	var	0
	line	260
	colm	37
	synt	any
	field	img_right_w
	int	4
	line	260
	colm	50
	synt	any
	plus
	line	260
	colm	29
	synt	any
	asgn
	unmark
lab L15
	pnull
	pnull
	var	0
	line	261
	colm	14
	synt	any
	field	label_h
	dup
	pnull
	pnull
	var	0
	line	261
	colm	32
	synt	any
	field	img_right_h
	pnull
	int	2
	int	3
	line	261
	colm	49
	synt	any
	mult
	line	261
	colm	45
	synt	any
	plus
	line	261
	colm	23
	synt	any
	numlt
	asgn
	goto	L14
lab L13
	pnull
	pnull
	var	0
	line	263
	colm	14
	synt	any
	field	label_right_w
	int	5
	line	263
	colm	29
	synt	any
	asgn
lab L14
	line	259
	colm	12
	synt	endifelse
lab L12
	line	257
	colm	7
	synt	endifelse
	unmark
lab L10
	mark	L16
	pnull
	pnull
	var	0
	line	268
	colm	11
	synt	any
	field	label_mid_w
	pnull
	var	3
	var	1
	pnull
	var	0
	line	268
	colm	45
	synt	any
	field	label
	line	268
	colm	36
	synt	any
	invoke	2
	pnull
	int	2
	int	4
	line	268
	colm	57
	synt	any
	mult
	line	268
	colm	53
	synt	any
	plus
	line	268
	colm	24
	synt	any
	asgn
	unmark
lab L16
	pnull
	line	269
	colm	1
	synt	any
	pfail
	end
proc gui__MenuComponent_set_one
	local	0,001000,self
	local	1,001000,attr
	local	2,001000,val
	con	0,010000,5,154,141,142,145,154
	con	1,010000,10,154,141,142,145,154,137,154,145,146,164
	con	2,010000,11,154,141,142,145,154,137,162,151,147,150,164
	con	3,010000,5,141,143,143,145,154
	con	4,010000,9,151,163,137,163,150,141,144,145,144
	con	5,010000,18,125,156,153,156,157,167,156,040,141,164,164,162,151,142,165,164,145,040
	declend
	line	271
	colm	11
	synt	any
	mark	L1
	line	272
	colm	7
	synt	case
	mark0
	var	1
	eret
	mark	L3
	ccase
	str	0
	line	273
	colm	18
	synt	any
	eqv
	unmark
	pop
	pnull
	var	0
	line	273
	colm	24
	synt	any
	field	set_label
	pnull
	var	0
	line	273
	colm	39
	synt	any
	field	string_val
	var	1
	var	2
	line	273
	colm	50
	synt	any
	invoke	2
	line	273
	colm	34
	synt	any
	invoke	1
	goto	L2
lab L3
	mark	L4
	ccase
	str	1
	line	274
	colm	23
	synt	any
	eqv
	unmark
	pop
	pnull
	var	0
	line	274
	colm	29
	synt	any
	field	set_label_left
	pnull
	var	0
	line	274
	colm	49
	synt	any
	field	string_val
	var	1
	var	2
	line	274
	colm	60
	synt	any
	invoke	2
	line	274
	colm	44
	synt	any
	invoke	1
	goto	L2
lab L4
	mark	L5
	ccase
	str	2
	line	275
	colm	24
	synt	any
	eqv
	unmark
	pop
	pnull
	var	0
	line	275
	colm	30
	synt	any
	field	set_label_right
	pnull
	var	0
	line	275
	colm	51
	synt	any
	field	string_val
	var	1
	var	2
	line	275
	colm	62
	synt	any
	invoke	2
	line	275
	colm	46
	synt	any
	invoke	1
	goto	L2
lab L5
	mark	L6
	ccase
	str	3
	line	276
	colm	18
	synt	any
	eqv
	unmark
	pop
	pnull
	var	0
	line	276
	colm	24
	synt	any
	field	set_accel
	pnull
	var	0
	line	276
	colm	39
	synt	any
	field	string_val
	var	1
	var	2
	line	276
	colm	50
	synt	any
	invoke	2
	line	276
	colm	34
	synt	any
	invoke	1
	goto	L2
lab L6
	mark	L7
	ccase
	str	4
	line	277
	colm	22
	synt	any
	eqv
	unmark
	pop
	line	278
	colm	13
	synt	ifelse
	mark	L8
	pnull
	var	0
	line	278
	colm	20
	synt	any
	field	test_flag
	var	1
	var	2
	line	278
	colm	30
	synt	any
	invoke	2
	unmark
	pnull
	var	0
	line	279
	colm	20
	synt	any
	field	set_is_shaded
	line	279
	colm	34
	synt	any
	invoke	0
	goto	L9
lab L8
	pnull
	var	0
	line	281
	colm	20
	synt	any
	field	clear_is_shaded
	line	281
	colm	36
	synt	any
	invoke	0
lab L9
	line	278
	colm	13
	synt	endifelse
	goto	L2
lab L7
	pop
	pnull
	var	0
	line	282
	colm	24
	synt	any
	field	field_error
	pnull
	str	5
	var	1
	line	282
	colm	57
	synt	any
	cat
	line	282
	colm	36
	synt	any
	invoke	1
lab L2
	line	272
	colm	7
	synt	endcase
	unmark
lab L1
	pnull
	line	284
	colm	1
	synt	any
	pfail
	end
proc gui__MenuComponent_initially
	local	0,001000,self
	declend
	line	286
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	287
	colm	11
	synt	any
	field	util__Connectable
	line	287
	colm	29
	synt	any
	field	initially
	line	287
	colm	39
	synt	any
	invoke	0
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	line	288
	colm	7
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	289
	colm	1
	synt	any
	pfail
	end
proc gui__MenuComponent
	local	0,000020,self
	local	1,000020,clone
	local	2,000000,gui__MenuComponent__oprec
	local	3,000000,gui__MenuComponentinitialize
	local	4,000000,util__SetFields__oprec
	local	5,000000,util__SetFieldsinitialize
	local	6,000000,util__Connectable__oprec
	local	7,000000,util__Connectableinitialize
	local	8,000000,lang__Object__oprec
	local	9,000000,lang__Objectinitialize
	local	10,000000,gui__MenuComponent__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	2
	line	8
	colm	6
	synt	any
	null
	unmark
	var	3
	line	8
	colm	66
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	4
	line	9
	colm	6
	synt	any
	null
	unmark
	var	5
	line	9
	colm	60
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	2
	line	10
	colm	28
	synt	any
	field	util__SetFields
	var	4
	line	10
	colm	45
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	6
	line	11
	colm	6
	synt	any
	null
	unmark
	var	7
	line	11
	colm	64
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	mark	L8
	pnull
	pnull
	var	2
	line	12
	colm	28
	synt	any
	field	util__Connectable
	var	6
	line	12
	colm	47
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	line	13
	colm	3
	synt	if
	mark0
	pnull
	var	8
	line	13
	colm	6
	synt	any
	null
	unmark
	var	9
	line	13
	colm	54
	synt	any
	invoke	0
	line	13
	colm	3
	synt	endif
	unmark
lab L9
	pnull
	pnull
	var	2
	line	14
	colm	28
	synt	any
	field	lang__Object
	var	8
	line	14
	colm	42
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L10
	pnull
	var	0
	var	10
	line	16
	colm	37
	synt	any
	keywd	null
	var	2
	line	16
	colm	36
	synt	any
	invoke	2
	line	16
	colm	8
	synt	any
	asgn
	unmark
lab L10
	mark	L11
	pnull
	pnull
	var	0
	line	17
	colm	7
	synt	any
	field	__s
	var	0
	line	17
	colm	12
	synt	any
	asgn
	unmark
lab L11
	mark	L12
	mark	L13
	pnull
	pnull
	var	0
	line	18
	colm	7
	synt	any
	field	__m
	line	18
	colm	11
	synt	any
	field	initially
	var	0
	pnull
	line	18
	colm	21
	synt	any
	invoke	2
	line	18
	colm	29
	synt	any
	esusp
	goto	L14
lab L13
	line	18
	colm	31
	synt	any
	pfail
lab L14
	unmark
lab L12
	mark	L15
	mark	L16
	var	0
	line	19
	colm	3
	synt	any
	pret
lab L16
	synt	any
	pfail
	unmark
lab L15
	pnull
	line	20
	colm	1
	synt	any
	pfail
	end
proc gui__MenuComponentinitialize
	local	0,000000,gui__MenuComponent__oprec
	local	1,000000,gui__MenuComponent__methods
	local	2,000000,gui__MenuComponent_fatal
	local	3,000000,gui__MenuComponent_set_parent
	local	4,000000,gui__MenuComponent_set_label_left
	local	5,000000,gui__MenuComponent_set_label_right
	local	6,000000,gui__MenuComponent_set_img_left
	local	7,000000,gui__MenuComponent_set_img_right
	local	8,000000,gui__MenuComponent_is_shaded
	local	9,000000,gui__MenuComponent_toggle_is_shaded
	local	10,000000,gui__MenuComponent_set_is_shaded
	local	11,000000,gui__MenuComponent_clear_is_shaded
	local	12,000000,gui__MenuComponent_possibly_invalidate
	local	13,000000,gui__MenuComponent_set_parent_component
	local	14,000000,gui__MenuComponent_is_sub_menu
	local	15,000000,gui__MenuComponent_get_label
	local	16,000000,gui__MenuComponent_set_label
	local	17,000000,gui__MenuComponent_display_label
	local	18,000000,gui__MenuComponent_set_accel
	local	19,000000,gui__MenuComponent_get_accel
	local	20,000000,gui__MenuComponent_set_label_pos
	local	21,000000,gui__MenuComponent_close_all
	local	22,000000,gui__MenuComponent_succeed
	local	23,000000,gui__MenuComponent_size_label
	local	24,000000,gui__MenuComponent_set_one
	local	25,000000,gui__MenuComponent_initially
	local	26,000000,util__SetFields_test_flag
	local	27,000000,util__SetFields_as_attrib
	local	28,000000,util__SetFields_int_val
	local	29,000000,util__SetFields_int_vals
	local	30,000000,util__SetFields_numeric_val
	local	31,000000,util__SetFields_numeric_vals
	local	32,000000,util__SetFields_cset_val
	local	33,000000,util__SetFields_string_val
	local	34,000000,util__SetFields_string_vals
	local	35,000000,util__SetFields_attrib
	local	36,000000,util__SetFields_set_fields
	local	37,000000,util__SetFields_field_error
	local	38,000000,util__Connectable_genlisteners
	local	39,000000,util__Connectable_fire
	local	40,000000,util__Connectable_connect
	local	41,000000,util__Connectable_disconnect_fromlist
	local	42,000000,util__Connectable_disconnect_all
	local	43,000000,util__Connectable_disconnect
	local	44,000000,lang__Object_clone
	local	45,000000,lang__Object_to_string
	local	46,000000,lang__Object_equals
	local	47,000000,lang__Object_hash_code
	local	48,000000,lang__Object_get_class_name
	local	49,000000,lang__Object_get_id
	local	50,000000,lang__Object_get_class
	local	51,000000,lang__Object_is_instance
	local	52,000000,lang__Object_Type
	local	53,000000,lang__Object_instanceOf
	local	54,000000,lang__Object_className
	local	55,000000,lang__Object_invoke
	local	56,000000,lang__Object_getField
	local	57,000000,lang__Object_setField
	local	58,000000,lang__Object_hasField
	local	59,000000,lang__Object_fieldNames
	local	60,000000,lang__Object_genMethods
	local	61,000000,lang__Object_hasMethod
	declend
	line	22
	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
	var	34
	var	35
	var	36
	var	37
	var	38
	var	39
	var	40
	var	41
	var	42
	var	43
	var	44
	var	45
	var	46
	var	47
	var	48
	var	49
	var	50
	var	51
	var	52
	var	53
	var	54
	var	55
	var	56
	var	57
	var	58
	var	59
	var	60
	var	61
	line	23
	colm	67
	synt	any
	invoke	60
	line	23
	colm	37
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	24
	colm	1
	synt	any
	pfail
	end
