version	U12.1.00
uid	gui_utils.u1-1786033126-0
record	guiwidgets__displayAreaSize,2
	0,width
	1,height
record	guiwidgets__Gui__state,11
	0,__s
	1,__m
	2,editColor
	3,name
	4,methods
	5,methods_map
	6,variables
	7,state_instance
	8,oprec
	9,supers
	10,implemented_classes
record	guiwidgets__Gui__methods,21
	0,setEditColor
	1,getEditColor
	2,mkLabel
	3,mkField
	4,mkButton
	5,mkEditArea
	6,mkArea
	7,mkAreaSingle
	8,mkCheckBox
	9,mkBorder
	10,mkMenuItem
	11,mkMenu
	12,mkMenuBar
	13,initially
	14,get_name
	15,get_methods
	16,get_method
	17,get_supers
	18,get_implemented_classes
	19,get_variables
	20,lang__Class
impl	local
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/class.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/gui/dispatcher.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/gui/drag.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/gui/guiprocs.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/gui/ticker.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/gui/component.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/gui/panel.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/gui/border.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/gui/toggle.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/gui/button.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/gui/buttongroup.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/gui/checkbox.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/gui/checkboxgroup.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/gui/menucomponent.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/gui/checkboxmenuitem.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/gui/iconbutton.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/gui/label.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/gui/circulate.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/gui/clipboard.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/gui/scrollbar.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/gui/scrollarea.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/gui/componentscrollarea.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/gui/dialog.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/gui/drawscrollarea.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/gui/linebasedscrollarea.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/gui/displayscrollarea.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/gui/selectablescrollarea.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/gui/textlist.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/gui/dropdown.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/gui/textfield.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/gui/textbutton.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/gui/stddlg.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/gui/editabletextlist.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/gui/editlist.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/gui/spin.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/gui/editspin.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/gui/filedialog.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/gui/tabset.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/gui/tabitem.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/gui/table.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/gui/tablecolumn.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/gui/printdlg.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/gui/icon.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/gui/image.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/gui/line.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/gui/list.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/gui/staticspin.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/gui/listspin.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/gui/submenu.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/gui/menu.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/gui/menubar.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/gui/menubutton.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/gui/menuseparator.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/gui/node.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/gui/overlayitem.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/gui/overlayset.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/gui/popupmenu.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/gui/progressbar.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/gui/rangespin.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/gui/sizer.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/gui/slider.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/gui/textdisplay.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/gui/textmenuitem.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/gui/toggleiconbutton.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/gui/toggletextbutton.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/gui/toolbar.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/gui/tree.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/gui/migration.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/gui/treetable.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
global	23
	0,000011,guiwidgets__displayAreaSize,2
	1,000005,guiwidgets__textAreaSize,2
	2,000005,guiwidgets__forceAreaSize,3
	3,000005,guiwidgets__Gui_setEditColor,2
	4,000005,guiwidgets__Gui_getEditColor,1
	5,000005,guiwidgets__Gui_mkLabel,6
	6,000005,guiwidgets__Gui_mkField,6
	7,000005,guiwidgets__Gui_mkButton,5
	8,000005,guiwidgets__Gui_mkEditArea,6
	9,000005,guiwidgets__Gui_mkArea,6
	10,000005,guiwidgets__Gui_mkAreaSingle,6
	11,000005,guiwidgets__Gui_mkCheckBox,4
	12,000005,guiwidgets__Gui_mkBorder,6
	13,000005,guiwidgets__Gui_mkMenuItem,2
	14,000005,guiwidgets__Gui_mkMenu,2
	15,000005,guiwidgets__Gui_mkMenuBar,3
	16,000005,guiwidgets__Gui_initially,1
	17,000011,guiwidgets__Gui__state,11
	18,000011,guiwidgets__Gui__methods,21
	19,000001,guiwidgets__Gui__oprec,0
	20,000001,lang__Class__oprec,0
	21,000005,guiwidgets__Gui,0
	22,000005,guiwidgets__Guiinitialize,0

