[Sguil-cvs] sguil/client/lib qrybuild.tcl,1.24,1.25

[Steve H. <sha...@us...>]

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

Modified Files:
	qrybuild.tcl 
Log Message:
Switched the Submit/Cancel buttons in the Query Builder to use a frame a native tk buttons instead of a IWidgets buttonbox. -srh


Index: qrybuild.tcl
===================================================================
RCS file: /cvsroot/sguil/sguil/client/lib/qrybuild.tcl,v
retrieving revision 1.24
retrieving revision 1.25
diff -C2 -d -r1.24 -r1.25
*** qrybuild.tcl	9 Nov 2004 20:26:45 -0000	1.24
--- qrybuild.tcl	16 Nov 2004 18:31:59 -0000	1.25
***************
*** 139,146 ****
      
      # Button box for Submit/Cancel
!     set bb [buttonbox $mainFrame.bb]
!       $bb add Submit -text "Submit" -command "set RETURN_FLAG 1"
!       $bb add Cancel -text "Cancel" -command "set RETURN_FLAG 0"
! 
      # pack the qryType box to the top no fill no expand	
      pack $qryTypeBox -side top -fill none -expand false
--- 139,146 ----
      
      # Button box for Submit/Cancel
!     set buttonFrame [frame $mainFrame.bFrame]
!       set submitButton [button $buttonFrame.submitButton -text "Submit" -command "set RETURN_FLAG 1"]
!       set cancelButton [button $buttonFrame.cancelButton -text "Cancel" -command "set RETURN_FLAG 0"]
!       pack $submitButton $cancelButton -side left -expand true 
      # pack the qryType box to the top no fill no expand	
      pack $qryTypeBox -side top -fill none -expand false
***************
*** 150,154 ****
  
      # pack the select frame and submit/cancel box to the top fill and expand
!     pack  $selectFrame $bb -side top -fill both -expand true -pady 1
      eval $metaList insert 0 $mlst
  
--- 150,154 ----
  
      # pack the select frame and submit/cancel box to the top fill and expand
!     pack  $selectFrame $buttonFrame -side top -fill both -expand true -pady 1
      eval $metaList insert 0 $mlst
  
***************
*** 157,161 ****
  update
  
- 
      tkwait variable RETURN_FLAG
      set returnWhere [list cancel cancel]
--- 157,160 ----