;; Menu options

(pack (menubutton '.mbutton :text "Menu Button1" :menu ".mbutton.menu"))

(menu '.mbutton.menu)
(.mbutton.menu 'add 'command :label "Open" :command '(display "open\n"))
(.mbutton.menu 'add 'command :label "Close" :state "disabled")
(.mbutton.menu 'add 'cascade :label "More -->" :menu ".mbutton.menu.more")
(.mbutton.menu 'add 'separator)
(.mbutton.menu 'add 'command :label "Exit" :command '(display "exit\n"))

(menu '.mbutton.menu.more)
(.mbutton.menu.more 'add 'command :label "Get" :command '(display "get\n"))
(.mbutton.menu.more 'add 'command :label "Put" :command '(display "put\n"))
(.mbutton.menu.more 'add 'command :label "Rename" :command '(display "rename\n"))