Changeset 1762 for branches/blt4

Timestamp:

Jun 16, 2010 8:13:14 AM (14 years ago)

Author:

gah

Message:

 

File:

• branches/blt4/gui/scripts/xylegend.tcl (modified) (6 diffs)

branches/blt4/gui/scripts/xylegend.tcl

@@ -1 @@
-
-proc lsave { file values } {
-    set f [open $file "w"]
-    puts $f $values
-    close $f
-}
 
 # ----------------------------------------------------------------------
@@ -120 +114 @@
     itk_component add scrollbars {
         blt::scrollset $itk_interior.scrl \
-            -xscrollbar $itk_interior.scrl.xs \
             -yscrollbar $itk_interior.scrl.ys \
             -window $itk_interior.scrl.legend \
@@ -126 +119 @@
     }
     
-    blt::tk::scrollbar $itk_interior.scrl.xs
     blt::tk::scrollbar $itk_interior.scrl.ys
     set _tree [blt::tree create]
@@ -146 +138 @@
         -edit yes
     set m $itk_component(hull).mb.menu
-    blt::combobutton $itk_component(hull).mb -text "Operations" \
+    blt::combobutton $itk_component(hull).mb  \
         -icon [Rappture::icon wrench] \
         -menu $m -activerelief raised -relief flat
@@ -393 +385 @@
     foreach node $nodes {
         if { [$_tree get $node "delete" 0] } {
-            $itk_component(controls) item configure delete -state normal
+            $itk_component(controls) item configure Delete -state normal
             break
         }
@@ -437 +429 @@
             foreach {table column} $data break
             if { [blt::datatable names $table] == $table } {
-                set data [$table column values $column]
-                $table export csv -file $table.csv
-                lsave $table [$table column get -labels $column]
-                return $data 
+                return [$table column values $column]
             }
         }