require 'rbhex/core/util/app'

  def load_relative(path)
    load File.expand_path("../#{path}", __FILE__)
  end

  App.new do
    #title "Demo of Menu - rbhex"
    #subtitle "Hit F1 to quit, F2 for menubar toggle"
    header = app_header "rbhex #{Rbhex::Core::VERSION}", :text_center => "Alpine Menu Demo", :text_right =>""

    stack :margin_top => 10, :margin_left => 15 do
      #w = "Messages".length + 1
      w = 60
      menulink :text => "&View Dirs", :width => w, :description => "View Dirs in tree"  do |s, *stuff|
        message "Pressed #{s.text} "
        load_relative './dirtree.rb'
        #require './viewtodo'; todo = ViewTodo::TodoApp.new; todo.run
      end
      blank
      menulink :text => "&Tabular", :width => w, :description => "Tabula Rasa"  do |s, *stuff|
        message "Pressed #{s.text} "
        load_relative './tabular.rb'
        #require './testtodo'; todo = TestTodo::TodoApp.new; todo.run
      end
      blank
      menulink :text => "&Messages", :width => w, :description => "View Tasks"  do |s, *stuff|
        message "Pressed #{s.text} "
        load_relative './tasks.rb'
      end
      blank
      menulink :text => "&Database", :width => w, :description => "Database Demo"  do |s, *stuff|
        message "Pressed #{s.getvalue} "
        load_relative './dbdemo.rb'
      end
      blank
      # somehow ? in mnemonic won't work
      menulink :text => "&Setup", :width => w, :description => "Configure Alpine options"  do |s, *stuff|
        #message "Pressed #{s.text} "
        alert "Not done!"
      end
      blank
      menulink :text => "&Quit", :width => w, :description => "Quit this application"  do |s, *stuff|
        quit
      end
      @form.bind(:ENTER) do |w|
        header.text_right = w.text
      end
    end # stack
  end # app