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 22:43:51 -0400
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

Replies:
Re: Re: a small tcl/tk script question Silver
References:
a small tcl/tk script question Silver

Navigate by Date:
Prev: a small tcl/tk script question Silver
Next: Re: Re: a small tcl/tk script question Silver
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: a small tcl/tk script question Silver
Next: Re: Re: a small tcl/tk script question Silver
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 ·