
<?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"/>
</WritingStyle>


<vobj type="raw">

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

<Define> ^test-win
<VWindow descriptor="XL test" visible="0" close_event_handler="win-close-event" resizable="1">
	<VTableView alignv="FILL" alignh="FILL" rows="3" cols="2" homogeneous="0">
		<TR>
			<TD colspan="2"><VRadioButton descriptor="TEST - 1" name="a1"/></TD>
		</TR>
		<TR>
			<TD rowspan="2"><VRadioButton descriptor="TEST - 2" name="a2"/></TD>
			<TD><VRadioButton descriptor="TEST - 3" name="a3"/></TD>
		</TR>
		<TR>
			<TD><VRadioButton descriptor="TEST - 4" name="a4"/></TD>
		</TR>
	</VTableView>
</VWindow>
</Define>

<SetRadioGroup>
	(GetObjectID test-win 'a1)
	(GetObjectID test-win 'a2)
	(GetObjectID test-win 'a3)
	(GetObjectID test-win 'a4)
</SetRadioGroup>

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

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

<SetStatus visible="0">
	(GetObjectID test-win 'a1)
</SetStatus>

</vobj>
