Changeset 1346

Timestamp:

Mar 19, 2009 12:47:42 PM (15 years ago)

Author:

gah

Message:

 

Location:

trunk/gui/scripts

Files:

• images/bigroller0.gif (added)
• images/bigroller1.gif (added)
• images/bigroller2.gif (added)
• images/bigroller3.gif (added)
• images/bigroller4.gif (added)
• images/bigroller5.gif (added)
• images/bigroller6.gif (added)
• images/bigroller7.gif (added)
• molvisviewer.tcl (modified) (6 diffs)

trunk/gui/scripts/molvisviewer.tcl

@@ -147 +147 @@
 
     array set _downloadPopup {
-        format image_draft
+        format draft
     }
 
@@ -523 +523 @@
                 radiobutton $inner.draft -text "Image (draft $res)" \
                     -variable Rappture::MolvisViewer::_downloadPopup(format) \
-                    -value image_draft
+                    -value draft
                 pack $inner.draft -anchor w
 
@@ -529 +529 @@
                 radiobutton $inner.medium -text "Image (standard $res)" \
                     -variable Rappture::MolvisViewer::_downloadPopup(format) \
-                    -value image_medium
+                    -value $res
                 pack $inner.medium -anchor w
 
@@ -535 +535 @@
                 radiobutton $inner.high -text "Image (high quality $res)" \
                     -variable Rappture::MolvisViewer::_downloadPopup(format) \
-                    -value image_high
+                    -value $res
                 pack $inner.high -anchor w
 
@@ -561 +561 @@
             }
             switch -- $_downloadPopup(format) {
-                image_draft {
+                draft {
                     # Get the image data (as base64) and decode it back to
                     # binary.  This is better than writing to temporary
@@ -570 +570 @@
                     return [list .jpg $bytes]
                 }
-                image_medium {
+                "2400x2400" {
                     return [$this GetPngImage [lindex $args 0] 2400 2400]
                 }
-                image_high {
+                "1200x1200" {
                     return [$this GetPngImage [lindex $args 0] 1200 1200]
                 }