Changeset 644 for trunk/gui/scripts/sequenceresult.tcl

Timestamp:

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

Author:

nkissebe

Message:

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

File:

• trunk/gui/scripts/sequenceresult.tcl (modified) (1 diff)

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"