Posted to tcl by mjanssen at Mon May 07 02:00:48 GMT 2007view raw
- 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"
- }