proc guiwidgets__textAreaSize
	local	0,001000,w
	local	1,001000,text
	local	2,000020,lineHeight
	local	3,000020,spacing
	local	4,000020,lineWidth
	local	5,000020,lineSpace
	local	6,000020,line
	local	7,000000,WAttrib
	local	8,000000,TextWidth
	local	9,000000,guiwidgets__displayAreaSize
	con	0,010000,7,146,150,145,151,147,150,164
	con	1,010000,7,154,145,141,144,151,156,147
	con	2,002000,1,0
	con	3,002000,2,45
	con	4,002000,2,30
	declend
	filen	gui_utils.icn
	line	24
	colm	11
	synt	any
	mark	L1
	pnull
	var	2
	var	7
	var	0
	str	0
	line	25
	colm	32
	synt	any
	invoke	2
	line	25
	colm	22
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	3
	var	7
	var	0
	str	1
	line	26
	colm	32
	synt	any
	invoke	2
	line	26
	colm	22
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	4
	int	2
	line	27
	colm	22
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	5
	int	2
	line	28
	colm	22
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	line	31
	colm	5
	synt	every
	mark0
	pnull
	var	6
	pnull
	var	1
	line	31
	colm	19
	synt	any
	bang
	line	31
	colm	16
	synt	any
	asgn
	pop
	mark0
	mark	L8
	pnull
	var	4
	dup
	var	8
	var	0
	var	6
	line	32
	colm	32
	synt	any
	invoke	2
	line	32
	colm	19
	synt	any
	numlt
	asgn
	unmark
lab L8
	pnull
	var	5
	dup
	var	2
	line	33
	colm	19
	synt	any
	plus
	asgn
	unmark
lab L6
	efail
lab L7
	line	31
	colm	5
	synt	endevery
	unmark
lab L5
	mark	L9
	mark	L10
	var	9
	pnull
	var	4
	int	3
	line	37
	colm	49
	synt	any
	plus
	pnull
	var	5
	int	4
	line	37
	colm	62
	synt	any
	plus
	line	37
	colm	39
	synt	any
	invoke	2
	line	37
	colm	5
	synt	any
	pret
lab L10
	synt	any
	pfail
	unmark
lab L9
	pnull
	line	38
	colm	1
	synt	any
	pfail
	end
proc guiwidgets__forceAreaSize
	local	0,001000,aSize
	local	1,001000,minSize
	local	2,001000,maxSize
	declend
	line	43
	colm	12
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	45
	colm	10
	synt	any
	field	width
	dup
	pnull
	var	1
	line	45
	colm	29
	synt	any
	field	width
	line	45
	colm	18
	synt	any
	numlt
	asgn
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	0
	line	46
	colm	10
	synt	any
	field	width
	dup
	pnull
	var	2
	line	46
	colm	29
	synt	any
	field	width
	line	46
	colm	18
	synt	any
	numgt
	asgn
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	0
	line	48
	colm	10
	synt	any
	field	height
	dup
	pnull
	var	1
	line	48
	colm	29
	synt	any
	field	height
	line	48
	colm	18
	synt	any
	numlt
	asgn
	unmark
lab L3
	mark	L4
	pnull
	pnull
	var	0
	line	49
	colm	10
	synt	any
	field	height
	dup
	pnull
	var	2
	line	49
	colm	29
	synt	any
	field	height
	line	49
	colm	18
	synt	any
	numgt
	asgn
	unmark
lab L4
	mark	L5
	mark	L6
	var	0
	line	51
	colm	5
	synt	any
	pret
lab L6
	synt	any
	pfail
	unmark
lab L5
	pnull
	line	52
	colm	2
	synt	any
	pfail
	end
proc guiwidgets__Gui_setEditColor
	local	0,001000,self
	local	1,001000,color
	declend
	line	65
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	67
	colm	13
	synt	any
	field	editColor
	var	1
	line	67
	colm	23
	synt	any
	asgn
	unmark
lab L1
	pnull
	line	68
	colm	1
	synt	any
	pfail
	end
