[Nsclspectcl-cvscommits] SpecTcl/contrib/treeparam TopGui.tcl,1.3,1.4

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

Update of /cvsroot/nsclspectcl/SpecTcl/contrib/treeparam
In directory sc8-pr-cvs1:/tmp/cvs-serv2077

Modified Files:
	TopGui.tcl 
Log Message:
Stop relying on HOST environment variable for socket connect.  Use 
the return value of [exec hostname] instead... some users don't have this env
variable defined.




Index: TopGui.tcl
===================================================================
RCS file: /cvsroot/nsclspectcl/SpecTcl/contrib/treeparam/TopGui.tcl,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** TopGui.tcl	17 Dec 2002 16:06:06 -0000	1.3
--- TopGui.tcl	30 May 2003 13:34:09 -0000	1.4
***************
*** 4,7 ****
--- 4,12 ----
  # Date: Aug 2001 - Sept 2002
  
+ wm title . "Top Gui $SpecTclHome"
+ 
+ 
+ 
+ 
  proc ServerRead {} {
  	global server serverWait serverResponse
***************
*** 83,104 ****
  
  
! set server [socket $env(HOST) $serverport]
  fconfigure $server -buffering line -blocking 0 -buffersize 65536
  fileevent $server readable ServerRead
  
  source $SpecTclHome/contrib/treeparam/mclistbox.tcl
  source $SpecTclHome/contrib/treeparam/notebook.tcl
  source $SpecTclHome/contrib/treeparam/tabnbook.tcl
  
  source $SpecTclHome/contrib/treeparam/TreeParameter.tcl
  source $SpecTclHome/contrib/treeparam/SpectrumGenerator.tcl
  source $SpecTclHome/contrib/treeparam/ParameterGenerator.tcl
  source $SpecTclHome/contrib/treeparam/TreeVariable.tcl
  source $SpecTclHome/contrib/treeparam/VariableManipulator.tcl
  source $SpecTclHome/contrib/treeparam/GateGenerator.tcl
  #source $SpecTclHome/contrib/treeparam/Interface.tcl
  
  CheckVersion
  CheckFiles
  wm title . "SpecTcl Graphical User Interface"
  tabnotebook_create .main
--- 88,121 ----
  
  
! 
! set server [socket [exec hostname] $serverport]
  fconfigure $server -buffering line -blocking 0 -buffersize 65536
  fileevent $server readable ServerRead
  
+ 
  source $SpecTclHome/contrib/treeparam/mclistbox.tcl
  source $SpecTclHome/contrib/treeparam/notebook.tcl
  source $SpecTclHome/contrib/treeparam/tabnbook.tcl
  
+ 
  source $SpecTclHome/contrib/treeparam/TreeParameter.tcl
+ 
  source $SpecTclHome/contrib/treeparam/SpectrumGenerator.tcl
+ 
  source $SpecTclHome/contrib/treeparam/ParameterGenerator.tcl
+ 
  source $SpecTclHome/contrib/treeparam/TreeVariable.tcl
+ 
  source $SpecTclHome/contrib/treeparam/VariableManipulator.tcl
+ 
  source $SpecTclHome/contrib/treeparam/GateGenerator.tcl
+ 
  #source $SpecTclHome/contrib/treeparam/Interface.tcl
  
+ 
  CheckVersion
+ 
  CheckFiles
+ 
  wm title . "SpecTcl Graphical User Interface"
  tabnotebook_create .main
***************
*** 114,115 ****
--- 131,134 ----
  tabnotebook_display .main Parameters
  tabnotebook_display .main Spectra
+ 
+