Added server listener

diff --git a/extra/irc/ui/ui.factor b/extra/irc/ui/ui.factor
index 9b8d1a4d11cb7c7d0a42dfc0209933ed0ce5e055..1520970f46329f7dc730fb210f228d0f9af45313 100755 (executable)
--- 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 )\r
     <irc-client> ui-window new over >>client swap\r
     [ connect-irc ]\r
+    [ [ <irc-server-listener> ] dip add-listener ]\r
     [ listeners>> +server-listener+ swap at over <irc-tab>\r
-      "Server" associate <tabbed> >>tabs ] bi ;\r
+      "Server" associate <tabbed> >>tabs ] tri ;\r
 \r
 : server-open ( server port nick password channels -- )\r
     [ <irc-profile> ui-connect [ irc-window ] keep ] dip\r