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

<WritingStyle stylename="DefaultStyle">
<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>

<WritingStyle stylename="NormalStyle">
<Font fontname="Ê¿À®ÌÀÄ«" method="nearly"/>
<Font fontname="Times" 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 value_event_handler="expand-tree"] id)
</Sequence>
</Define>

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

<Define> ^test-win
<VWindow descriptor="XL test" visible="0" close_event_handler="win-close-event" resizable="1">
	<VVAlignView alignh="fill" alignv="top">
		<VHAlignView alignv="top">
			<VexDraw 		name="draw2"
					alignh="left"
					use_alpha="1"
					mouse_click="rotate"
					mouse_press="img_zero"
					value_event_handler="expand-tree">
				<VImage image="file:triangle.gif">
					<Area x="0" y="0" w="15" h="15" />
					<Area x="0" y="15" w="15" h="15" />
					<Area x="0" y="30" w="15" h="15" />
				</VImage>
			</VexDraw>
			<VStaticText descriptor="<-  expand/shrink" alignh="left"/>
		</VHAlignView>
		<VHAlignView alignv="top" name="s1" visible="0">
			<VexDraw alignh="left" min_size="15,15"/>
			<VStaticText descriptor="sample text which is long long long long..."  alignh="left"/>
		</VHAlignView>
	</VVAlignView>
</VWindow>
</Define>

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

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

</vobj>
