Changeset 14

Timestamp:

Jun 8, 2005, 9:40:18 PM (19 years ago)

Author:

mmc

Message:

Added a new <mesh> type and a viewer for mesh geometries.
Needed this for Prophet, and it's a little hard-coded to
their test case. Hack job, but it works. Also fixed the
tooltips so they don't hang around in strange cases.

Location:

trunk/gui/scripts

Files:

• cloud.tcl (modified) (1 diff)
• field.tcl (modified) (1 diff)
• images/flipxy.xbm (added)
• loader.tcl (modified) (1 diff)
• mesh.tcl (added)
• meshresult.tcl (added)
• resultviewer.tcl (modified) (2 diffs)
• tooltip.tcl (modified) (1 diff)
• xyresult.tcl (modified) (1 diff)

trunk/gui/scripts/cloud.tcl

@@ -114 +114 @@
         # make sure we have x,y,z
         while {[llength $line] < 3} {
-            append line "0"
+            lappend line "0"
         }
 

trunk/gui/scripts/field.tcl

@@ -270 +270 @@
         }
     }
+
+    # to be compatible with curve objects
+    set hints(xlabel) "Position"
 
     if {[info exists hints(group)] && [info exists hints(label)]} {

trunk/gui/scripts/loader.tcl

@@ -86 +86 @@
     foreach ftail $flist {
         set fpath [file join $fdir examples $ftail]
-        foreach fname [glob -nocomplain $fpath] {
+        foreach fname [lsort [glob -nocomplain $fpath]] {
             if {[file exists $fname]} {
                 if {[catch {set obj [Rappture::library $fname]} result]} {

trunk/gui/scripts/resultviewer.tcl

@@ -209 +209 @@
             }
         }
+        ::Rappture::Mesh {
+            switch -- [$dataobj dimensions] {
+                2 {
+                    set mode "mesh"
+                    if {![info exists _mode2widget($mode)]} {
+                        set w $itk_interior.mesh
+                        Rappture::MeshResult $w
+                        set _mode2widget($mode) $w
+                    }
+                }
+                default {
+                    error "can't handle [$dataobj dimensions]D field"
+                }
+            }
+        }
         ::Rappture::Table {
             set cols [Rappture::EnergyLevels::columns $dataobj]
@@ -293 +308 @@
             return [Rappture::Field ::#auto $xmlobj $path]
         }
+        mesh {
+            return [Rappture::Mesh ::#auto $xmlobj $path]
+        }
         table {
             return [Rappture::Table ::#auto $xmlobj $path]

trunk/gui/scripts/tooltip.tcl

@@ -351 +351 @@
 Rappture::Tooltip .rappturetooltip
 
+# any click on any widget takes down the tooltip
+bind all <Leave> [list ::Rappture::Tooltip::tooltip cancel]
+bind all <ButtonPress> [list ::Rappture::Tooltip::tooltip cancel]
+
 # create a tooltip widget to show error cues
 Rappture::Tooltip .rappturetoolcue \

trunk/gui/scripts/xyresult.tcl

@@ -108 +108 @@
     $itk_component(plot) element bind all <Leave> \
         [itcl::code $this _hilite off %x %y]
+
+    bind $itk_component(plot) <Leave> \
+        [list Rappture::Tooltip::tooltip cancel]
 
     Blt_ZoomStack $itk_component(plot)