Changeset 1347

Timestamp:

Mar 19, 2009 1:34:51 PM (15 years ago)

Author:

gah

Message:

 

File:

• trunk/gui/scripts/analyzer.tcl (modified) (1 diff)

trunk/gui/scripts/analyzer.tcl

@@ -738 +738 @@
                 set ext ""
                 set f [$itk_component(resultpages) page $page]
-                foreach {ext data} [$f.rviewer download now $widget] break
-                if {"" == $ext} {
-                    if {"" != $widget} {
-                        Rappture::Tooltip::cue $widget \
-                            "Can't download this result."
+                set code [catch { $f.rviewer download now $widget } result]
+                if { $code == 0 }  {
+                    foreach {ext data} $result break
+                    if {"" == $ext} {
+                        if {"" != $widget} {
+                            Rappture::Tooltip::cue $widget \
+                                "Can't download this result."
+                        }
+                        return
+                    }
+                    regsub -all {[\ -\/\:-\@\{-\~]} $title {} title
+                    set file "$title$ext"
+                } else { 
+                    if { $code != 3 } {
+                        if {"" != $widget} {
+                            Rappture::Tooltip::cue $widget \
+                                "Error downloading this result: $result"
+                        }
                     }
                     return
                 }
-                regsub -all {[\ -\/\:-\@\{-\~]} $title {} title
-                set file "$title$ext"
             } else {
                 # this shouldn't happen