Revision: 40532
http://brlcad.svn.sourceforge.net/brlcad/?rev=40532&view=rev
Author: bob1961
Date: 2010-09-10 20:36:05 +0000 (Fri, 10 Sep 2010)
Log Message:
-----------
Added special handling for Windows to replace the backslashes with forward
slashes before being evaluated again by Tcl in RtControl::clear.
Modified Paths:
--------------
brlcad/trunk/src/tclscripts/lib/RtControl.tcl
Modified: brlcad/trunk/src/tclscripts/lib/RtControl.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/lib/RtControl.tcl 2010-09-10 20:13:25 UTC
(rev 40531)
+++ brlcad/trunk/src/tclscripts/lib/RtControl.tcl 2010-09-10 20:36:05 UTC
(rev 40532)
@@ -463,13 +463,20 @@
}
::itcl::body RtControl::clear {} {
+ global tcl_platform
+
if {!$isaMged && !$isaGed} {
error "Raytrace Control Panel($this) is not associated with an Mged
object"
}
set cooked_dest [get_cooked_dest]
- set fbclear [bu_brlcad_root "bin/fbclear"]
+ if {$tcl_platform(platform) == "windows"} {
+ set fbclear [bu_brlcad_root "bin/fbclear.exe"]
+ regsub -all {\\} $fbclear {/} fbclear
+ } else {
+ set fbclear [bu_brlcad_root "bin/fbclear"]
+ }
set result [catch {eval exec $fbclear -F $cooked_dest $rtColor &} rt_error]
if {$result} {
This was sent by the SourceForge.net collaborative development platform, the
world's largest Open Source development site.
------------------------------------------------------------------------------
Start uncovering the many advantages of virtual appliances
and start using them to simplify application deployment and
accelerate your shift to cloud computing
http://p.sf.net/sfu/novell-sfdev2dev
_______________________________________________
BRL-CAD Source Commits mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/brlcad-commits