proc guiwidgets__Gui_getEditColor
	local	0,001000,self
	declend
	line	73
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	var	0
	line	74
	colm	20
	synt	any
	field	editColor
	line	74
	colm	9
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	75
	colm	1
	synt	any
	pfail
	end
proc guiwidgets__Gui_mkLabel
	local	0,001000,self
	local	1,001000,label
	local	2,001000,x
	local	3,001000,y
	local	4,001000,align
	local	5,001000,align2
	local	6,000020,lab
	local	7,000000,gui__Label
	con	0,010000,1,154
	con	1,010000,1,143
	declend
	line	80
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	4
	line	87
	colm	1
	synt	any
	null
	str	0
	line	87
	colm	8
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	5
	line	88
	colm	1
	synt	any
	null
	str	1
	line	88
	colm	9
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	6
	var	7
	line	87
	colm	25
	synt	any
	invoke	0
	line	87
	colm	12
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	6
	line	88
	colm	11
	synt	any
	field	set_pos
	var	2
	var	3
	line	88
	colm	19
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	pnull
	var	6
	line	89
	colm	11
	synt	any
	field	set_align
	var	4
	var	5
	line	89
	colm	21
	synt	any
	invoke	2
	unmark
lab L5
	mark	L6
	pnull
	var	6
	line	90
	colm	11
	synt	any
	field	set_internal_alignment
	var	4
	line	90
	colm	34
	synt	any
	invoke	1
	unmark
lab L6
	mark	L7
	pnull
	var	6
	line	91
	colm	11
	synt	any
	field	set_label
	var	1
	line	91
	colm	21
	synt	any
	invoke	1
	unmark
lab L7
	mark	L8
	mark	L9
	var	6
	line	92
	colm	8
	synt	any
	pret
lab L9
	synt	any
	pfail
	unmark
lab L8
	pnull
	line	93
	colm	1
	synt	any
	pfail
	end
proc guiwidgets__Gui_mkField
	local	0,001000,self
	local	1,001000,contents
	local	2,001000,x
	local	3,001000,y
	local	4,001000,dx
	local	5,001000,dy
	local	6,000020,field
	local	7,000000,gui__TextField
	con	0,010000,0
	con	1,010000,3,142,147,075
	declend
	line	98
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	1
	line	105
	colm	1
	synt	any
	null
	str	0
	line	105
	colm	11
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	6
	var	7
	line	108
	colm	31
	synt	any
	invoke	0
	line	108
	colm	14
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	6
	line	109
	colm	13
	synt	any
	field	set_attribs
	pnull
	str	1
	pnull
	var	0
	line	109
	colm	37
	synt	any
	field	editColor
	line	109
	colm	31
	synt	any
	cat
	line	109
	colm	25
	synt	any
	invoke	1
	unmark
lab L3
	mark	L4
	pnull
	var	6
	line	110
	colm	13
	synt	any
	field	set_pos
	var	2
	var	3
	line	110
	colm	21
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	pnull
	var	6
	line	111
	colm	13
	synt	any
	field	set_size
	var	4
	var	5
	line	111
	colm	22
	synt	any
	invoke	2
	unmark
lab L5
	mark	L6
	pnull
	var	6
	line	112
	colm	13
	synt	any
	field	set_draw_border
	line	112
	colm	29
	synt	any
	invoke	0
	unmark
lab L6
	mark	L7
	pnull
	var	6
	line	113
	colm	13
	synt	any
	field	set_contents
	var	1
	line	113
	colm	26
	synt	any
	invoke	1
	unmark
lab L7
	mark	L8
	mark	L9
	var	6
	line	114
	colm	8
	synt	any
	pret
lab L9
	synt	any
	pfail
	unmark
lab L8
	pnull
	line	115
	colm	1
	synt	any
	pfail
	end
