Eskil

    psmenu::psmenu $w {
        "&File" {
            "&Save" -cmd "saveMerge $top"
            ----
            "&Close" -cmd "closeMerge $top"
        }
        "&Select" {
            _Radio -var ::ruleset($top,curMergeSel) -cmd "selectMerge $top" {
            _Radio -var ::eskil($top,curMergeSel) -cmd "selectMerge $top" {
                        "Left+Right" -value 12
                        "&Left"      -value 1
                        "&Right"     -value 2 
                        "Right+Left" -value 21
                    }
            ---
            "All Left"  -cmd "selectMergeAll $top 1"