Changeset 1715 for trunk/examples/zoo/binary/tardir.tcl

Timestamp:

May 17, 2010, 6:26:29 PM (14 years ago)

Author:

mmc

Message:

Fixed the image object to act more like a true input. If an image has a
label, it will show a thumbnail along with image info, and users can
right-click to get upload/download options. If there's no label, then
the image is shown full-size as before, so it acts like a decoration.

Changed binary string values to look like the image, with an icon representing
binary data and an info string showing info about the data type. This is
a little nicer than the hex dump we used to show for binary strings. String
size can be set to "binary" to force the string into the binary display
mode.

File:

• trunk/examples/zoo/binary/tardir.tcl (modified) (1 diff)

trunk/examples/zoo/binary/tardir.tcl

@@ -21 +21 @@
 close $fid
 
-catch {exec tar tvzf $file} dir
+set status [catch {exec tar tvzf $file} result]
 file delete -force $file
 
+if {$status != 0} {
+    puts stderr "ERROR: $result"
+    exit 1
+}
+
 $driver put output.string(dir).about.label "Contents"
-$driver put output.string(dir).current $dir
+$driver put output.string(dir).current $result
 
 $driver put output.string(tarball).about.label "Original Tar File"