X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?a=blobdiff_plain;f=ypp-chatlog-alerter;fp=ypp-chatlog-alerter;h=2f6d86ef2fa934cd7659f472065445a8f15c51d6;hb=3a1a8810c86564e4831d4d5bf468c00af2278b87;hp=fb6bba79d8aae695356c5b96c9303ad0d8d6c086;hpb=8c922073541253600527d52e13a50ecc7b32df65;p=ypp-sc-tools.db-test.git

diff --git a/ypp-chatlog-alerter b/ypp-chatlog-alerter
index fb6bba7..2f6d86e 100755
--- a/ypp-chatlog-alerter
+++ b/ypp-chatlog-alerter
@@ -270,7 +270,7 @@ puts "MESSAGE $l"
 }
 
 proc message {pirate msg} {
-    global times pirates messages
+    global times pirates messages height
     global lw_ls lw_ws
     
     set ix [lsearch -exact $pirates $pirate]
@@ -285,6 +285,13 @@ proc message {pirate msg} {
 	    }
 	    incr cix
 	}
+	for_lw {
+	    set $l [lreplace [set $l] $ix $ix]
+	    lappend $l {}
+	    $w delete $ix
+	    $w insert end {}
+	}
+	set ix [expr {$height-1}]
     }
     for_lw new [list $now $pirate $msg] {
 	set $l [lreplace [set $l] $ix $ix $new]