[GiDlist] BLT trouble
Posted: Fri Jun 20, 2003 3:33 pm
Hi everyone
Can anyone tell me what alterations I need to make to my tcl scripts so that
they will work with the tcl extension BLT? I have installed the BLT
executables within the same directory as the original tclsh84.exe
(problemtypes/tcl/bin), but for some reason I have a stand-alone tcl script
that will no longer execute when called.
The stand-alone script is executed from within another script, and has the
following three lines at the start of the file:
#!/bin/sh
# -*- mode: tcl -*- \
exec tclsh "$0" ${1+"$@"}
And as far as I can work out the lines of tcl code that call the script are:
Set prg "[list [file join $ControlBoxDir tcl bin tclsh84s.exe]]
[list [file join $ControlBoxDir $RunInfo(control,name)]] $_args"
set result [catch {
runExe run $prg -blocking false -callback
"::CFDControl::ControlBoxCb %m"
} RunInfo(control,pid)]
Does anyone know where I am going wrong? I am still very much a beginner
with tcl and so I would be extremely greatful for any help, no matter how
basic it might seem!
Kindest regards,
Kris Saunders
This email and any attached files are confidential and copyright protected.
If you are not the addressee, any dissemination of this communication is
strictly prohibited. Unless otherwise expressly agreed in writing, nothing
stated in this communication shall be legally binding.
Can anyone tell me what alterations I need to make to my tcl scripts so that
they will work with the tcl extension BLT? I have installed the BLT
executables within the same directory as the original tclsh84.exe
(problemtypes/tcl/bin), but for some reason I have a stand-alone tcl script
that will no longer execute when called.
The stand-alone script is executed from within another script, and has the
following three lines at the start of the file:
#!/bin/sh
# -*- mode: tcl -*- \
exec tclsh "$0" ${1+"$@"}
And as far as I can work out the lines of tcl code that call the script are:
Set prg "[list [file join $ControlBoxDir tcl bin tclsh84s.exe]]
[list [file join $ControlBoxDir $RunInfo(control,name)]] $_args"
set result [catch {
runExe run $prg -blocking false -callback
"::CFDControl::ControlBoxCb %m"
} RunInfo(control,pid)]
Does anyone know where I am going wrong? I am still very much a beginner
with tcl and so I would be extremely greatful for any help, no matter how
basic it might seem!
Kindest regards,
Kris Saunders
This email and any attached files are confidential and copyright protected.
If you are not the addressee, any dissemination of this communication is
strictly prohibited. Unless otherwise expressly agreed in writing, nothing
stated in this communication shall be legally binding.