[Plplot-cvs] SF.net SVN: plplot:[10226] trunk/examples/tk/tkdemos.tcl

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

Revision: 10226
          http://plplot.svn.sourceforge.net/plplot/?rev=10226&view=rev
Author:   airwin
Date:     2009-08-09 19:39:14 +0000 (Sun, 09 Aug 2009)

Log Message:
-----------
Restore cmap0 and cmap1 palettes after each example so the colour palette of
one example (e.g., example 16) does not interfere with subsequent examples
that are executed.  Note, this could be done instead in each of x??.tcl, but
I do it in tkdemos.tcl to avoid adding colour commands for standalone
executions of x??.tcl which would ruin the comparison between PostScript
results for tcl and C.

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

Modified: trunk/examples/tk/tkdemos.tcl
===================================================================
--- trunk/examples/tk/tkdemos.tcl	2009-08-09 18:39:45 UTC (rev 10225)
+++ trunk/examples/tk/tkdemos.tcl	2009-08-09 19:39:14 UTC (rev 10226)
@@ -26,5 +26,5 @@
 for {set i 1} {$i <= 30} {incr i} {
     set demo x[format "%02d" $i]
     source $demo.tcl
-    proc $i {} "$demo .plw.plwin"
+    proc $i {} "$demo .plw.plwin; .plw.plwin cmd plspal0 cmap0_default.pal; .plw.plwin cmd plspal1 cmap1_default.pal"
 }


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