Posted to tcl by mjanssen at Mon May 07 02:00:48 GMT 2007view pretty

proc monitor {widget} {
  interp hide {} $widget 

   proc $widget args {
    switch [lindex $args 0] {
       "insert" -
       "delete" {event generate [lindex [info level 0] 0] <<Edited>>}
     }
     return [eval interp invokehidden \{\} [lindex [info level 0] 0]  $args]
   }
}

text .txt
pack .txt
monitor .txt

bind .txt <<Edited>> {
   puts "%W was edited"
}