Revision: 40991
http://brlcad.svn.sourceforge.net/brlcad/?rev=40991&view=rev
Author: brlcad
Date: 2010-10-14 04:51:46 +0000 (Thu, 14 Oct 2010)
Log Message:
-----------
we only want to stash the tcl gets command once, so make sure tcl_gets isn't
defined too before clobbering it.
Modified Paths:
--------------
brlcad/trunk/src/tclscripts/mged/text.tcl
Modified: brlcad/trunk/src/tclscripts/mged/text.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/mged/text.tcl 2010-10-14 04:43:50 UTC (rev
40990)
+++ brlcad/trunk/src/tclscripts/mged/text.tcl 2010-10-14 04:51:46 UTC (rev
40991)
@@ -292,7 +292,7 @@
# hack to hide the standard tcl gets implementation so we can wrap it.
-if {[catch {info body gets}] == 1} {
+if {[catch {info body gets}] == 1 && [catch {info body tcl_gets}] == 1} {
rename gets tcl_gets
}
This was sent by the SourceForge.net collaborative development platform, the
world's largest Open Source development site.
------------------------------------------------------------------------------
Beautiful is writing same markup. Internet Explorer 9 supports
standards for HTML5, CSS3, SVG 1.1, ECMAScript5, and DOM L2 & L3.
Spend less time writing and rewriting code and more time creating great
experiences on the web. Be a part of the beta today.
http://p.sf.net/sfu/beautyoftheweb
_______________________________________________
BRL-CAD Source Commits mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/brlcad-commits
