
<?xl version="0.1" encoding="EUC-JP"?>

<WritingStyle stylename="DefaultStyle">
<Font fontname="-*-r-normal--*-iso8859-1" method="nearly"/>
<Font fontname="-*-r-normal--*-iso8859-2" method="nearly"/>
<Font fontname="-*-r-normal--*-iso8859-3" method="nearly"/>
<Font fontname="-*-r-normal--*-iso8859-4" method="nearly"/>
<Font fontname="-*-r-normal--*-iso8859-5" method="nearly"/>
<Font fontname="-*-r-normal--*-iso8859-6" method="nearly"/>
<Font fontname="-*-r-normal--*-iso8859-7" method="nearly"/>
<Font fontname="-*-r-normal--*-iso8859-8" method="nearly"/>
<Font fontname="-*-r-normal--*-iso8859-9" method="nearly"/>
<Font fontname="-*-r-normal--*-jisx0208.1978-0" method="nearly"/>
<Font fontname="-*-r-normal--*-jisx0208.1983-0" method="nearly"/>
<Font fontname="-*-r-normal--*-jisx0208.1990-0" method="nearly"/>
<Font fontname="-*-r-normal--*-jisx0212.1990-0" method="nearly"/>

<Font fontname="times bold" method="nearly"/>
<Font fontname="Lucida Grande" method="nearly"/>
<Font fontname="Geneva" method="nearly"/>
<Font fontname="¥Ò¥é¥®¥Î³Ñ¥´ Pro W6" method="nearly"/>
<Font fontname="Osaka" method="nearly"/>
<Font fontname="£Í£Ó £Ð¥´¥·¥Ã¥¯" method="nearly"/>
</WritingStyle>


<vobj type="raw">

<Define> ^win-close-event ()
<Arguments> ^id </Arguments>
	(Quit)
</Define>

<Define> ^btn1-event ()
<Arguments> ^id </Arguments>
<Sequence>
([SetStatus flags="value"] id)
<ReorderChild>
	1005 1007 0
</ReorderChild>
<VChooseFile title="TEST" default="/" />
</Sequence>
</Define>

<Define> ^slider_moved ()
<Arguments> ^id </Arguments>
<Sequence> ()
	<Define> ^v
		(car (cdr (GetElement ([GetStatus flags="value"] id) 'value)))
	</Define>
	<Define> ^prgb (GetObjectID test-win 'prgb)</Define>
	([SetStatus value="^v"] prgb)
</Sequence>
</Define>

<Define> ^test-win
<VWindow descriptor="XL test" visible="0" close_event_handler="win-close-event">
	<VGroupBox attr="secondary">
	<VVAlignView>
		<VPushButton name="btn1" descriptor="¥Æ¥¹¥È1"
			value_event_handler="btn1-event"  ws="DefaultStyle" fsize="240"/>
		<VHAlignView>
			<VRadioButton name="rbtn-1" descriptor="selection 1" ws="DefaultStyle"/>
			<VRadioButton name="rbtn-2" descriptor="selection 2" group="rbtn-1" fsize="240"/>
			<VRadioButton name="rbtn-3" descriptor="selection 3" group="rbtn-1"/>
		</VHAlignView>
		<VHSeparator/>
		<VBackColorView color="#ffcc99">
		<VHAlignView alignh="FILL" alignv="FILL">
			<VSlider name="slider" min="-10" max="100" step="10" alignh="fill" value_event_handler="slider_moved"/>
			<VPopupButton name="pbtn" descriptor="pbtn" value="1" alignh="right">
				^'("test1" "test2" () "test3")
			</VPopupButton>
		</VHAlignView>
		</VBackColorView>
		<VProgressBar name="prgb" value="-1"/>
	</VVAlignView>
	</VGroupBox>
</VWindow>
</Define>

<!--
<SetPopupList>
	(GetObjectID test-win 'pbtn)
	(quote ("test1" "test2" () "test3"))
</SetPopupList>
-->

<vobjTarget>
<ObjectList append="off"> ^test-win </ObjectList>
	<VPopupButton refer="pbtn"
			value = "3">
		^'("new1" "new2" "new3" ("new4" "DefaultStyle"))
	</VPopupButton>
	<VPopupButton refer="pbtn" value = "2"/>
</vobjTarget>


<SetStatus value="50">
	(GetObjectID test-win 'slider)
</SetStatus>

<SetStatus position="100,50">
	1001
</SetStatus>

<SetStatus visible="1">
	1001
</SetStatus>

<GetStatus flags="id,descriptor,vert_desc,parent,children,value,alignv,homogeneous,size,value_event_handler,descriptor_event_handler,destroy_handler,ws,fsize">
	(GetObjectID test-win 'btn1)
</GetStatus>

</vobj>
