From 09c1fc390ba64b9a097f4e7ae93c88d54e45d4a5 Mon Sep 17 00:00:00 2001
From: William Schlieper <schlieper@unc.edu>
Date: Sun, 27 Jul 2008 20:15:38 -0400
Subject: [PATCH] Added server listener

---
 extra/irc/ui/ui.factor | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/extra/irc/ui/ui.factor b/extra/irc/ui/ui.factor
index 9b8d1a4d11..1520970f46 100755
--- a/extra/irc/ui/ui.factor
+++ b/extra/irc/ui/ui.factor
@@ -187,8 +187,9 @@ M: irc-tab ungraft*
 : ui-connect ( profile -- ui-window )
     <irc-client> ui-window new over >>client swap
     [ connect-irc ]
+    [ [ <irc-server-listener> ] dip add-listener ]
     [ listeners>> +server-listener+ swap at over <irc-tab>
-      "Server" associate <tabbed> >>tabs ] bi ;
+      "Server" associate <tabbed> >>tabs ] tri ;
 
 : server-open ( server port nick password channels -- )
     [ <irc-profile> ui-connect [ irc-window ] keep ] dip