Changeset 8 for trunk/gui/apps

Timestamp:

Apr 2, 2005, 9:33:16 AM (20 years ago)

Author:

mmc

Message:

Updated the code to the latest Rappture XML conventions, and fixed
up the moleculeViewer and energyLevels viewer. Everything works
properly now with the new app-huckel project. You can load up
the molecule viewer, rotate molecules, and view their energy levels.

File:

• trunk/gui/apps/driver (modified) (4 diffs)

trunk/gui/apps/driver

@@ -128 +128 @@
 # build everything inside this main window
 set win [.main component app]
-$win configure -background #a6a6a6
+#$win configure -background #a6a6a6
 
 frame $win.input -borderwidth 12 -relief flat
@@ -137 +137 @@
 
 # make an arrow that goes from input to output side
-label $win.arrow -borderwidth 0 -image in2out
-place $win.arrow -y 2 -anchor n
-bind $win.input <Configure> [list align_arrow $win]
-proc align_arrow {win} {
-    place $win.arrow -x [expr {[winfo width $win.input]+5}]
-}
+#label $win.arrow -borderwidth 0 -image in2out
+#place $win.arrow -y 2 -anchor n
+#bind $win.input <Configure> [list align_arrow $win]
+#proc align_arrow {win} {
+#    place $win.arrow -x [expr {[winfo width $win.input]+5}]
+#}
 
 # ----------------------------------------------------------------------
@@ -150 +150 @@
 set dfirst ""
 set dlist [$config children -type structure controls]
-puts "device: $dlist"
 if {"" != $dlist} {
     foreach dname $dlist {
         set obj [$config element -flavor object controls.$dname]
         set name [$obj get label]
-puts " => $name = $obj"
         set devs($name) $obj
     }
@@ -177 +175 @@
     set first [lindex $devlist 0]
     set dfirst $devs($first)
-    set tags [$dfirst children]
+    set tags [$dfirst children components]
     set i [lsearch $tags label]
     if {$i >= 0} {set tags [lreplace $tags $i $i]}
 
-puts "first device: tags = $tags"
     if {$tags == "molecule"} {
         Rappture::MoleculeViewer $w.device -device $devs($first) \