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

  1. rename .path.to.the.widget my.path.to.the.widget
  2. proc .path.to.the.widget {subcommand args} {
  3. switch -exact [lindex $args 0] {
  4. del - dele - delet - delete {
  5. }
  6. ins - inse - inser - insert {
  7. }
  8. default {
  9. eval [linsert $args 0 my.path.to.the.widget]
  10. }
  11. }
  12. }