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

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

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

Modified Files:
	sguil.tk 
Log Message:
Replaced correct index w/none when comment from history is blank.


Index: sguil.tk
===================================================================
RCS file: /cvsroot/sguil/sguil/client/sguil.tk,v
retrieving revision 1.214
retrieving revision 1.215
diff -C2 -d -r1.214 -r1.215
*** sguil.tk	10 Feb 2006 18:28:34 -0000	1.214
--- sguil.tk	15 Feb 2006 20:35:03 -0000	1.215
***************
*** 1572,1575 ****
--- 1572,1576 ----
  
      set tmpWin [CreateHistoryWin $historyWinName]
+     $tmpWin configure -cursor watch
      SendToSguild "EventHistoryRequest $tmpWin $sid $cid"
  
***************
*** 1624,1633 ****
  proc InsertHistoryResults { winName results } {
  
!     if { $results == "done" } { return }
      if { ![winfo exists $winName] } { CreateHistoryWin $winName }
  
      set tmpList [lreplace $results 0 1 "[lindex $results 0].[lindex $results 1]"]
      set comment [lindex $results 6]
!     if { $comment == ""} { set tmpList [lreplace $tmpList 6 6 "None."] }
  
      $winName insert end $tmpList
--- 1625,1634 ----
  proc InsertHistoryResults { winName results } {
  
!     if { $results == "done" } { $winName configure -cursor left_ptr; return }
      if { ![winfo exists $winName] } { CreateHistoryWin $winName }
  
      set tmpList [lreplace $results 0 1 "[lindex $results 0].[lindex $results 1]"]
      set comment [lindex $results 6]
!     if { $comment == ""} { set tmpList [lreplace $tmpList 5 5 "None."] }
  
      $winName insert end $tmpList