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

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

Revision: 12743
          http://sourceforge.net/p/plplot/code/12743
Author:   airwin
Date:     2013-11-23 01:28:32 +0000 (Sat, 23 Nov 2013)
Log Message:
-----------
Simplify and better document our pause treatment

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

Modified: trunk/examples/tk/standard_examples.in
===================================================================
--- trunk/examples/tk/standard_examples.in	2013-11-22 21:01:27 UTC (rev 12742)
+++ trunk/examples/tk/standard_examples.in	2013-11-23 01:28:32 UTC (rev 12743)
@@ -8,11 +8,11 @@
 exec @plserver_LOCATION@ -f "$0" "$@"
 source tkdemos.tcl
 #
-# Turn off pausing - it has to be done in two ways, as the plxframe uses a visual
-# clue and bindings to key press events.
+# Turn off pausing - Note in the current plserver case, the plxframe
+# uses a visual clue and bindings to key press events so a different
+# method must be used to disable pausing than in the wish case.
 # Note that the widget in question is .plw, not $plwin
 #
-$plwin cmd plspause 0
 plw::set_pause .plw 0
 #
 # Now run the examples one by one

Modified: trunk/examples/tk/tkdemos.tcl
===================================================================
--- trunk/examples/tk/tkdemos.tcl	2013-11-22 21:01:27 UTC (rev 12742)
+++ trunk/examples/tk/tkdemos.tcl	2013-11-23 01:28:32 UTC (rev 12743)
@@ -91,8 +91,6 @@
 	proc $i {} "
             global plwin
             $demo $plwin
-            # Disable pausing (currently only does that for the wish version)
-            $plwin cmd plspause 0
             $plwin cmd plcol0 1
             $plwin cmd plsori 0
             $plwin cmd plspal0 cmap0_default.pal

Modified: trunk/examples/tk/wish_standard_examples.in
===================================================================
--- trunk/examples/tk/wish_standard_examples.in	2013-11-22 21:01:27 UTC (rev 12742)
+++ trunk/examples/tk/wish_standard_examples.in	2013-11-23 01:28:32 UTC (rev 12743)
@@ -13,8 +13,8 @@
 lappend auto_path @pkgIndex_LOCATION@
 package require Pltk
 source tkdemos.tcl
-# disable pauses
-$plwin cmd plspause 0
+# Note wish currently disables pauses so no special method is
+# required to do that (unlike the plserver case).
 0
 1
 #2

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