[Sguil-cvs] sguil/client sguil.tk,1.213,1.214

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

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

Modified Files:
	sguil.tk 
Log Message:
Added adjustable slider (panedwindow)  between rule info and packet data.


Index: sguil.tk
===================================================================
RCS file: /cvsroot/sguil/sguil/client/sguil.tk,v
retrieving revision 1.213
retrieving revision 1.214
diff -C2 -d -r1.213 -r1.214
*** sguil.tk	9 Feb 2006 22:15:48 -0000	1.213
--- sguil.tk	10 Feb 2006 18:28:34 -0000	1.214
***************
*** 2244,2251 ****
      # Event/Packet Detail
      #
!     set packetDataFrame [frame $detailDataFrame.packetDataFrame]
  
      # Rule Info
!     set ruleButtonFrame [frame $packetDataFrame.ruleButtonFrame]
        set displayPacketButton [checkbutton $ruleButtonFrame.displayPacketButton\
         -text "Show Packet Data" -variable PACKETINFO -command GetPacketInfo]
--- 2244,2254 ----
      # Event/Packet Detail
      #
!     set packetDataFrame [panedwindow $detailDataFrame.packetDataFrame]
!     $packetDataFrame add ruleinfo -margin 0
!     $packetDataFrame add packetinfo -margin 0
  
      # Rule Info
!     set ruleFrame [frame [$packetDataFrame childsite 0].ruleFrame]
!     set ruleButtonFrame [frame $ruleFrame.ruleButtonFrame]
        set displayPacketButton [checkbutton $ruleButtonFrame.displayPacketButton\
         -text "Show Packet Data" -variable PACKETINFO -command GetPacketInfo]
***************
*** 2257,2267 ****
           -text "nvd.nist.gov" -command "GetIcat" -state disabled]
        pack $displayPacketButton $displayRuleButton $referenceButton $icatButton -side left
!     set ruleText [scrolledtext $packetDataFrame.ruleText -hscrollmode none -visibleitems 10x2\
       -sbwidth 10 -vscrollmode dynamic -wrap word]
      $ruleText component text configure -state disabled
      pack $ruleButtonFrame -side top -fill x
      pack $ruleText -side top -fill both -expand true
      
!     set packetFrame [frame $packetDataFrame.packetFrame -background black -borderwidth 1]
      ################ IP HEADER #############################
      set ipHdrFrame [frame $packetFrame.ipHdrFrame -background black -borderwidth 1]
--- 2260,2271 ----
           -text "nvd.nist.gov" -command "GetIcat" -state disabled]
        pack $displayPacketButton $displayRuleButton $referenceButton $icatButton -side left
!     set ruleText [scrolledtext $ruleFrame.ruleText -hscrollmode none -visibleitems 10x2\
       -sbwidth 10 -vscrollmode dynamic -wrap word]
      $ruleText component text configure -state disabled
      pack $ruleButtonFrame -side top -fill x
      pack $ruleText -side top -fill both -expand true
+     pack $ruleFrame -side top -fill both -expand true
      
!     set packetFrame [frame [$packetDataFrame childsite 1].packetFrame -background black -borderwidth 1]
      ################ IP HEADER #############################
      set ipHdrFrame [frame $packetFrame.ipHdrFrame -background black -borderwidth 1]
***************
*** 2468,2471 ****
--- 2472,2476 ----
  $eventPane fraction 55 45
  $detailPane fraction 40 60
+ $packetDataFrame fraction 20 80
  
  # Xscript Menu