
<?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> ^test-win
<VWindow descriptor="XL test" visible="0" close_event_handler="win-close-event" resizable="1">
<VVAlignView alignv="FILL" alignh="FILL">
	<VTabView alignv="FILL" alignh="FILL">
		<VTabPage label="page1">
			<VRadioButton descriptor="TEST1" name="test1" visible="1" />
			<VRadioButton descriptor="TEST2" name="test2" group="test1" visible="0" />
			<VRadioButton descriptor="TEST3" name="test3" group="test1" visible="0" />
			<VRadioButton descriptor="TEST4" name="test4" group="test1" visible="0" value="1"/>
		</VTabPage>
		<VTabPage label="page2">
			<VPushButton descriptor="Hello, World !"/>
		</VTabPage>
		<VTabPage label="page3">
		</VTabPage>
	</VTabView>
<VHAlignView alignv="BOTTOM">
	<VPushButton alignh="RIGHT" descriptor="Cancel"/>
	<VPushButton alignh="RIGHT" descriptor="OK"/>
</VHAlignView>
</VVAlignView>
</VWindow>
</Define>

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

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

<SetStatus visible="1">
	(GetObjectID test-win 'test1)
</SetStatus>
<SetStatus visible="1">
	(GetObjectID test-win 'test2)
</SetStatus>
<SetStatus visible="1">
	(GetObjectID test-win 'test3)
</SetStatus>
<SetStatus visible="1">
	(GetObjectID test-win 'test4)
</SetStatus>

^test-win

</vobj>
