Experimental Physics and
Industrial Control System

Kazuro FURUKAWA <[email protected]> · Fri, 08 Nov 2002 20:49:55 +0900

Hi,

If I understand correctly, you are using tcl/tk through SADscript/Tk.  

For some functions of Tcl, we need to load Tk first into SADscript, 
as in

 In[1]:= w=Window[]
 *** SAD/Tkinter Version 1.0.8.14.4b 8/19/2002 ***
Out[1]:= DefineWidgetSpecific[Window,w,Epilog]
 In[2]:= StringReplace[Tcl["return $tk_version",String],("."->",")]
Out[2]:= "8,3"

"Window[]" will load Tk.  Or we may use "TclEval" instead of "Tcl" 
as in

 In[1]:= StringReplace[TclEval["return $tk_version",String],("."->",")]
 *** SAD/Tkinter Version 1.0.8.14.4b 8/19/2002 ***
Out[1]:= "8,3"
 In[2]:= StringReplace[Tcl["return $tk_version",String],("."->",")]
Out[2]:= "8,3"

(After Tk is loaded, you may invoke any Tcl functions.)

>>> On Fri, 08 Nov 2002 16:21:44 +0800,  Lei Ge <[email protected]> wrote;
> Hello, everyone,
> 
> For some special need I built tcl8.3.2 and tk8.3.2 on my Solaris 2.8 
> workstation with a patch, and using gmake and gcc. But when applying this 
> tcl/tk to an application, I got:
> 
> > ???Tkinter::tclerror:  Error in Tcl: -1 in Tcl["return $tk_version",String]
> > ???General::wrongtype:  Argument must be Character-string in StringReplace[Tcl["return $tk_version",String],("."->",")]
> > ???Tkinter::tclerror:  Error in Tcl: -1 in Tcl["return $tk_version",String]
> > ???General::wrongtype:  Argument must be Character-string in StringReplace[Tcl["return $tk_version",String],("."->",")]
> > ???Tkinter::tclerror:  Error in Tcl: -1 in Tcl["bind Entry <Key-Delete> {if [%W selection present] {    %W delete sel.first 
> > sel.last     } else {%W delete [expr [%W index insert] - 1] insert}}"]
> > ???Tkinter::tclerror:  Error in Tcl: -1 in Tcl["bind Text <Key-Delete> {if [string compare [%W tag ranges sel] {}] {    %W delete 
> > sel.first sel.last     } else {%W delete {insert -1 chars} insert}}"]
> >  Memory Full, request:  204360873 166887989  Infinity
> > Segmentation Fault (core dumped)
> 
> Will anyone give me some help? Any reply is appreciated.
> 
> Thanks,
> 
> Ge Lei

Regards, Kazuro.
-----
Kazuro FURUKAWA <[email protected]>
 Linac,  High Energy Accelerator Research Organization (KEK), Japan

Experimental Physics and Industrial Control System

Experimental Physics and
Industrial Control System