[Sguil-cvs] sguil/client/lib report.tcl,1.24,1.25
Status: Beta
Brought to you by:
bamm
From: Steve H. <sha...@us...> - 2004-10-21 14:29:33
|
Update of /cvsroot/sguil/sguil/client/lib In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14048/lib Modified Files: report.tcl Log Message: Line up sensor checkboxes in sensor report--take 3 -srh Index: report.tcl =================================================================== RCS file: /cvsroot/sguil/sguil/client/lib/report.tcl,v retrieving revision 1.24 retrieving revision 1.25 diff -C2 -d -r1.24 -r1.25 *** report.tcl 21 Oct 2004 14:21:09 -0000 1.24 --- report.tcl 21 Oct 2004 14:29:23 -0000 1.25 *************** *** 267,271 **** wm geometry $phbReport +300+300 wm title $phbReport "Sensor Summary Report" ! set sensorFrame [frame $phbReport.sensorFrame -borderwidth 2 -background black -relief raised] set winLabel [label $sensorFrame.label -text "Select Sensor(s) to Report" -background lightblue] pack $winLabel -side top -fill both -expand true --- 267,271 ---- wm geometry $phbReport +300+300 wm title $phbReport "Sensor Summary Report" ! set sensorFrame [frame $phbReport.sensorFrame -borderwidth 2 -background lightblue -relief raised] set winLabel [label $sensorFrame.label -text "Select Sensor(s) to Report" -background lightblue] pack $winLabel -side top -fill both -expand true *************** *** 281,285 **** incr i } else { ! pack $currentBox -side top -fill x -pady 0 incr boxNumber set currentBox [checkbox $sensorFrame.subBox$boxNumber -orient horizontal -borderwidth 0 -background lightblue] --- 281,285 ---- incr i } else { ! pack $currentBox -side top -anchor w -pady 0 incr boxNumber set currentBox [checkbox $sensorFrame.subBox$boxNumber -orient horizontal -borderwidth 0 -background lightblue] *************** *** 290,294 **** } ! pack $currentBox -side top -fill x -pady 0 set selectAll [button $sensorFrame.selectAll -text "Select All" -command "ReportSelectAll"] pack $selectAll -side top -fill x -pady 0 --- 290,294 ---- } ! pack $currentBox -side top -anchor w -pady 0 set selectAll [button $sensorFrame.selectAll -text "Select All" -command "ReportSelectAll"] pack $selectAll -side top -fill x -pady 0 |