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

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

Revision: 12955
          http://sourceforge.net/p/plplot/code/12955
Author:   arjenmarkus
Date:     2014-01-23 14:07:07 +0000 (Thu, 23 Jan 2014)
Log Message:
-----------
(plplotbugs #142) First step to making the pausing more consistent. With this change the demos run via the runAllDemos.tcl program wait after each page, with a message at the bottom of what is expected. 

The behaviour in the Pltk package is controlled via the -eopcmd/-bopcmd options to the plframe widget.

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

Modified: trunk/examples/tk/runAllDemos.tcl
===================================================================
--- trunk/examples/tk/runAllDemos.tcl	2014-01-22 23:43:10 UTC (rev 12954)
+++ trunk/examples/tk/runAllDemos.tcl	2014-01-23 14:07:07 UTC (rev 12955)
@@ -37,7 +37,7 @@
     "*tclsh*" {
         # use 'wish" method
         plstdwin .
-        plframe .p
+        plframe .p -eopcmd waitForReturn
         set plwin .p
         button .bnextpage -text "Page" -command [list $plwin nextpage]
     }
@@ -48,6 +48,16 @@
     }
 }
 
+bind $plwin <Key-Return> stopWaiting
+
+proc stopWaiting {} {
+    set ::waitForReturn 1
+}
+proc waitForReturn {} {
+    .l configure -text "Press <enter> for the next page or complete the program"
+    vwait ::waitForReturn
+}
+
 grid .p -columnspan 5 -sticky news
 grid rowconfigure . 0 -weight 1
 for {set i 0} {$i < 5} {incr i} {
@@ -81,7 +91,7 @@
 
 proc run {demo} {
     global plwin
-    $plwin configure -eopcmd [list .bnextpage configure -state normal]
+    $plwin configure -eopcmd waitForReturn
     .l configure -text "Starting $demo"
     setButtonState disabled
     update idletasks
@@ -89,6 +99,7 @@
     if {[catch {$demo $plwin} err]} {
 	puts stderr $err
     }
+    $plwin configure -eopcmd [list .bnextpage configure -state normal]
     $plwin cmd pleop
     .l configure -text "$demo complete"
     setButtonState normal

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