From: Ron F. <ro...@us...> - 2006-03-14 15:42:09
|
Update of /cvsroot/nscldaq/clients/ScalerDisplay In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24441/ScalerDisplay Modified Files: ScalerDisplay.tcl Log Message: Port in ScalerDisplay/sclclient race condition fix from 8.0 Thanks Kevin Carnes for running into this. Index: ScalerDisplay.tcl =================================================================== RCS file: /cvsroot/nscldaq/clients/ScalerDisplay/ScalerDisplay.tcl,v retrieving revision 8.3 retrieving revision 8.4 diff -C2 -d -r8.3 -r8.4 *** ScalerDisplay.tcl 23 Feb 2006 21:33:06 -0000 8.3 --- ScalerDisplay.tcl 14 Mar 2006 15:42:03 -0000 8.4 *************** *** 76,83 **** # and set things up so that we will kill it on our exit: # ! ! puts "exec $bindir/sclclient -p $TclServerPort -s $spdaqurl " ! ! set clientpid [exec $bindir/sclclient -p $TclServerPort -s $spdaqurl & ] proc Cleanup {widget pid} { --- 76,80 ---- # and set things up so that we will kill it on our exit: # ! set clientpid 0 proc Cleanup {widget pid} { *************** *** 86,90 **** } ! bind . <Destroy> "Cleanup %W $clientpid" --- 83,96 ---- } ! proc StartClient {} { ! global bindir ! global TclServerPort ! global clientpid ! global spdaqurl ! set clientpid [exec $bindir/sclclient -p $TclServerPort -s $spdaqurl & ] ! bind . <Destroy> "Cleanup %W $clientpid" ! ! } ! after 2000 StartClient |