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

[<arj...@us...>]

Revision: 11079
          http://plplot.svn.sourceforge.net/plplot/?rev=11079&view=rev
Author:   arjenmarkus
Date:     2010-06-17 07:21:29 +0000 (Thu, 17 Jun 2010)

Log Message:
-----------
Adjust the standard examples scripts: they can now be used as regular Tcl/Tk script as well as shell scripts.
Added the "plspause 0" command before running the demo. Note however that this does not work well with interactive
devices (solve that via a command-line option?)

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

Modified: trunk/examples/tcl/standard_examples.in
===================================================================
--- trunk/examples/tcl/standard_examples.in	2010-06-16 20:41:58 UTC (rev 11078)
+++ trunk/examples/tcl/standard_examples.in	2010-06-17 07:21:29 UTC (rev 11079)
@@ -1,6 +1,9 @@
 #!@SH_EXECUTABLE@
 # Examples 14 and 31 left out - see Tk standard_examples.in
-#
+# Note the backslash at the end - this causes Tcl to ignore
+# the next line. It becomes a valid Tcl script as well as
+# valid shell script
+# \
 @pltcl_LOCATION@ $* <<EOF
 source tcldemos.tcl
 plinit

Modified: trunk/examples/tk/standard_examples.in
===================================================================
--- trunk/examples/tk/standard_examples.in	2010-06-16 20:41:58 UTC (rev 11078)
+++ trunk/examples/tk/standard_examples.in	2010-06-17 07:21:29 UTC (rev 11079)
@@ -2,6 +2,10 @@
 # Run plserver example for standard examples.
 # Drop examples 14 and 31 because querying for devices does not
 # seem to work in this context.
+# Note the backslash at the end - this causes Tcl to ignore
+# the next line. It becomes a valid Tcl script as well as
+# valid shell script
+# \
 @plserver_LOCATION@ <<EOF
 source tkdemos.tcl
 1

Modified: trunk/examples/tk/tkdemos.tcl
===================================================================
--- trunk/examples/tk/tkdemos.tcl	2010-06-16 20:41:58 UTC (rev 11078)
+++ trunk/examples/tk/tkdemos.tcl	2010-06-17 07:21:29 UTC (rev 11079)
@@ -25,6 +25,7 @@
     set demo x[format "%02d" $i]
     source $demo.tcl
     proc $i {} "
+        .plw.plwin cmd plspause 0
         $demo .plw.plwin
         .plw.plwin cmd plcol0 1
         .plw.plwin cmd plsori 0


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