Changeset 644

Timestamp:

Mar 28, 2007, 11:45:13 AM (18 years ago)

Author:

nkissebe

Message:

sequence.tcl,sequenceresult.tcl: add support for molecule structure sequences

Location:

trunk/gui/scripts

Files:

• sequence.tcl (modified) (1 diff)
• sequenceresult.tcl (modified) (1 diff)

trunk/gui/scripts/sequence.tcl

@@ -69 +69 @@
                     set obj [Rappture::Image ::#auto $xmlobj $path.$name.$cname]
                 }
+                structure {
+                    # extract unique result set prefix
+                    scan $xmlobj "::libraryObj%d" rset
+
+                    # object rooted at x.sequence(y).element(z).structure
+                    set obj [$xmlobj element -as object $path.$name.$cname]
+
+                    # scene id (sequence id)
+                    set sceneid [$xmlobj element -as id $path]-$rset
+
+                    # sequence/element/frame number starting at 1
+                    set frameid [expr [$xmlobj element -as id $path.$name] + 1]
+
+                    # only supporting one molecule per structure at the moment
+                    # otherwise should go through all children that are molecules
+                    # and insert scene/frame data.
+                    $obj put "components.molecule.state" $frameid
+                    $obj put "components.molecule.model" $sceneid
+                }
                 default {
                     error "don't know how to handle sequences of $type"

trunk/gui/scripts/sequenceresult.tcl

@@ -429 +429 @@
                 pack $viewer -expand yes -fill both
             }
+            ::Rappture::LibraryObj {
+                switch -- [$dataobj element -as type] {
+                    structure {
+                        Rappture::DeviceResult $viewer
+                        pack $viewer -expand yes -fill both
+                    }
+                    default {
+                        error "don't know how to view sequences of [$dataobj element -as type]"
+                    }
+                }
+            }
             default {
                 error "don't know how to view sequences of $type"