Changeset 2745 for branches/blt4/gui/scripts/imageentry.tcl

Timestamp:

Dec 27, 2011 2:46:12 PM (13 years ago)

Author:

gah

Message:

sync with trunk

File:

• branches/blt4/gui/scripts/imageentry.tcl (modified) (1 diff)

branches/blt4/gui/scripts/imageentry.tcl

@@ -176 +176 @@
     set fmt [$_owner xml get $_path.convert]
     if {"" != $fmt && "" != $_imh} {
-        switch -- $fmt {
-            "pgm" - "ppm" {
-                $_imh export pbm -data bytes
-            }
-            "jpeg" {
-                $_imh export jpg -data bytes
-            }
-            "tiff" {
-                $_imh export tif -data bytes
-            }
-            "bmp" - "png" - "xbm" - "xpm" {
-                $_imh export $fmt -data bytes
-            }
-            default {
-                error "unknown image format \"$fmt\""
-            }
-        }
+        switch -- $fmt {
+            "pgm" - "ppm" {
+                $_imh export pbm -data bytes
+            }
+            "jpeg" {
+                $_imh export jpg -data bytes
+            }
+            "tiff" {
+                $_imh export tif -data bytes
+            }
+            "bmp" - "png" - "xbm" - "xpm" {
+                $_imh export $fmt -data bytes
+            }
+            default {
+                error "unknown image format \"$fmt\""
+            }
+        }
     }
     return $bytes