[Plplot-cvs] SF.net SVN: plplot:[12681] trunk/bindings/tk

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

Revision: 12681
          http://sourceforge.net/p/plplot/code/12681
Author:   airwin
Date:     2013-11-12 06:03:11 +0000 (Tue, 12 Nov 2013)
Log Message:
-----------
Forgot to use the global attribute when necessary for new global
variables pl_itcl_package_name and pl_iwidgets_package_name.  For all
PLplot Tk GUI's these fixes allow access to the "Itcl" version of the
file chooser and also provides an "Itcl" "Palettes" menu item which
appears to work perfectly.

Modified Paths:
--------------
    trunk/bindings/tk/pltools.tcl
    trunk/bindings/tk/plwidget.tcl

Modified: trunk/bindings/tk/pltools.tcl
===================================================================
--- trunk/bindings/tk/pltools.tcl	2013-11-12 05:49:16 UTC (rev 12680)
+++ trunk/bindings/tk/pltools.tcl	2013-11-12 06:03:11 UTC (rev 12681)
@@ -256,6 +256,7 @@
 #----------------------------------------------------------------------------
 
 proc fileSelect {{filter {}}} {
+    global pl_iwidgets_package_name
 
     # Use the Iwidgets file selector if available
     if ![catch {eval package require $pl_iwidgets_package_name}] {

Modified: trunk/bindings/tk/plwidget.tcl
===================================================================
--- trunk/bindings/tk/plwidget.tcl	2013-11-12 05:49:16 UTC (rev 12680)
+++ trunk/bindings/tk/plwidget.tcl	2013-11-12 06:03:11 UTC (rev 12681)
@@ -556,7 +556,7 @@
 
 proc plw::create_pmenu_palettes {w} {
     global pmenu; set m $pmenu($w).palettes
-    global plopt_static_redraw plopt_dynamic_redraw
+    global plopt_static_redraw plopt_dynamic_redraw pl_itcl_package_name
 
 # The palette tools require Itcl 3.0 or later.
 

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