where-vessels: show errorInfo in acq error

diff --git a/yarrg/where-vessels b/yarrg/where-vessels
index 8886c7997aeb24de0adccb7a480803b3f6cf0d31..ecf1e063156bbd3ddee66d3359da8a4ab5b6b1da 100755 (executable)
--- a/yarrg/where-vessels
+++ b/yarrg/where-vessels
@@ -380,7 +380,7 @@ proc acquire_showerror {} {
 }
 
 proc acquire {} {
 }
 
 proc acquire {} {

-    global clipboard acqdeffont acqerr
+    global clipboard acqdeffont acqerr errorInfo

     set old $clipboard
     if {[catch {
        set clipboard [clipboard get]
     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
     } 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 \
        regsub -all {.{18}} "error: [string trim $emsg]" "&\n" ewrap
        .ctrl.acquire.resframe.res configure \
            -background red -foreground white -font fixed \