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

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

Revision: 10841
          http://plplot.svn.sourceforge.net/plplot/?rev=10841&view=rev
Author:   airwin
Date:     2010-03-04 00:48:36 +0000 (Thu, 04 Mar 2010)

Log Message:
-----------
Fix some plspal1 bit-rot.

Don't exclude example 31 at this level since it is now copied appropriately
(even though it might not work).

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

Modified: trunk/examples/tk/tkdemos.tcl
===================================================================
--- trunk/examples/tk/tkdemos.tcl	2010-03-03 23:32:41 UTC (rev 10840)
+++ trunk/examples/tk/tkdemos.tcl	2010-03-04 00:48:36 UTC (rev 10841)
@@ -21,10 +21,8 @@
 plxframe .plw
 pack append . .plw {left expand fill}
 
-# Exclude 31 because it does not work well in this context and because
-# the required x31.tcl is normally not copied to the tk directory in any case.
-for {set i 1} {$i <= 30} {incr i} {
+for {set i 1} {$i <= 31} {incr i} {
     set demo x[format "%02d" $i]
     source $demo.tcl
-    proc $i {} "$demo .plw.plwin; .plw.plwin cmd plspal0 cmap0_default.pal; .plw.plwin cmd plspal1 cmap1_default.pal"
+    proc $i {} "$demo .plw.plwin; .plw.plwin cmd plspal0 cmap0_default.pal; .plw.plwin cmd plspal1 cmap1_default.pal 1"
 }


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