From: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
Date: Sat, 12 Dec 2009 15:18:16 +0000 (+0000)
Subject: where-vessels: show errorInfo in acq error
X-Git-Tag: 6.3.0~3
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.web-live.git;a=commitdiff_plain;h=4f2334b5230b2ee0f3a1416bb7f4019d684fb520;ds=sidebyside

where-vessels: show errorInfo in acq error
---

diff --git a/yarrg/where-vessels b/yarrg/where-vessels
index 8886c79..ecf1e06 100755
--- a/yarrg/where-vessels
+++ b/yarrg/where-vessels
@@ -380,7 +380,7 @@ proc acquire_showerror {} {
 }
 
 proc acquire {} {
-    global clipboard acqdeffont acqerr
+    global clipboard acqdeffont acqerr errorInfo
     set old $clipboard
     if {[catch {
 	set clipboard [clipboard get]
@@ -392,6 +392,7 @@ proc acquire {} {
     } 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 \