Changeset 413 for trunk/gui/scripts/moleculeViewer.tcl

Timestamp:

Apr 26, 2006, 6:42:46 PM (18 years ago)

Author:

mmc

Message:

• Added <description> capability to output objects, including axes.

• Fixed the ResultSet? so that it is more compact and supports the simulation number as a parameter. This is useful when there are datasets with wildly varying parameters.

File:

• trunk/gui/scripts/moleculeViewer.tcl (modified) (5 diffs)

trunk/gui/scripts/moleculeViewer.tcl

@@ -22 +22 @@
 option add *MoleculeViewer.backdrop black widgetDefault
 
-blt::bitmap define MoleculeViewer-reset {
-#define reset_width 12
-#define reset_height 12
-static unsigned char reset_bits[] = {
-   0x00, 0x00, 0x00, 0x00, 0xfc, 0x03, 0x04, 0x02, 0x04, 0x02, 0x04, 0x02,
-   0x04, 0x02, 0x04, 0x02, 0x04, 0x02, 0xfc, 0x03, 0x00, 0x00, 0x00, 0x00};
-}
-
-blt::bitmap define MoleculeViewer-zoomin {
-#define zoomin_width 12
-#define zoomin_height 12
-static unsigned char zoomin_bits[] = {
-   0x7c, 0x00, 0x82, 0x00, 0x11, 0x01, 0x11, 0x01, 0x7d, 0x01, 0x11, 0x01,
-   0x11, 0x01, 0x82, 0x03, 0xfc, 0x07, 0x80, 0x0f, 0x00, 0x0f, 0x00, 0x06};
-}
-
-blt::bitmap define MoleculeViewer-zoomout {
-#define zoomout_width 12
-#define zoomout_height 12
-static unsigned char zoomout_bits[] = {
-   0x7c, 0x00, 0x82, 0x00, 0x01, 0x01, 0x01, 0x01, 0x7d, 0x01, 0x01, 0x01,
-   0x01, 0x01, 0x82, 0x03, 0xfc, 0x07, 0x80, 0x0f, 0x00, 0x0f, 0x00, 0x06};
-}
-
-blt::bitmap define MoleculeViewer-atoms {
-#define atoms_width 12
-#define atoms_height 12
-static unsigned char atoms_bits[] = {
-   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x48, 0x02, 0x4c, 0x02, 0xc8, 0x03,
-   0x48, 0x02, 0x48, 0x02, 0x5c, 0x02, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00};
-}
-
 itcl::class Rappture::MoleculeViewer {
     inherit itk::Widget
@@ -138 +106 @@
         button $itk_component(controls).reset \
             -borderwidth 1 -padx 1 -pady 1 \
-            -bitmap MoleculeViewer-reset \
+            -bitmap [Rappture::icon reset] \
             -command [itcl::code $this _zoom reset]
     } {
@@ -151 +119 @@
         button $itk_component(controls).zin \
             -borderwidth 1 -padx 1 -pady 1 \
-            -bitmap MoleculeViewer-zoomin \
+            -bitmap [Rappture::icon zoomin] \
             -command [itcl::code $this _zoom in]
     } {
@@ -164 +132 @@
         button $itk_component(controls).zout \
             -borderwidth 1 -padx 1 -pady 1 \
-            -bitmap MoleculeViewer-zoomout \
+            -bitmap [Rappture::icon zoomout] \
             -command [itcl::code $this _zoom out]
     } {
@@ -177 +145 @@
         label $itk_component(controls).labels \
             -borderwidth 1 -padx 1 -pady 1 \
-            -bitmap MoleculeViewer-atoms
+            -bitmap [Rappture::icon atoms]
     } {
         usual