proc guiwidgets__Gui_mkButton
	local	0,001000,self
	local	1,001000,label
	local	2,001000,x
	local	3,001000,y
	local	4,001000,align
	local	5,000020,button
	local	6,000000,gui__TextButton
	con	0,010000,1,143
	declend
	line	117
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	4
	line	123
	colm	1
	synt	any
	null
	str	0
	line	123
	colm	8
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	5
	var	6
	line	123
	colm	33
	synt	any
	invoke	0
	line	123
	colm	15
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	5
	line	124
	colm	14
	synt	any
	field	set_pos
	var	2
	var	3
	line	124
	colm	22
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	pnull
	var	5
	line	125
	colm	14
	synt	any
	field	set_label
	var	1
	line	125
	colm	24
	synt	any
	invoke	1
	unmark
lab L4
	mark	L5
	pnull
	var	5
	line	126
	colm	14
	synt	any
	field	set_internal_alignment
	var	4
	line	126
	colm	37
	synt	any
	invoke	1
	unmark
lab L5
	mark	L6
	mark	L7
	var	5
	line	127
	colm	8
	synt	any
	pret
lab L7
	synt	any
	pfail
	unmark
lab L6
	pnull
	line	128
	colm	1
	synt	any
	pfail
	end
proc guiwidgets__Gui_mkEditArea
	local	0,001000,self
	local	1,001000,contents
	local	2,001000,x
	local	3,001000,y
	local	4,001000,dx
	local	5,001000,dy
	local	6,000020,area
	local	7,000000,gui__EditableTextList
	con	0,010000,3,142,147,075
	declend
	line	133
	colm	11
	synt	any
	mark	L1
	pnull
	var	6
	var	7
	line	140
	colm	37
	synt	any
	invoke	0
	line	140
	colm	13
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	6
	line	141
	colm	12
	synt	any
	field	set_attribs
	pnull
	str	0
	pnull
	var	0
	line	141
	colm	36
	synt	any
	field	editColor
	line	141
	colm	30
	synt	any
	cat
	line	141
	colm	24
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	pnull
	var	6
	line	142
	colm	12
	synt	any
	field	set_pos
	var	2
	var	3
	line	142
	colm	20
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	pnull
	var	6
	line	143
	colm	12
	synt	any
	field	set_size
	var	4
	var	5
	line	143
	colm	21
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	pnull
	var	6
	line	144
	colm	12
	synt	any
	field	set_contents
	var	1
	line	144
	colm	25
	synt	any
	invoke	1
	unmark
lab L5
	mark	L6
	mark	L7
	var	6
	line	145
	colm	8
	synt	any
	pret
lab L7
	synt	any
	pfail
	unmark
lab L6
	pnull
	line	146
	colm	1
	synt	any
	pfail
	end
proc guiwidgets__Gui_mkArea
	local	0,001000,self
	local	1,001000,contents
	local	2,001000,x
	local	3,001000,y
	local	4,001000,dx
	local	5,001000,dy
	local	6,000020,area
	local	7,000000,gui__TextList
	declend
	line	151
	colm	11
	synt	any
	mark	L1
	pnull
	var	6
	var	7
	line	158
	colm	29
	synt	any
	invoke	0
	line	158
	colm	13
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	6
	line	159
	colm	12
	synt	any
	field	set_pos
	var	2
	var	3
	line	159
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	var	6
	line	160
	colm	12
	synt	any
	field	set_size
	var	4
	var	5
	line	160
	colm	21
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	pnull
	var	6
	line	161
	colm	12
	synt	any
	field	set_contents
	var	1
	line	161
	colm	25
	synt	any
	invoke	1
	unmark
lab L4
	mark	L5
	mark	L6
	var	6
	line	162
	colm	8
	synt	any
	pret
lab L6
	synt	any
	pfail
	unmark
lab L5
	pnull
	line	163
	colm	1
	synt	any
	pfail
	end
proc guiwidgets__Gui_mkAreaSingle
	local	0,001000,self
	local	1,001000,contents
	local	2,001000,x
	local	3,001000,y
	local	4,001000,dx
	local	5,001000,dy
	local	6,000020,area
	declend
	line	168
	colm	11
	synt	any
	mark	L1
	pnull
	var	6
	pnull
	var	0
	line	175
	colm	20
	synt	any
	field	mkArea
	var	1
	var	2
	var	3
	var	4
	var	5
	line	175
	colm	27
	synt	any
	invoke	5
	line	175
	colm	13
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	6
	line	176
	colm	12
	synt	any
	field	set_select_one
	line	176
	colm	27
	synt	any
	invoke	0
	unmark
