mod_menu.asの使い方 - HSPTV!掲示板

mod_menu.asを使ってメニューバーを横に2つ並べて表示することってできますか？



	#include "mod_menu.as"
	#const CMD_NEW 1
	#const CMD_OPEN
	#const CMD_QUIT

	screen 0, 640,500
	
	oncmd gosub *OnCommand, WM_COMMAND        ; メッセージ割り込み
	
	//ファイルメニュー
	; サブメニュー作成
	newmenu subfilemenu,1
	addmenu subfilemenu, "新規作成(&N)", CMD_NEW
	addmenu subfilemenu, "開く(&O)", CMD_OPEN
	addmenu subfilemenu, "終了(&Q)", CMD_QUIT
	; トップメニュー作成
	newmenu tfilemenu,0
	addmenu tfilemenu, "ファイル(&F)", subfilemenu, 0x0010
	applymenu tfilemenu

	//オブジェクトメニュー
	; サブメニュー作成
	newmenu subobjmenu,1
	addmenu subobjmenu, "ボタン(&B)", CMD_NEW
	addmenu subobjmenu, "拡大図(&Z)", CMD_OPEN
	addmenu subobjmenu, "アイテム(&I)", CMD_QUIT
	; トップメニュー作成
	newmenu tobjmenu,0
	addmenu tobjmenu, "オブジェクト(&O)", subobjmenu, 0x0010
	applymenu tobjmenu

	stop

	; メッセージの処理
*OnCommand
	cmd=wparam & 0xFFFF
	if cmd=CMD_NEW {
		dialog "新規作成"
	}
	if cmd=CMD_OPEN {
		dialog "開く"
	}
	if cmd=CMD_QUIT {
		end
	}
        return

これだとオブジェクトだけ表示されてしまいます。
どのように改善したらいいでしょうか？

#include "mod_menu.as" #const CMD_NEW 1 #const CMD_OPEN #const CMD_QUIT screen 0, 640,500 oncmd gosub *OnCommand, WM_COMMAND ; メッセージ割り込み //ファイルメニュー newmenu subfilemenu,1 addmenu subfilemenu, "新規作成(&N)", CMD_NEW addmenu subfilemenu, "開く(&O)", CMD_OPEN addmenu subfilemenu, "終了(&Q)", CMD_QUIT //オブジェクトメニュー newmenu subobjmenu,1 addmenu subobjmenu, "ボタン(&B)", CMD_NEW addmenu subobjmenu, "拡大図(&Z)", CMD_OPEN addmenu subobjmenu, "アイテム(&I)", CMD_QUIT //トップメニュー newmenu tobjmenu,0 addmenu tobjmenu, "ファイル(&F)", subfilemenu, 0x0010 addmenu tobjmenu, "オブジェクト(&O)", subobjmenu, 0x0010 applymenu tobjmenu stop ; メッセージの処理 *OnCommand cmd=wparam & 0xFFFF if cmd=CMD_NEW { dialog "新規作成" return } if cmd=CMD_OPEN { dialog "開く" return } if cmd=CMD_QUIT { end } return