
<?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> ^test-menu-choosed ()
<Arguments> ^id </Arguments>
<SetStatus descriptor="123">
	(GetObjectID test-win 'edt2)
</SetStatus>
</Define>

<Define> ^pref-menu-choosed ()
<Arguments> ^id </Arguments>
<SetStatus descriptor="pref">
	(GetObjectID test-win 'edt2)
</SetStatus>
</Define>

<Define> ^about-menu-choosed ()
<Arguments> ^id </Arguments>
<SetStatus descriptor="about">
	(GetObjectID test-win 'edt2)
</SetStatus>
</Define>

<VMenuBar>
0 1 <quote>(
	("FILE" "ENABLED" "ファイル" () () () () () () (
		("OTHER" "ENABLED" "新規" () "CTRL" "N" () () "new" ())
		("OTHER" "ENABLED" "TEST" ()  "CTRL,SHIFT,META,ALT" "T" "T" () "test" ())
		("SEPARATOR" "" "" () () () () () () ())
		("SETUP" "ENABLED" "環境設定" () () () () "pref-menu-choosed" () ())
		("SEPARATOR" "" "" () () () () () () ())
		("QUIT" "ENABLED" "終了" () "CTRL" "Q" () "Quit" () ())
	))
	("EDIT" "ENABLED" "編集" () () () () () () (
		("UNDO" "" "取り消し" () "CTRL" "Z" () () () ())
		("REDO" "" "やり直し" ()  "CTRL,SHIFT" "Z" () () () ())
		("SEPARATOR" "" "-" () () () () () () ())
		("CUT" "" "カット" ()  "CTRL" "X" () () () ())
		("COPY" "" "コピー" ()  "CTRL" "C" () () () ())
		("PASTE" "" "ペースト" ()  "CTRL" "V" () () () ())
		("CLEAR" "" "消去" () () () () () () ())
		("SEPARATOR" "" "" () () () () () () ())
		("SEL_ALL" "" "全てを選択" ()  "CTRL" "A" () () () ())
	))
	("HELP" "ENABLED" "ヘルプ" () () () () () () (
		("ABOUT" "ENABLED" "menu.xlについて..." () () () () "about-menu-choosed" () ())
	))
)</quote>
</VMenuBar>

<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" category="0">
	<VGroupBox attr="secondary" descriptor="TEST" alignh="EXPAND" alignv="EXPAND">
	<VHAlignView>
		<VPushButton name="btn1" descriptor="テスト1"/>
		<VVSeparator/>
		<VEditText name="edt2" descriptor="テスト2"/>
		<VEditText name="edt3" descriptor="テスト3"/>
	</VHAlignView>
	</VGroupBox>
</VWindow>
</Define>

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

<SetMenuFlag>
	1001 ^test ENABLED,CHECKED
</SetMenuFlag>

<SetMenuName>
	1001 ^test フィールドを123に設定
</SetMenuName>

<SetMenuFunc>
	1001 ^test test-menu-choosed
</SetMenuFunc>

</vobj>