lab L2
	mark	L3
	mark	L4
	var	6
	line	177
	colm	8
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	178
	colm	1
	synt	any
	pfail
	end
proc guiwidgets__Gui_mkCheckBox
	local	0,001000,self
	local	1,001000,label
	local	2,001000,x
	local	3,001000,y
	local	4,000020,box
	local	5,000000,gui__CheckBox
	declend
	line	183
	colm	11
	synt	any
	mark	L1
	pnull
	var	4
	var	5
	line	188
	colm	28
	synt	any
	invoke	0
	line	188
	colm	12
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	4
	line	189
	colm	11
	synt	any
	field	set_pos
	var	2
	var	3
	line	189
	colm	19
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	pnull
	var	4
	line	190
	colm	11
	synt	any
	field	set_label
	var	1
	line	190
	colm	21
	synt	any
	invoke	1
	unmark
lab L3
	mark	L4
	mark	L5
	var	4
	line	191
	colm	8
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	192
	colm	1
	synt	any
	pfail
	end
proc guiwidgets__Gui_mkBorder
	local	0,001000,self
	local	1,001000,x
	local	2,001000,y
	local	3,001000,dx
	local	4,001000,dy
	local	5,001000,align
	local	6,000020,border
	local	7,000000,gui__Border
	con	0,010000,1,154
	declend
	line	197
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	5
	line	204
	colm	1
	synt	any
	null
	str	0
	line	204
	colm	8
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	6
	var	7
	line	204
	colm	30
	synt	any
	invoke	0
	line	204
	colm	16
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	6
	line	205
	colm	15
	synt	any
	field	set_pos
	var	1
	var	2
	line	205
	colm	23
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	pnull
	var	6
	line	206
	colm	15
	synt	any
	field	set_size
	var	3
	var	4
	line	206
	colm	24
	synt	any
	invoke	2
	unmark
lab L4
	mark	L5
	pnull
	var	6
	line	207
	colm	15
	synt	any
	field	set_internal_alignment
	var	5
	line	207
	colm	38
	synt	any
	invoke	1
	unmark
lab L5
	mark	L6
	mark	L7
	var	6
	line	208
	colm	9
	synt	any
	pret
lab L7
	synt	any
	pfail
	unmark
lab L6
	pnull
	line	209
	colm	1
	synt	any
	pfail
	end
proc guiwidgets__Gui_mkMenuItem
	local	0,001000,self
	local	1,001000,label
	local	2,000020,item
	local	3,000000,gui__TextMenuItem
	declend
	line	214
	colm	11
	synt	any
	mark	L1
	pnull
	var	2
	var	3
	line	217
	colm	34
	synt	any
	invoke	0
	line	217
	colm	14
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	2
	line	218
	colm	13
	synt	any
	field	set_label
	var	1
	line	218
	colm	23
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	mark	L4
	var	2
	line	219
	colm	9
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	220
	colm	1
	synt	any
	pfail
	end
proc guiwidgets__Gui_mkMenu
	local	0,001000,self
	local	1,001000,label
	local	2,000020,menu
	local	3,000000,gui__Menu
	declend
	line	225
	colm	11
	synt	any
	mark	L1
	pnull
	var	2
	var	3
	line	228
	colm	26
	synt	any
	invoke	0
	line	228
	colm	14
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	2
	line	229
	colm	13
	synt	any
	field	set_label
	var	1
	line	229
	colm	23
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	mark	L4
	var	2
	line	230
	colm	9
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	231
	colm	1
	synt	any
	pfail
	end
