Revision: 45898
http://brlcad.svn.sourceforge.net/brlcad/?rev=45898&view=rev
Author: brlcad
Date: 2011-08-10 13:55:30 +0000 (Wed, 10 Aug 2011)
Log Message:
-----------
make sure the tk namespace exists before trying to set variables in it
Modified Paths:
--------------
brlcad/trunk/src/tclscripts/cad_dialog.tcl
brlcad/trunk/src/tclscripts/hoc.tcl
Modified: brlcad/trunk/src/tclscripts/cad_dialog.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/cad_dialog.tcl 2011-08-10 13:53:32 UTC (rev
45897)
+++ brlcad/trunk/src/tclscripts/cad_dialog.tcl 2011-08-10 13:55:30 UTC (rev
45898)
@@ -25,8 +25,10 @@
#
###############################################################################
-if {![info exists ::tk::Priv(wait_cmd)]} {
- set ::tk::Priv(wait_cmd) tkwait
+if {[namespace exists ::tk]} {
+ if {![info exists ::tk::Priv(wait_cmd)]} {
+ set ::tk::Priv(wait_cmd) tkwait
+ }
}
# cad_dialog --
Modified: brlcad/trunk/src/tclscripts/hoc.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/hoc.tcl 2011-08-10 13:53:32 UTC (rev 45897)
+++ brlcad/trunk/src/tclscripts/hoc.tcl 2011-08-10 13:55:30 UTC (rev 45898)
@@ -28,8 +28,10 @@
# Paul Tanenbaum
#
-if {![info exists ::tk::Priv(cad_dialog)]} {
- set ::tk::Priv(cad_dialog) .cad_dialog
+if {[namespace exists ::tk]} {
+ if {![info exists ::tk::Priv(cad_dialog)]} {
+ set ::tk::Priv(cad_dialog) .cad_dialog
+ }
}
# hoc_build_string --
This was sent by the SourceForge.net collaborative development platform, the
world's largest Open Source development site.
------------------------------------------------------------------------------
uberSVN's rich system and user administration capabilities and model
configuration take the hassle out of deploying and managing Subversion and
the tools developers use with it. Learn more about uberSVN and get a free
download at: http://p.sf.net/sfu/wandisco-dev2dev
_______________________________________________
BRL-CAD Source Commits mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/brlcad-commits
