Changeset 1346 for trunk/gui/scripts/molvisviewer.tcl
- Timestamp:
- Mar 19, 2009, 12:47:42 PM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/molvisviewer.tcl
r1345 r1346 147 147 148 148 array set _downloadPopup { 149 format image_draft149 format draft 150 150 } 151 151 … … 523 523 radiobutton $inner.draft -text "Image (draft $res)" \ 524 524 -variable Rappture::MolvisViewer::_downloadPopup(format) \ 525 -value image_draft525 -value draft 526 526 pack $inner.draft -anchor w 527 527 … … 529 529 radiobutton $inner.medium -text "Image (standard $res)" \ 530 530 -variable Rappture::MolvisViewer::_downloadPopup(format) \ 531 -value image_medium531 -value $res 532 532 pack $inner.medium -anchor w 533 533 … … 535 535 radiobutton $inner.high -text "Image (high quality $res)" \ 536 536 -variable Rappture::MolvisViewer::_downloadPopup(format) \ 537 -value image_high537 -value $res 538 538 pack $inner.high -anchor w 539 539 … … 561 561 } 562 562 switch -- $_downloadPopup(format) { 563 image_draft {563 draft { 564 564 # Get the image data (as base64) and decode it back to 565 565 # binary. This is better than writing to temporary … … 570 570 return [list .jpg $bytes] 571 571 } 572 image_medium{572 "2400x2400" { 573 573 return [$this GetPngImage [lindex $args 0] 2400 2400] 574 574 } 575 image_high{575 "1200x1200" { 576 576 return [$this GetPngImage [lindex $args 0] 1200 1200] 577 577 }
Note: See TracChangeset
for help on using the changeset viewer.