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

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

Revision: 12804
          http://sourceforge.net/p/plplot/code/12804
Author:   arjenmarkus
Date:     2013-12-03 11:49:15 +0000 (Tue, 03 Dec 2013)
Log Message:
-----------
Grey out several examples in the full set. These either do not work or have not been propagated yet. The variable greyedOut holds the list of these examples.

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

Modified: trunk/examples/tk/runAllDemos.tcl
===================================================================
--- trunk/examples/tk/runAllDemos.tcl	2013-12-02 07:43:42 UTC (rev 12803)
+++ trunk/examples/tk/runAllDemos.tcl	2013-12-03 11:49:15 UTC (rev 12804)
@@ -7,6 +7,13 @@
 #
 #----------------------------------------------------------------------------
 
+#
+# Set of disabled examples:
+# examples 14 and 31 do not work properly
+# example 32 has deliberately (not yet) been propagated to all languages
+#
+set greyedOut {14 31 32}
+
 if {[catch {file readlink [info script]} path]} {
     set path [info script]
 }
@@ -54,8 +61,14 @@
 if {$tcl_platform(platform) != "unix"} {
     button .cshell -text "Shell" -command "console show"
 }
-button .creload -text "Reload" -command reload
 
+#
+# The reload button is probably not very useful to most users
+# as it reloads the set of demos and commands. So disable it
+# at least the time being
+#
+button .creload -text "Reload" -command reload -state disabled
+
 set buttons [concat [info commands .c*] .bnextpage]
 
 proc reload {} {
@@ -83,8 +96,13 @@
 }
 
 proc setButtonState {state} {
+    global greyedOut
     foreach b [info commands .b*] {
-	$b configure -state $state
+	if { [lsearch $greyedOut [string range $b 2 end]] < 0 } {
+	    $b configure -state $state
+	} else {
+	    $b configure -state disabled
+	}
     }
 }
 
@@ -99,6 +117,10 @@
     }
 }
 
+foreach i $greyedOut {
+    .b$i configure -state disabled
+}
+
 if {[llength $buttons]} {
     eval grid $buttons -sticky ew
 }

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