
<?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> ^shrink-tree ()
<Arguments> ^id </Arguments>
<Sequence> ()
	([SetStatus visible="0"] s1)
	([SetStatus descriptor="expand" value_event_handler="expand-tree"] se)
</Sequence>
</Define>

<Define> ^expand-tree ()
<Arguments> ^id </Arguments>
<Sequence> ()
	([SetStatus visible="1"] s1)
	([SetStatus descriptor="shrink" value_event_handler="shrink-tree"] se)
</Sequence>
</Define>


<Define> ^test-win
<VWindow descriptor="XL test" visible="0" close_event_handler="win-close-event" resizable="1">
	<VTableView alignv="FILL" alignh="FILL" rows="2" cols="2" homogeneous="0">
		<TR>
			<TD><VPushButton alignh="left" alignv="top" descriptor="shrink" name="se" value_event_handler="shrink-tree"/></TD>
			<TD>
				<VStaticText descriptor="shrink/expand" alignh="fill" alignv="top"/>
			</TD>
		</TR>
		<TR>
			<TD></TD>
			<TD>
				<VTabView name="s1" alignh="fill" alignv="fill">
					<VTabPage label="A">
						<VPushButton descriptor="test A" alignh="fill" alignv="fill"/>
					</VTabPage>
					<VTabPage label="B">
						<VPushButton descriptor="test B" alignh="fill" alignv="fill"/>
					</VTabPage>
				</VTabView>
			</TD>
		</TR>
	</VTableView>
</VWindow>
</Define>

<Define> ^se (GetObjectID test-win 'se)</Define>
<Define> ^s1 (GetObjectID test-win 's1)</Define>

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

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

</vobj>
