Changeset 126 for trunk/gui/scripts

Timestamp:

Nov 4, 2005, 11:08:21 PM (19 years ago)

Author:

mmc

Message:

• Added a new <image> which can be used on both the input and the output side.

• Added examples to the zoo for images and tables (energy viewer).

Location:

trunk/gui/scripts

Files:

• controls.tcl (modified) (1 diff)
• image.tcl (added)
• imageentry.tcl (added)
• imageresult.tcl (added)
• resultviewer.tcl (modified) (3 diffs)

trunk/gui/scripts/controls.tcl

@@ -144 +144 @@
             Rappture::TextEntry $w $_owner $path
             bind $w <<Value>> [itcl::code $this _controlChanged $path]
+        }
+        image {
+            Rappture::ImageEntry $w $_owner $path
         }
         control {

trunk/gui/scripts/resultviewer.tcl

@@ -14 +14 @@
 # ======================================================================
 package require Itk
+package require Img
 
 itcl::class Rappture::ResultViewer {
@@ -282 +283 @@
             }
         }
+        ::Rappture::Image {
+            set mode "image"
+            if {![info exists _mode2widget($mode)]} {
+                set w $itk_interior.image
+                Rappture::ImageResult $w
+                set _mode2widget($mode) $w
+            }
+        }
         default {
             error "don't know how to plot <$type> data"
@@ -363 +372 @@
         table {
             return [Rappture::Table ::#auto $xmlobj $path]
+        }
+        image {
+            return [Rappture::Image ::#auto $xmlobj $path]
         }
         string - log {