Experimental Physics and
Industrial Control System

"Silver" <[email protected]> · Fri, 26 Jun 2009 10:41:51 +0800

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

Experimental Physics and Industrial Control System

Experimental Physics and
Industrial Control System