proc guiwidgets__Gui_mkMenuBar
	local	0,001000,self
	local	1,001000,x
	local	2,001000,y
	local	3,000020,bar
	local	4,000000,gui__MenuBar
	declend
	line	236
	colm	11
	synt	any
	mark	L1
	pnull
	var	3
	var	4
	line	240
	colm	28
	synt	any
	invoke	0
	line	240
	colm	13
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	3
	line	241
	colm	12
	synt	any
	field	set_pos
	var	1
	var	2
	line	241
	colm	20
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	mark	L4
	var	3
	line	242
	colm	9
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	243
	colm	1
	synt	any
	pfail
	end
proc guiwidgets__Gui_initially
	local	0,001000,self
	local	1,000000,guiwidgets__Gui
	con	0,010000,5,167,150,151,164,145
	declend
	line	245
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	246
	colm	13
	synt	any
	field	editColor
	str	0
	line	246
	colm	23
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	1
	goto	L5
lab L3
	pop
	mark	L4
lab L6
	mark0
	var	0
	chfail	L6
	esusp
	line	247
	colm	26
	synt	any
	coret
	efail
lab L4
	cofail
	goto	L4
lab L5
	create	L3
	line	247
	colm	24
	synt	any
	asgn
	unmark
lab L2
	mark	L7
	mark	L8
	pnull
	line	248
	colm	7
	synt	any
	pret
lab L8
	synt	any
	pfail
	unmark
lab L7
	pnull
	line	249
	colm	1
	synt	any
	pfail
	end
proc guiwidgets__Gui
	local	0,000020,self
	local	1,000020,clone
	local	2,000000,guiwidgets__Gui__oprec
	local	3,000000,guiwidgets__Guiinitialize
	local	4,000000,lang__Class__oprec
	local	5,000000,lang__Classinitialize
	local	6,000000,guiwidgets__Gui__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	60
	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	52
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	pnull
	pnull
	var	2
	line	10
	colm	25
	synt	any
	field	lang__Class
	var	4
	line	10
	colm	38
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L6
	pnull
	var	0
	var	6
	line	12
	colm	34
	synt	any
	keywd	null
	var	2
	line	12
	colm	33
	synt	any
	invoke	2
	line	12
	colm	8
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	pnull
	pnull
	var	0
	line	13
	colm	7
	synt	any
	field	__s
	var	0
	line	13
	colm	12
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	mark	L9
	pnull
	pnull
	var	0
	line	14
	colm	7
	synt	any
	field	__m
	line	14
	colm	11
	synt	any
	field	initially
	var	0
	pnull
	line	14
	colm	21
	synt	any
	invoke	2
	line	14
	colm	29
	synt	any
	esusp
	goto	L10
lab L9
	line	14
	colm	31
	synt	any
	pfail
lab L10
	unmark
lab L8
	mark	L11
	mark	L12
	var	0
	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 guiwidgets__Guiinitialize
	local	0,000000,guiwidgets__Gui__oprec
	local	1,000000,guiwidgets__Gui__methods
	local	2,000000,guiwidgets__Gui_setEditColor
	local	3,000000,guiwidgets__Gui_getEditColor
	local	4,000000,guiwidgets__Gui_mkLabel
	local	5,000000,guiwidgets__Gui_mkField
	local	6,000000,guiwidgets__Gui_mkButton
	local	7,000000,guiwidgets__Gui_mkEditArea
	local	8,000000,guiwidgets__Gui_mkArea
	local	9,000000,guiwidgets__Gui_mkAreaSingle
	local	10,000000,guiwidgets__Gui_mkCheckBox
	local	11,000000,guiwidgets__Gui_mkBorder
	local	12,000000,guiwidgets__Gui_mkMenuItem
	local	13,000000,guiwidgets__Gui_mkMenu
	local	14,000000,guiwidgets__Gui_mkMenuBar
	local	15,000000,guiwidgets__Gui_initially
	local	16,000000,lang__Class_get_name
	local	17,000000,lang__Class_get_methods
	local	18,000000,lang__Class_get_method
	local	19,000000,lang__Class_get_supers
	local	20,000000,lang__Class_get_implemented_classes
	local	21,000000,lang__Class_get_variables
	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
	line	19
	colm	61
	synt	any
	invoke	20
	line	19
	colm	34
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	20
	colm	1
	synt	any
	pfail
	end
