[Plplot-cvs] SF.net SVN: plplot:[12226] trunk/examples/tk

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

Revision: 12226
          http://plplot.svn.sourceforge.net/plplot/?rev=12226&view=rev
Author:   airwin
Date:     2012-08-23 20:18:41 +0000 (Thu, 23 Aug 2012)
Log Message:
-----------
Add examples 0 and 33 to the examples that are executed by the
"test_tk_standard_examples" target.

Modified Paths:
--------------
    trunk/examples/tk/CMakeLists.txt
    trunk/examples/tk/tkdemos.tcl

Modified: trunk/examples/tk/CMakeLists.txt
===================================================================
--- trunk/examples/tk/CMakeLists.txt	2012-08-23 20:11:45 UTC (rev 12225)
+++ trunk/examples/tk/CMakeLists.txt	2012-08-23 20:18:41 UTC (rev 12226)
@@ -25,6 +25,7 @@
 # BUILD_TEST ON and CORE_BUILD OFF.
 
 set(tk_STRING_INDICES
+  "00"
   "01"
   "02"
   "03"
@@ -56,6 +57,7 @@
   "29"
   "30"
   "31"
+  "33"
   )
 
 set(tk_SRC_FILES

Modified: trunk/examples/tk/tkdemos.tcl
===================================================================
--- trunk/examples/tk/tkdemos.tcl	2012-08-23 20:11:45 UTC (rev 12225)
+++ trunk/examples/tk/tkdemos.tcl	2012-08-23 20:18:41 UTC (rev 12226)
@@ -46,27 +46,29 @@
 plxframe .plw
 pack append . .plw {left expand fill}
 
-for {set i 1} {$i <= 31} {incr i} {
-    set demo x[format "%02d" $i]
+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
+	#
+	# 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
+	}
+	
+	proc $i {} "
+            .plw.plwin cmd plspause 0
+            $demo .plw.plwin
+            .plw.plwin cmd plcol0 1
+            .plw.plwin cmd plsori 0
+            .plw.plwin cmd plspal0 cmap0_default.pal
+            .plw.plwin cmd plspal1 cmap1_default.pal 1
+            .plw.plwin cmd plstransform NULL
+        "
     }
-
-    proc $i {} "
-        .plw.plwin cmd plspause 0
-        $demo .plw.plwin
-        .plw.plwin cmd plcol0 1
-        .plw.plwin cmd plsori 0
-        .plw.plwin cmd plspal0 cmap0_default.pal
-        .plw.plwin cmd plspal1 cmap1_default.pal 1
-        .plw.plwin cmd plstransform NULL
-    "
 }

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