[Sguil-cvs] sguil/client sguil.tk,1.185,1.186

[Bamm V. <ba...@us...>]

Update of /cvsroot/sguil/sguil/client
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21728

Modified Files:
	sguil.tk 
Log Message:
Update sensor status interval via combobox and NOW button.


Index: sguil.tk
===================================================================
RCS file: /cvsroot/sguil/sguil/client/sguil.tk,v
retrieving revision 1.185
retrieving revision 1.186
diff -C2 -d -r1.185 -r1.186
*** sguil.tk	17 Oct 2005 14:53:59 -0000	1.185
--- sguil.tk	17 Oct 2005 16:34:28 -0000	1.186
***************
*** 2007,2013 ****
  # Sensor Status Tab
  #
  
! set sensorStatusTable [$detailTabs childsite 1].sensorStatusTable
! set sensorStatusScroll [$detailTabs childsite 1].sensorStatusScroll
  
  tablelist::tablelist $sensorStatusTable \
--- 2007,2015 ----
  # Sensor Status Tab
  #
+ set sensorStatusTableFrame [$detailTabs childsite 1].tableFrame
+ frame $sensorStatusTableFrame
  
! set sensorStatusTable $sensorStatusTableFrame.sensorStatusTable
! set sensorStatusScroll $sensorStatusTableFrame.sensorStatusScroll
  
  tablelist::tablelist $sensorStatusTable \
***************
*** 2031,2034 ****
--- 2033,2056 ----
  pack $sensorStatusScroll -side right -fill y
  
+ set sensorStatusUpdateFrame [$detailTabs childsite 1].updateFrame
+ frame $sensorStatusUpdateFrame
+ set sensorStatusUpdateInterval $sensorStatusUpdateFrame.intervalComboBox
+ set sensorStatusUpdateButton $sensorStatusUpdateFrame.updateButton
+ 
+ combobox $sensorStatusUpdateInterval        \
+     -labeltext "Update Interval (secs): "\
+     -textvariable STATUS_UPDATE         \
+     -editable 1 -width 5
+ 
+ $sensorStatusUpdateInterval insert list end 15 30 60 120 300
+ 
+ button $sensorStatusUpdateButton -text NOW -command "SendToSguild SendClientSensorStatusInfo"
+ pack $sensorStatusUpdateInterval $sensorStatusUpdateButton -side left
+ 
+ pack $sensorStatusTableFrame -side top -fill both -expand true
+ pack $sensorStatusUpdateFrame -side bottom -anchor e
+ 
+ if { ![info exists STATUS_UPDATE] || $STATUS_UPDATE == "" } { set STATUS_UPDATE 15 } 
+ 
  set systemInfoFrame [frame [$detailTabs childsite 2].systemInfoFrame]
  set systemInfoText [scrolledtext $systemInfoFrame.systemInfoText -vscrollmode static -hscrollmode dynamic\