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

  1. proc monitor {widget} {
  2. interp hide {} $widget
  3.  
  4. proc $widget args {
  5. switch [lindex $args 0] {
  6. "insert" -
  7. "delete" {event generate [lindex [info level 0] 0] <<Edited>>}
  8. }
  9. return [eval interp invokehidden \{\} [lindex [info level 0] 0] $args]
  10. }
  11. }
  12.  
  13. text .txt
  14. pack .txt
  15. monitor .txt
  16.  
  17. bind .txt <<Edited>> {
  18. puts "%W was edited"
  19. }