Posted to tcl by kbk at Thu Dec 14 18:11:31 GMT 2006view pretty

rename .path.to.the.widget my.path.to.the.widget
    proc .path.to.the.widget {subcommand args} {
        switch -exact [lindex $args 0] {
            del - dele - delet - delete {
            }
            ins - inse - inser - insert {
            }
            default {
                eval [linsert $args 0 my.path.to.the.widget]
            }
        }
    }