this code creates a set of menus - a toolbar - from a file that can be easily edited by a user. the menus are specified in the format:

set menu(window) {
    command "Command 1" {puts "command 1"}
    separator
    menu "Submenu 1"
        radiobutton "Radiobutton 1" rbutton1 {}
        radiobutton "Radiobutton 2" rbutton1 {::rbutton select}
    end
    checkbox "Checkbox 1" options(cbox1) {}
    tcl {
        # this is for inline tcl whose output is the syntax seen in the rest of the menu
        set r ""
        foreach x $somevar {
            lappend r [list command $x "::docommand $x"]
        }
        return [join $r]
    }