Ignore:
Timestamp:
Jan 28, 2010, 8:59:45 AM (15 years ago)
Author:
gah
Message:
 
File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/blt4/gui/scripts/barresult.tcl

    r1550 r1646  
    577577                }
    578578                jpg {
    579                     set img [image create photo]
     579                    set img [image create picture]
    580580                    $itk_component(plot) snap $img
    581                     set bytes [$img data -format "jpeg -quality 100"]
    582                     set bytes [Rappture::encoding::decode -as b64 $bytes]
     581                    $img export jpg -quality 100 -data bytes
    583582                    image delete $img
    584583                    return [list .jpg $bytes]
    585584                }
    586585                png {
    587                     set img [image create photo]
     586                    set img [image create picture]
    588587                    $itk_component(plot) snap $img
    589                     set bytes [$img data -format "png"]
    590                     set bytes [Rappture::encoding::decode -as b64 $bytes]
     588                    $img export png -data bytes
    591589                    image delete $img
    592590                    return [list .png $bytes]
Note: See TracChangeset for help on using the changeset viewer.