Changeset 1918 for branches/blt4

Timestamp:

Oct 15, 2010 8:59:46 PM (14 years ago)

Author:

gah

Message:

examine group list with tree xml parser

Location:

branches/blt4/gui/scripts

Files:

• Makefile.in (modified) (1 diff)
• datatableresult.tcl (modified) (4 diffs)

branches/blt4/gui/scripts/Makefile.in

@@ -34 +34 @@
                 $(srcdir)/controls.tcl \
                 $(srcdir)/curve.tcl \
+                $(srcdir)/datatable.tcl \
+                $(srcdir)/datatableresult.tcl \
                 $(srcdir)/deviceEditor.tcl \
                 $(srcdir)/deviceLayout1D.tcl \

branches/blt4/gui/scripts/datatableresult.tcl

@@ -53 +53 @@
     }
     public method snap { w h }
+    public method tooltip { desc x y }
     public method parameters {title args} { 
         # do nothing 
@@ -144 +145 @@
     }
     if { $params(-raise) } {
-        puts stderr "raised set to $dataobj"
         set _raised $dataobj
     }
@@ -325 +325 @@
         foreach { label description style } [$dataobj columns] {
             foreach c [lsort -dictionary [array names labels $label*]] {
-                $itk_component(treeview) column insert end $c
-                Rappture::Tooltip::for $itk_component(treeview) $c
+                eval $itk_component(treeview) column insert end [list $c] $style
+                $itk_component(treeview) column bind $c <Enter> \
+                    [itcl::code $this tooltip $description %X %Y]
+                $itk_component(treeview) column bind $c <Leave> \
+                    { Rappture::Tooltip::tooltip cancel }
+            }
+        }    
+    }
+    if { [llength $_dlist] == 1 } {
+        foreach { label description style } [$dataobj columns] {
+            foreach c [lsort -dictionary [array names labels $label*]] {
+                $itk_component(treeview) column configure $c -text $label
             }
         }    
@@ -354 +364 @@
 }
 
+itcl::body Rappture::DataTableResult::tooltip { description x y } {
+    Rappture::Tooltip::text $itk_component(treeview) $description
+    Rappture::Tooltip::tooltip pending $itk_component(treeview) @$x,$y
+}