[Plplot-cvs] SF.net SVN: plplot:[12225] trunk/examples/tcl/tcldemos.tcl

[<ai...@us...>]

Revision: 12225
          http://plplot.svn.sourceforge.net/plplot/?rev=12225&view=rev
Author:   airwin
Date:     2012-08-23 20:11:45 +0000 (Thu, 23 Aug 2012)
Log Message:
-----------
Add "0" and "33" to the Tcl commands that are configured so that
the target "test_tcl_standard_examples" works correctly.

Modified Paths:
--------------
    trunk/examples/tcl/tcldemos.tcl

Modified: trunk/examples/tcl/tcldemos.tcl
===================================================================
--- trunk/examples/tcl/tcldemos.tcl	2012-08-23 18:46:12 UTC (rev 12224)
+++ trunk/examples/tcl/tcldemos.tcl	2012-08-23 20:11:45 UTC (rev 12225)
@@ -42,28 +42,30 @@
 
 set  utf8_examples {4 18 24 26 33}
 
-for {set i 1} {$i <= 31} {incr i} {
-    set demo x[format "%02d" $i]
-
-    #
-    # If the source code contains UTF-8 characters (beyond the
-    # ASCII-7 encoding), take special measures
-    #
-
-    if { [lsearch $utf8_examples $i] < 0 } {
-        source $demo.tcl
-    } else {
-        sourceUtf8 $demo.tcl
+for {set i 0} {$i <= 33} {incr i} {
+    if {$i != 32} {
+	set demo x[format "%02d" $i]
+	
+	#
+	# If the source code contains UTF-8 characters (beyond the
+	# ASCII-7 encoding), take special measures
+	#
+	
+	if { [lsearch $utf8_examples $i] < 0 } {
+	    source $demo.tcl
+	} else {
+	    sourceUtf8 $demo.tcl
+	}
+	
+	# restore defaults
+	proc $i {} "
+            $demo
+            loopback cmd pleop
+            loopback cmd plcol0 1
+            loopback cmd plsori 0
+            loopback cmd plspal0 cmap0_default.pal
+            loopback cmd plspal1 cmap1_default.pal 1
+            loopback cmd plstransform NULL
+        "
     }
-
-    # restore defaults
-    proc $i {} "
-        $demo
-        loopback cmd pleop
-        loopback cmd plcol0 1
-        loopback cmd plsori 0
-        loopback cmd plspal0 cmap0_default.pal
-        loopback cmd plspal1 cmap1_default.pal 1
-        loopback cmd plstransform NULL
-    "
 }

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.