Changeset 1941 for branches/blt4/gui/scripts/xyprint.tcl

Timestamp:

Nov 10, 2010 11:30:33 AM (14 years ago)

Author:

gah

Message:

 

File:

• branches/blt4/gui/scripts/xyprint.tcl (modified) (2 diffs)

branches/blt4/gui/scripts/xyprint.tcl

@@ -402 +402 @@
             -titlefont $_fonts($axis-title)
     }
+    set count 0
     foreach elem [$_clone element names] {
         if { [$_clone element type $elem] == "bar" } {
             continue
         }
+        incr count
         if { [$_clone element cget $elem -linewidth] > 1 } {
             $_clone element configure $elem -linewidth 1 -pixels 3 
         }
+    }
+    if { $count == 0 } {
+        # There are no "line" elements in the graph. 
+        # Remove the symbol and dashes controls.
+        set page $itk_component(legend_page)
+        # May have already been forgotten.
+        catch { 
+            blt::table forget $page.symbol_l
+            blt::table forget $page.symbol
+            blt::table forget $page.dashes_l
+            blt::table forget $page.dashes 
+        }
     }
 }
@@ -942 +956 @@
         5,1 $page.label -fill x -cspan 5 \
         6,0 $page.color_l -anchor e \
-        6,1 $page.color -fill x \
-        6,2 $page.symbol_l -anchor e \
-        6,3 $page.symbol -fill both -cspan 3 \
-        7,0 $page.dashes_l -anchor e \
-        7,1 $page.dashes -fill x \
+        6,1 $page.color -fill x  \
+        6,2 $page.symbol_l -anchor e \
+        6,3 $page.symbol -fill both -cspan 3 \
+        7,0 $page.dashes_l -anchor e \
+        7,1 $page.dashes -fill x 
 
     blt::table configure $page r* -resize none -pady { 0 2 }