Posted to tcl by kbk at Thu Dec 14 18:11:31 GMT 2006view raw
- 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]
- }
- }
- }