# File tst/tst_locana.rb, line 573
def tst_add_menus(win)
   win.menubar(:mMain) {
      menu(:mFile, :text=>'&File') {
         menu(:mOpen, :text=>'&Open')
         menu(:mSave, :text=>'&Save')
         menu(:mSaveas, :text=>'Save &As')
         menu(:mExit, :text=>'E&xit')
      }
      menu(:mEdit, :text=>'&Edit') {
         menu(:mCopy, :text=>'&Copy')
         menu(:mCut, :text=>'C&ut')
         menu(:mPaste, :text=>'&Paste')
      }
      menu(:mHelp, :text=>'&Help') {
         menu(:mHelpDetail, :text=>'&Help') {
            menu(:mHelp1, :text=>'Help&1') {
               # Menus will support color and font when explicitly specified

               colors = {:font=>[:times, 14, :italic], :fg=>:blue, :bg=>:lightblue, :fg_highlight=>:darkred, :bg_highlight=>:lightred}
               menu(:mHelp11, colors + {:text=>'Help1&1'})
               checkbox(:mHelp12, colors + {:text=>'Help1&2'})
               menu(:mHelp13, colors + {:text=>'Help1&3'})
               checkbox(:mHelp14, colors + {:text=>'Help1&4'})
            }
            menu(:mHelp2, :text=>'Help&2') {
               radiobox(:mHelp21, :text=>'Help2&1')
               radiobox(:mHelp22, :text=>'Help2&2')
               checkbox(:mHelp23, :text=>'Help2&3')
               menu(:mHelp24, :text=>'Help2&4')
            }
            menu(:mHelp3, :text=>'Help&3') {
               radiobox(:mHelp31, :text=>'Help3&1')
               checkbox(:mHelp32, :text=>'Help3&2')
               radiobox(:mHelp33, :text=>'Help3&3')
               menu(:mHelp34, :text=>'Help3&4')
            }
            menu(:mHelp4, :text=>'Help&4')
         }
         menu(:mAbout, :text=>'&About')
      }
      menu(:testGetString, :text=>'Test Get String')
   }
   win.mMain.mFile.mOpen.on_click = 'msgbox("File.Open was selected")'
   win.mMain.mFile.mSave.on_click = 'msgbox("File.save was selected")'
   win.mMain.mFile.mSaveas.on_click = 'msgbox("File.SaveAs was selected")'
   win.mMain.mFile.mExit.on_click = 'puts dfh("close"); close()'
   win.mMain.mEdit.mCut.on_click = 'msgbox("Edit.cut was selected")'
   win.mMain.mEdit.mCopy.on_click = 'msgbox("Edit.copy was selected")'
   win.mMain.mEdit.mPaste.on_click = 'msgbox("Edit.paste was selected")'
   win.mMain.mHelp.mHelpDetail.on_click = 'msgbox("Help.Help was selected")'
   win.mMain.mHelp.mHelpDetail.mHelp1.on_click = 'msgbox("Help.Help1 was selected")'
   win.mMain.mHelp.mHelpDetail.mHelp1.mHelp11.on_click = 'msgbox("Help.Help11 was selected")'
   win.mMain.mHelp.mHelpDetail.mHelp1.mHelp13.on_click = 'msgbox("Help.Help13 was selected")'
   win.mMain.mHelp.mHelpDetail.mHelp2.mHelp24.on_click = 'msgbox("Help.Help24 was selected")'
   win.mMain.mHelp.mHelpDetail.mHelp3.mHelp34.on_click = 'msgbox("Help.Help34 was selected")'
   win.mMain.mHelp.mHelpDetail.mHelp4.on_click = 'msgbox("Help.Help4 was selected")'
   win.mMain.mHelp.mAbout.on_click = 'msgbox("Help.About was selected")'
   win.mMain.testGetString.on_click = 'Locana::get_string("starting string") {|new_string| msgbox("You entered #{new_string.inspect} into the modal get string window")}'

   win.menu_popup(:popUp) {
      menu(:mTestWindows, :text=>'Test Windows', :value=>[:Editbox, :Listbox, :Borders, :Colors, :Packing, :Spanning])
      menu_separator(:separator)
      menu(:mImages, :text=>'Test Images')
   }
   win.popUp.mTestWindows.Editbox.on_click = 'Locana::open(:TestEditBox, get_lstore_name)'
   win.popUp.mTestWindows.Listbox.on_click = 'Locana::open(:TestListBox, get_lstore_name)'
   win.popUp.mTestWindows.Borders.on_click = 'Locana::open(:TestBorders, get_lstore_name)'
   win.popUp.mTestWindows.Colors.on_click = 'Locana::open(:TestColor, get_lstore_name)'
   win.popUp.mTestWindows.Packing.on_click = 'Locana::open(:TestPackint, get_lstore_name)'
   win.popUp.mTestWindows.Spanning.on_click = 'Locana::open(:TestSpanning, get_lstore_name)'
   win.popUp.mImages.on_click = 'Locana::open(:TestImages, get_lstore_name)'
   return win
end