[Sguil-cvs] sguil/client/lib qrybuild.tcl,1.36,1.37

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

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

Modified Files:
	qrybuild.tcl 
Log Message:
Radio buttons for event|sancp|session work again.


Index: qrybuild.tcl
===================================================================
RCS file: /cvsroot/sguil/sguil/client/lib/qrybuild.tcl,v
retrieving revision 1.36
retrieving revision 1.37
diff -C2 -d -r1.36 -r1.37
*** qrybuild.tcl	12 Jan 2006 18:14:22 -0000	1.36
--- qrybuild.tcl	20 Jan 2006 22:54:55 -0000	1.37
***************
*** 398,419 ****
  
  proc typeChange {} {
!     global SELECTEDTABLE
      set mainFrame .qryBldWin.mFrame
!     $mainFrame.eFrame.eBox delete 0.0 end
!     $mainFrame.sFrame.iList delete 0 end
!     $mainFrame.sFrame.cList delete 0 end
      
      if {[$mainFrame.qFrame.qTypeBox get] == "event" } {
- 	$mainFrame.eFrame.eBox insert end "WHERE  LIMIT 500"
  	set SELECTEDTABLE "event"
- 	$mainFrame.eFrame.eBox mark set insert "end -11 c"
      } elseif {[$mainFrame.qFrame.qTypeBox get] == "sessions" } {
  	set SELECTEDTABLE "sessions"
- 	$mainFrame.eFrame.eBox insert end "WHERE  LIMIT 500"
- 	$mainFrame.eFrame.eBox mark set insert "end -11 c"
      } else {
  	set SELECTEDTABLE "sancp"
- 	$mainFrame.eFrame.eBox insert end "WHERE  ORDER BY sancp.start_time LIMIT 500"
- 	$mainFrame.eFrame.eBox mark set insert "end -36 c"
      }
      
--- 398,414 ----
  
  proc typeChange {} {
!     global SELECTEDTABLE whereBoxList
! 
      set mainFrame .qryBldWin.mFrame
!     foreach box $whereBoxList {
!         $box delete 0.0 end
!     }
      
      if {[$mainFrame.qFrame.qTypeBox get] == "event" } {
  	set SELECTEDTABLE "event"
      } elseif {[$mainFrame.qFrame.qTypeBox get] == "sessions" } {
  	set SELECTEDTABLE "sessions"
      } else {
  	set SELECTEDTABLE "sancp"
      }