

proc AddTagToBeginningInMenus { w tag } {




}

proc CASelectMenu { w } {








}


proc ChangeAccelerators { { w .changeacc } } {
    global GIDDEFAULT

    InitWindow $w [_ "Change accelerators"] ChangeAccWindowGeom

    button $w.left -bitmap @$GIDDEFAULT/bitmaps/arrow-l
    frame $w.middle
    scrollbar $w.middle.yscroll -relief sunken -command "$w.middle.list yview"
    scrollbar $w.middle.xscroll -relief sunken -orient horizontal \
	    -command "$w.middle.list xview"
    listbox $w.middle.list -width 1 -height 2 -yscroll "$w.middle.yscroll \
	     set" -xscroll "$w.middle.xscroll set" -relief sunken \
	     -selectmode extended -font FixedFont -width 10
    pack $w.middle.yscroll -side right -fill y
    pack $w.middle.xscroll -side bottom -fill x
    pack $w.middle.list  -expand yes -fill both

    button $w.right -bitmap @$GIDDEFAULT/bitmaps/arrow-r

    frame $w.acc
    label $w.acc.l -text [_ "Accelerator"]
    entry $w.acc.e -relief sunken
    grid $w.acc.l $w.acc.e

    frame $w.buts
    button $w.buts.select -text [_ "Select menu"] -command "CASelectMenu $w"
    button $w.buts.close -text [_ "Close"] -command "destroy $w"
    grid $w.buts.select $w.buts.close

    grid $w.left -row 0 -column 0
    grid $w.middle  -sticky nsew -row 0 -column 1
    grid $w.right -row 0 -column 2
    grid $w.acc -row 0 -column 3
    grid $w.buts -columnspan 4
    grid rowconf $w 0 -weight 1
    grid columnconf $w 1 -weight 1

}