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" }