EPICS Controls Argonne National Laboratory

Experimental Physics and
Industrial Control System

1994  1995  1996  1997  1998  1999  2000  2001  2002  2003  2004  2005  2006  2007  2008  <20092010  2011  2012  2013  2014  2015  2016  2017  2018  2019  2020  2021  2022  2023  2024  Index 1994  1995  1996  1997  1998  1999  2000  2001  2002  2003  2004  2005  2006  2007  2008  <20092010  2011  2012  2013  2014  2015  2016  2017  2018  2019  2020  2021  2022  2023  2024 
<== Date ==> <== Thread ==>

Subject: Re: a small tcl/tk script question
From: Matthieu Bec <[email protected]>
To: [email protected]
Cc: tech-talk <[email protected]>
Date: Thu, 25 Jun 2009 23:26:37 -0400
hi, marco

have you checked alternatives to tcl/tk? Look it up. python/gtk might be
one, there are a lot more. tcl/tk is not necessarily something one would
select nowadays to create quick lunch panels.

mine got a bit rusty as you pointed rightly :)

Matthieu



On 06/25/09 23:10, Silver wrote:
> hi, Matthieu:
> 
>    I have tried it before, but failed. I tried again with exec "something"&, it works. a small tricks wasting my whole morning time. thanks a lot for your help.
> 
> ======= At 2009-06-26, 10:44:22 you wrote: =======
> 
>> exec "something&"
>>
>>
>>
>> On 06/25/09 22:41, Silver wrote:
>>> hi,
>>>
>>>     I wrote a small tcl/tk script to implement a launcher. I want the user can start the multiple edm GUI by clicking the different item. While the problem is the second edm only can be opened after the first one is closed.
>>>     Seems tcl/tk can't support fork/spawn command, how can I do it? thanks a lot in advance
>>>
>>> following is the code:
>>>
>>> #!/usr/bin/wish -f
>>>
>>> package require tile
>>> ttk::setTheme classic
>>> ttk::treeview .tree
>>> pack .tree -expand 1 -fill both
>>>
>>> .tree insert {} end -id entry_ps -text "PowerSupply"
>>> .tree insert {} end -id entry_timing -text "Timing"
>>> .tree insert {} end -id entry_vacuum -text "Vacuum"
>>>
>>> .tree insert entry_ps end -id ps1 -text "powersupply1" -tags "powersupply1"
>>> .tree tag bind powersupply1<1>   powersupply1;
>>> proc powersupply1 {} {
>>>       puts "test1"
>>>       execl "1.sh"
>>> }
>>>
>>> .tree insert entry_ps end -id ps2 -text "powersupply2" -tags "powersupply2"
>>> .tree tag bind powersupply2<1>   powersupply2;
>>> proc powersupply2 {} {
>>>       puts "test2"
>>>       execl "2.sh"
>>> }
>>>
>>> .tree configure -columns "comment"
>>> .tree column comment -width 360 -anchor center
>>> .tree heading comment -text "description"
>>> .tree set ps1 comment "psxxxxx"
>>> .tree set ps2 comment "psyyyyy"
>>>
>>>
>>> Best regards
>>> Geyang  2009-06-26
>>>
>>>
>>
>> -- 
>> Matthieu Bec              Gemini Observatory
>> Tel: +56 51 205785        c/o AURA, Casilla 603
>> Fax: +56 51 205650        La Serena, Chile
> 
> = = = = = = = = = = = = = = = = = = = =
> 			
> 
> Best regards				
> Geyang 2009-06-26
> 
> 
> 


-- 
Matthieu Bec              Gemini Observatory
Tel: +56 51 205785        c/o AURA, Casilla 603
Fax: +56 51 205650        La Serena, Chile

References:
a small tcl/tk script question Silver
Re: a small tcl/tk script question Matthieu Bec
Re: Re: a small tcl/tk script question Silver

Navigate by Date:
Prev: Re: Re: a small tcl/tk script question Silver
Next: Query Kallapur, Krishnamurthy
Index: 1994  1995  1996  1997  1998  1999  2000  2001  2002  2003  2004  2005  2006  2007  2008  <20092010  2011  2012  2013  2014  2015  2016  2017  2018  2019  2020  2021  2022  2023  2024 
Navigate by Thread:
Prev: Re: Re: a small tcl/tk script question Silver
Next: Query Kallapur, Krishnamurthy
Index: 1994  1995  1996  1997  1998  1999  2000  2001  2002  2003  2004  2005  2006  2007  2008  <20092010  2011  2012  2013  2014  2015  2016  2017  2018  2019  2020  2021  2022  2023  2024 
ANJ, 31 Jan 2014 Valid HTML 4.01! · Home · News · About · Base · Modules · Extensions · Distributions · Download ·
· Search · EPICS V4 · IRMIS · Talk · Bugs · Documents · Links · Licensing ·