4.3 Menu

require "uing"

UIng.init

UIng::Menu.new("File") do
  append_item("Open").on_clicked do |window|
    window.try &.open_file
  end
  append_separator
  append_preferences_item.on_clicked do |window|
    window.try &.msg_box("Preferences", "Preferences clicked")
  end
  append_separator
  append_quit_item
end

UIng::Menu.new("Edit") do
  append_check_item("Check", checked: false).on_clicked do |_menu_window|
    # No-op
  end
  append_separator
  append_item("Click").on_clicked do |window|
    window.try &.msg_box("Click", "Click menu clicked")
  end
end

UIng::Menu.new("Help") do
  append_about_item.on_clicked do |window|
    window.try &.msg_box("About", "Menu example")
  end
end

# Window must be created after menu finalized.
Window = UIng::Window.new("Menu Example", 300, 50, menubar: true) do
  on_closing do
    UIng.quit
    true
  end

  show
end

UIng.on_should_quit do
  Window.destroy unless Window.released?
  true
end

{% if flag?(:darwin) %}
  label = UIng::Label.new("The Mac menu bar is at the top of the screen.")
  Window.child = label
{% end %}

UIng.main

UIng.uninit

使い方

メニュー項目には次の種類があります。

種類	作成メソッド	用途
通常項目	`append_item(name)`	コマンドを実行します。
チェック項目	`append_check_item(name, checked:)`	オン／オフの状態を表します。`checked?`と`checked=`で状態を読み書きできます。
Preferences項目	`append_preferences_item`	設定画面を開きます。
About項目	`append_about_item`	アプリケーション情報を表示します。
Quit項目	`append_quit_item`	アプリケーションを終了します。終了処理は`UIng.on_should_quit`で設定します。
区切り	`append_separator`	関連する項目のグループを視覚的に分けます。

最初のWindowを作る前にすべてのMenuを構築し、Windowへmenubar: trueを指定します。
プラットフォーム側の操作ではWindowがない場合があるため、コールバックには省略可能なWindowが渡されます。
Preferences、About、QuitはOSごとのメニュー規約を吸収する標準項目です。表示名、配置、区切り線はOSによって異なり、追加したMenu内の順序どおりに表示されるとは限りません。
append_preferences_item、append_about_item、append_quit_itemは、それぞれアプリケーション全体で1つだけ追加できます。

APIリファレンス · Galleryソース

Menu

表示例

実行例

使い方