Changeset 7 for trunk/tcl

Timestamp:

Mar 25, 2005, 8:22:06 AM (19 years ago)

Author:

mmc

Message:

Created an initial EnergyLevels? viewer and MoleculeViewer?. The
MoleculeViewer? is integrated into the driver, but the EnergyLevels?
is not. The material library file contains some new properties
for the appearance of atoms, and the MoleculeViewer? uses this.
Both energyLevels.tcl and moleculeViewer.tcl still have some
driver code at the bottom of the files, so you can run them as
a single file, by themselves, for testing. This code should be
removed when we get further along.

File:

• trunk/tcl/scripts/library.tcl (modified) (1 diff)

trunk/tcl/scripts/library.tcl

@@ -57 +57 @@
     }
 
-    # otherwise, try to open the file and create its LibraryObj
-    set fid [::open $fname r]
-    set info [read $fid]
-    close $fid
+    if {[regexp {^<\?[Xx][Mm][Ll]} $fname]} {
+        set info $fname
+    } else {
+        # otherwise, try to open the file and create its LibraryObj
+        set fid [::open $fname r]
+        set info [read $fid]
+        close $fid
+    }
 
     set obj [Rappture::LibraryObj ::#auto $info]