OUTPUT BUFFER:
#!/usr/local/bin/wish proc Remove {} { .t delete 2.19 2.30 .t edit separator } proc Add {} { .t edit undo } text .t -bg black -fg white \ -height 10 -width 55 \ -state normal \ -undo 1 -autoseparators 0 pack .t .t insert end "Here is a test.\n" .t insert end "And this is a line with a blue tagged region inside\n" .t insert end "that explicit the undo behaviour with tags" .t tag configure tblue -background cyan .t tag add tblue 2.19 2.30 .t edit separator button .brm -text "1. Remove " -bg green -command [list Remove] button .bad -text "2. Add back" -bg green -command [list Add] pack .brm .bad -side left