- Timestamp:
- Mar 19, 2009, 1:34:51 PM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/analyzer.tcl
r1344 r1347 738 738 set ext "" 739 739 set f [$itk_component(resultpages) page $page] 740 foreach {ext data} [$f.rviewer download now $widget] break 741 if {"" == $ext} { 742 if {"" != $widget} { 743 Rappture::Tooltip::cue $widget \ 744 "Can't download this result." 740 set code [catch { $f.rviewer download now $widget } result] 741 if { $code == 0 } { 742 foreach {ext data} $result break 743 if {"" == $ext} { 744 if {"" != $widget} { 745 Rappture::Tooltip::cue $widget \ 746 "Can't download this result." 747 } 748 return 749 } 750 regsub -all {[\ -\/\:-\@\{-\~]} $title {} title 751 set file "$title$ext" 752 } else { 753 if { $code != 3 } { 754 if {"" != $widget} { 755 Rappture::Tooltip::cue $widget \ 756 "Error downloading this result: $result" 757 } 745 758 } 746 759 return 747 760 } 748 regsub -all {[\ -\/\:-\@\{-\~]} $title {} title749 set file "$title$ext"750 761 } else { 751 762 # this shouldn't happen
Note: See TracChangeset
for help on using the changeset viewer.