plplot-cvs

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

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

Revision: 9887
          http://plplot.svn.sourceforge.net/plplot/?rev=9887&view=rev
Author:   airwin
Date:     2009-05-03 00:59:42 +0000 (Sun, 03 May 2009)

Log Message:
-----------
Exclude example 31 from this script since it does not work well under plserver
and for that reason x31.tcl is normally not copied to the tk directory.

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

Modified: trunk/examples/tk/tkdemos.tcl
===================================================================
--- trunk/examples/tk/tkdemos.tcl	2009-05-03 00:23:09 UTC (rev 9886)
+++ trunk/examples/tk/tkdemos.tcl	2009-05-03 00:59:42 UTC (rev 9887)
@@ -21,7 +21,9 @@
 plxframe .plw
 pack append . .plw {left expand fill}
 
-for {set i 1} {$i <= 31} {incr i} {
+# 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} {
     set demo x[format "%02d" $i]
     source $demo.tcl
     proc $i {} "$demo .plw.plwin"


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

[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.

[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.

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

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

Revision: 12698
          http://sourceforge.net/p/plplot/code/12698
Author:   airwin
Date:     2013-11-14 21:32:36 +0000 (Thu, 14 Nov 2013)
Log Message:
-----------
Remove "$plwin cmd plspause 0" command since for some reason that does
not (yet) work under plserver, and any case this should be part of the
plserver or wish script that sources tkdemos.tcl.

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

Modified: trunk/examples/tk/tkdemos.tcl
===================================================================
--- trunk/examples/tk/tkdemos.tcl	2013-11-14 19:56:31 UTC (rev 12697)
+++ trunk/examples/tk/tkdemos.tcl	2013-11-14 21:32:36 UTC (rev 12698)
@@ -73,7 +73,6 @@
 	
 	proc $i {} "
             global plwin
-            $plwin cmd plspause 0
             $demo $plwin
             $plwin cmd plcol0 1
             $plwin cmd plsori 0

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

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

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

Revision: 12712
          http://sourceforge.net/p/plplot/code/12712
Author:   arjenmarkus
Date:     2013-11-18 20:17:42 +0000 (Mon, 18 Nov 2013)
Log Message:
-----------
Use [info nameofexecutable] to identify whether the Tcl/Tk interpreter program is "plserver" or one of the standard shells. Include tclsh in the mix and use a switch statement.

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

Modified: trunk/examples/tk/tkdemos.tcl
===================================================================
--- trunk/examples/tk/tkdemos.tcl	2013-11-18 19:31:25 UTC (rev 12711)
+++ trunk/examples/tk/tkdemos.tcl	2013-11-18 20:17:42 UTC (rev 12712)
@@ -43,28 +43,36 @@
 set  utf8_examples {4 18 24 26 33}
 
 # In order to distinguish whether this is a plserver or wish
-# environment we assume that $argv0 has the string "plserver" or
-# "wish" in it.  Some contrived examples can be figured out where this
+# environment we assume that [info nameofexecutable] has the string "plserver",
+# "wish" or "tclsh" in it.  Some contrived examples can be figured out where this
 # assumption is not correct, and for those cases we simply emit an
 # error message and return.  But normally this assumption is correct,
 # and it is certainly correct for our tests.
-if { [string first "plserver" $argv0] >= 0 } {
-    # use 'plserver' method
-    plstdwin .
-    plxframe .plw
-    set plwin .plw.plwin
-} elseif { [string first "wish" $argv0] >= 0 } {
-    # use 'wish" method
-    plframe .plw
-    set plwin .plw
-} else {
-    puts stderr "Error: argv0 = \"$argv0\"\ndoes not contain either the substrings \"plserver\" or \"wish\""
-    puts stderr "Therefore cannot decide how to proceed with tkdemos.tcl so giving up"
-    return
+switch -glob -- [info nameofexecutable] {
+    "*plserver*" {
+        # use 'plserver' method
+        plstdwin .
+        plxframe .plw
+        set plwin .plw.plwin
+    }
+    "*wish*" -
+    "*tclsh*" {
+        # use 'wish" method
+        plframe .plw
+        set plwin .plw
+    }
+    default {
+        puts stderr "Error: argv0 = \"$argv0\"\ndoes not contain either the substrings \"plserver\" or \"wish\""
+        puts stderr "Therefore cannot decide how to proceed with tkdemos.tcl so giving up"
+        return
+    }
 }
+puts "append ..."
 pack append . .plw {left expand fill}
 
 for {set i 0} {$i <= 33} {incr i} {
+
+    puts "$i ..."
     if {$i != 32} {
 	set demo x[format "%02d" $i]
 

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

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

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

Revision: 12721
          http://sourceforge.net/p/plplot/code/12721
Author:   airwin
Date:     2013-11-20 06:23:25 +0000 (Wed, 20 Nov 2013)
Log Message:
-----------
Small cleanup of the wording.

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

Modified: trunk/examples/tk/tkdemos.tcl
===================================================================
--- trunk/examples/tk/tkdemos.tcl	2013-11-20 06:21:25 UTC (rev 12720)
+++ trunk/examples/tk/tkdemos.tcl	2013-11-20 06:23:25 UTC (rev 12721)
@@ -43,11 +43,11 @@
 set  utf8_examples {4 18 24 26 33}
 
 # In order to distinguish whether this is a plserver or wish
-# environment we assume that [info nameofexecutable] has the string "plserver",
-# "wish" or "tclsh" in it.  Some contrived examples can be figured out where this
-# assumption is not correct, and for those cases we simply emit an
-# error message and return.  But normally this assumption is correct,
-# and it is certainly correct for our tests.
+# environment we assume that [info nameofexecutable] has the string
+# "plserver", "wish" or "tclsh" in it.  Some contrived examples can be
+# figured out where this assumption is not correct, and for those
+# cases we simply emit an error message and return.  But normally this
+# assumption is correct, and it is certainly correct for our tests.
 switch -glob -- [info nameofexecutable] {
     "*plserver*" {
         # use 'plserver' method
@@ -62,7 +62,7 @@
         set plwin .plw
     }
     default {
-        puts stderr "Error: argv0 = \"$argv0\"\ndoes not contain either the substrings \"plserver\" or \"wish\""
+        puts stderr "Error: argv0 = \"$argv0\"\ndoes not contain either the substrings \"plserver\", \"tclsh\", or \"wish\""
         puts stderr "Therefore cannot decide how to proceed with tkdemos.tcl so giving up"
         return
     }

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