Changeset 1670

Timestamp:

Mar 24, 2010 5:32:13 PM (14 years ago)

Author:

gah

Message:

 

Location:

branches/blt4/gui/scripts

Files:

• pushbutton.tcl (modified) (3 diffs)
• xyprint.tcl (modified) (2 diffs)

branches/blt4/gui/scripts/pushbutton.tcl

@@ -27 +27 @@
     itk_option define -offvalue offValue OffValue "normal"
 
-    constructor {args} { # defined below }
-    destructor { # defined below }
+    constructor {args} { 
+        # defined below 
+    }
+    destructor { 
+        # defined below 
+    }
 
     public method invoke {}
@@ -68 +72 @@
 }
 
+# ----------------------------------------------------------------------
+# CONSTRUCTOR
+# ----------------------------------------------------------------------
+itcl::body Rappture::PushButton::destructor {} {
+   if {"" != $_variable} {
+        upvar #0 $_variable var
+        trace remove variable var write [itcl::code $this _fixValue]
+    }
+}
+
 itcl::body Rappture::PushButton::invoke {} {
     toggle
@@ -103 +117 @@
         $itk_component(button) configure -relief sunken \
             -image $onimage -bg white
-    } elseif { $var == $offvalue } {
+    } else {
         set _state 0
         $itk_component(button) configure -relief raise \
             -image $offimage -bg grey85
-    } else {
-        puts stderr "unknown value \"$var\": should be \"$offvalue\" or \"$onvalue\""
     }
 }

branches/blt4/gui/scripts/xyprint.tcl

@@ -201 +201 @@
         image delete $img
         return [list .png $bytes]
+    } elseif { $format == "gif" } {
+        set img [image create picture]
+        $_clone snap $img
+        $img export gif -data bytes
+        image delete $img
+        return [list .gif $bytes]
     }
     
@@ -618 +624 @@
         "eps" "EPS Encapsulated PostScript"  \
         "jpg" "JPEG Joint Photographic Experts Group Format" \
-        "png" "PNG Portable Network Graphics Format"         
+        "png" "PNG Portable Network Graphics Format" \
+        "gif" "GIF Graphics Interchange Format"
 
     bind $page.format <<Value>> [itcl::code $this ApplyGeneralSettings]