Changeset 1943 for trunk/gui/scripts/xyprint.tcl

Timestamp:

Nov 12, 2010, 9:16:17 AM (14 years ago)

Author:

gah

Message:

add unit cell to molvisviewer

File:

• trunk/gui/scripts/xyprint.tcl (modified) (3 diffs)

trunk/gui/scripts/xyprint.tcl

@@ -446 +446 @@
 
     if 0 {
-    if { ![winfo exists .labeltest] } {
-        toplevel .labeltest -bg red
-        label .labeltest.label -image $img
-        pack .labeltest.label -fill both 
-    } 
+        if { ![winfo exists .labeltest] } {
+            toplevel .labeltest -bg red
+            label .labeltest.label -image $img
+            pack .labeltest.label -fill both 
+        } 
     }
     set pw [expr int(round($s * $w))]
     set ph [expr int(round($s * $h))]
     $_preview configure -width $pw -height $ph
-    #.labeltest.label configure -image $img
+    if 0 {
+        .labeltest.label configure -image $img
+    }
     blt::winop resample $img $_preview box
     image delete $img
@@ -1186 +1188 @@
     set _settings($this-general-remember) 0
     set page $itk_component(graph_page)
+    $page.format value [$page.format label $_settings($this-general-format)]
+    $page.style value [$page.style label $_settings($this-general-style)]
 
     # Layout settings
@@ -1260 +1264 @@
     $itk_component(axis_combo) value $axis
     GetAxis 
+    RegeneratePreview
 }