Section 3.14　メニュー

class MenuWindow extends Window
{
    var mi_quit;  // メニュー項目オブジェクト

    // コンストラクタ
    function MenuWindow()
    {
        super.Window();  // スーパークラスのコンストラクタを呼び出します

        // 「終了」メニューを作ります
        mi_quit = new MenuItem(this, "終了(&Q)");
        // 「終了」メニューをウィンドウのルートメニューオブジェクトの子メニューとして登録します
        menu.add(mi_quit);

        visible = true;
    }

    // デストラクタ
    function finalize()
    {
        super.finalize();  // スーパークラスのデストラクタを呼び出します
    }

    // action メソッド
    function action(ev)
    {
        if(ev.target == mi_quit && ev.type == "onClick")
        {
            // 「終了」メニューがクリックされた場合は、ウィンドウを閉じます
            close();
        }
    }
}

var win = new MenuWindow();  // ウィンドウを作ります

var parentMenu = new MenuItem(window_object, "親メニュー");  // 親メニューオブジェクトを作ります
var childMenu  = new MenuItem(window_object, "子メニュー");  // 子メニューオブジェクトを作ります
parentMenu.add(childMenu);  // childMenu を parentMenu の子メニューとして登録します

class MenuWindow extends Window
{
    var mi_file;  // 「ファイル」メニュー項目オブジェクト
    var mi_quit;  // 「終了」メニュー項目オブジェクト

    // コンストラクタ
    function MenuWindow()
    {
        super.Window();  // スーパークラスのコンストラクタを呼び出します

        // 「ファイル」メニューを作ります
        mi_file = new MenuItem(this, "ファイル(&F)");
        // 「終了」メニューをウィンドウのルートメニューオブジェクトの子メニューとして登録します
        menu.add(mi_file);

        // 「終了」メニューを作ります
        mi_quit = new MenuItem(this, "終了(&Q)");
        // 「終了」メニューを「ファイル」の子メニューとして登録します
        mi_file.add(mi_quit);

        visible = true;
    }

    // デストラクタ
    function finalize()
    {
        super.finalize();
    }

    // action メソッド
    function action(ev)
    {
        if(ev.target == mi_quit && ev.type == "onClick")
        {
            // 「終了」メニューがクリックされた場合は、ウィンドウを閉じます
            close();
        }
    }
}

var win = new MenuWindow();  // ウィンドウを作ります

// 「終了」メニューを作ります
mi_quit = new MenuItem(this, "終了(&Q)");
// Ctrl キー + Q キーで終了できるようにショートカットキーを設定します
mi_quit.shortcut = "Ctrl+Q";
// 「終了」メニューをウィンドウの「ファイル」の子メニューとして登録します
mi_file.add(mi_quit);