}
proc acquire {} {
- global clipboard acqdeffont acqerr
+ global clipboard acqdeffont acqerr errorInfo
set old $clipboard
if {[catch {
set clipboard [clipboard get]
} emsg]} {
set acqerr "clipboard parsing failed: $emsg"
puts stderr $acqerr
+ append acqerr "\n$errorInfo"
regsub -all {.{18}} "error: [string trim $emsg]" "&\n" ewrap
.ctrl.acquire.resframe.res configure \
-background red -foreground white -font fixed \