[Nscldaq-cvscommits] clients/Stager ReadoutShell.tcl,8.8,8.9

[Ron F. <ro...@us...>]

Update of /cvsroot/nscldaq/clients/Stager
In directory sc8-pr-cvs7.sourceforge.net:/tmp/cvs-serv10219/Stager

Modified Files:
	ReadoutShell.tcl 
Log Message:
- misc fixes/improvements to tcl widgets.
- Fix gcc/g++3.x compillation of epics command.



Index: ReadoutShell.tcl
===================================================================
RCS file: /cvsroot/nscldaq/clients/Stager/ReadoutShell.tcl,v
retrieving revision 8.8
retrieving revision 8.9
diff -C2 -d -r8.8 -r8.9
*** ReadoutShell.tcl	17 Oct 2006 14:56:10 -0000	8.8
--- ReadoutShell.tcl	31 Oct 2006 18:41:16 -0000	8.9
***************
*** 254,258 ****
  	if {$file != ""} {
  	    lappend directories [ExactPath $dir]
! 	    source $file
  	}
      }
--- 254,258 ----
  	if {$file != ""} {
  	    lappend directories [ExactPath $dir]
! 	    uplevel #0 source $file
  	}
      }
***************
*** 262,266 ****
      if {[lsearch -exact $directories $curdir] == -1} {
  	if {$file != ""} {
! 	    source $file
  	}
      }
--- 262,267 ----
      if {[lsearch -exact $directories $curdir] == -1} {
  	if {$file != ""} {
! 	    
! 	    uplevel #0 source $file
  	}
      }