package require Tk

package require Tk

scrollbar .vs -command ".text yview"
text .text -yscrollcommand ".vs set" \
-bg white -font {"luxi mono" 12 bold} \
-undo true -autoseparators false \
-maxundo 50 \
-width 42 \
-exportselection true

grid .text .vs -sticky nesw

frame .buttons
grid .buttons -sticky ew

button .buttons.c -text "Copy" -command copy
button .buttons.p -text "Paste" -command paste
button .buttons.u -text "Undo" -state disabled \
-command {.text edit undo; teilen ""}

grid .buttons.c .buttons.p .buttons.u -padx 10 -sticky e

grid columnconfigure . 0 -weight 2
grid columnconfigure . 1 -weight 0 -minsize 20
grid rowconfigure . 0 -weight 2
grid rowconfigure . 1 -weight 1 -minsize 50

bind .text <KeyPress> "teilen %K"
text tag configure rot -foreground red -underline true
text tag configure blau -foreground blue
set lastIndex 0.0
set lastTag rot
proc teilen {key} {
puts "teilen $key"
switch -exact $key {
minus -
space -
Tab -
Return {
puts "sep"
.text edit separator
switch $::lastTag {
rot {set ::lastTag blau}
blau {set ::lastTag rot}
}
.text tag add $::lastTag $::lastIndex [.text index current]
set ::lastIndex [.text index current]
}
}

if {[.text edit modified]} {
.buttons.u conf -state normal
} else {
.buttons.u conf -state disabled
}
}
set clipboard ""
proc copy {} {
puts copy

if {[catch {
set ::clipboard [.text get [lindex [ .text tag ranges sel ] 0] \
[lindex [ .text tag ranges sel ] 1] ]
}]} {
set ::clipboard ""
}
}

proc paste {} {
puts paste

.text tag add $::lastTag $::lastIndex [.text index current]
set ::lastIndex [.text index current]

.text insert [.text index current] $::clipboard

.text tag add $::lastTag $::lastIndex [.text index current]
set ::lastIndex [.text index current]

}