#  Dump an item and it's children recursively
def dump_children(space, menu, item)
  s = ""
  s += "<tr><td><tt>#{space}#{item}</tt></td><td>#{menu.action(item).title}</td><td>#{menu.action(item).shortcut}</td></tr>\n"
  menu.items(item).each { |child| s += dump_children("&nbsp;&nbsp;#{space}", menu, child) }
  return s
end

#  Get the menu object
app = RBA::Application.instance
mw = app.main_window
menu = mw.menu

#  Create the HTML page
s = "<h1>Menu item structure</h1>\n"
s += "<table>\n"
s += "<tr><td><b>Path</b></td><td><b>Title</b></td><td><b>Shortcut</b></td></tr>\n"
menu.items("").each { |item| s += dump_children("", menu, item) }
s += "</table>\n"

#  And show this base in the HTML browser dialog
text = RBA::BrowserSource::new_html( s )
browser = RBA::BrowserDialog::new
browser.set_source( text )
browser.set_home( "int:" )
browser.exec

#  If this dialog is closed, start the application
app.exec