- set line [lindex [split $ei "\n"] 0]
- puts stderr "clipboard parsing failed: line $lno: $emsg\n $line"
- regsub -all {.{18}} "bad: [string trim $emsg]: \"$line\"" "&\n" ewrap
-
- .err_acquire.emsg.text delete 0.0 end
- .err_acquire.emsg.text insert end "at line $lno: $emsg"
-
- .err_acquire.text.text delete 0.0 end
- .err_acquire.text.text insert end $nclipboard
-
- .err_acquire.text.text tag add error $lno.0 $lno.end
- .err_acquire.text.text tag configure error \
- -background red -foreground white
- .err_acquire.text.text see $lno.0
-
- .ctrl.acquire.resframe.res configure \
- -background red -foreground white -font fixed \
- -state normal -command {wm deiconify .err_acquire} \
- -text $ewrap
- set clipboard $old
- parse-clipboard