From b8dda57c7dbcd5942d43523e7e1dbb3755348649 Mon Sep 17 00:00:00 2001
From: H.G. Muller <h.g.muller@hccnet.nl>
Date: Sun, 15 Apr 2012 22:53:24 +0200
Subject: [PATCH] Port chat boxes to XBoard

A new menu item Open Chat Window is added to the View menu. It opens a
window that can handle 5 chats. A row of buttons on top selects which is
the foreground chat partner, to which we type, and whose incoming messages
will be displayed in the memo. The leftmost 'button' is not really a button,
but a text edit, and the active partner is displayed there (so it can be
altered). Selecting another chat partner through a button, moves that partner
to the text-edit, and reshuffles the buttons. Incoming messages in a chat
that is not foreground make the corresponding button color orange.
---
 dialogs.c  |   93 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++-
 dialogs.h  |    2 +-
 menus.c    |    3 ++
 menus.h    |    1 +
 xoptions.c |    2 +-
 5 files changed, 98 insertions(+), 3 deletions(-)

diff --git a/dialogs.c b/dialogs.c
index 89cd822..fa55008 100644
--- a/dialogs.c
+++ b/dialogs.c
@@ -1113,6 +1113,7 @@ PutText (char *text, int pos)
     }
     SetWidgetText(&boxOptions[0], text, TextMenuDlg);
     SetInsertPos(&boxOptions[0], pos);
+    HardSetFocus(&boxOptions[0]);
 }
 
 void
@@ -1529,10 +1530,100 @@ PromotionPopUp ()
 
 //---------------------------- Chat Windows ----------------------------------------------
 
+static char *line, *memo, *partner, *texts[MAX_CHAT], dirty[MAX_CHAT];
+static int activePartner;
+
+void ChatSwitch P((int n));
+int  ChatOK P((int n));
+
+Option chatOptions[] = {
+{ 0,   T_TOP,    100, NULL, (void*) &partner, NULL, NULL, TextBox, N_("Chat partner:") },
+{ 1, SAME_ROW|TT, 75, NULL, (void*) &ChatSwitch, NULL, NULL, Button, "" },
+{ 2, SAME_ROW|TT, 75, NULL, (void*) &ChatSwitch, NULL, NULL, Button, "" },
+{ 3, SAME_ROW|TT, 75, NULL, (void*) &ChatSwitch, NULL, NULL, Button, "" },
+{ 4, SAME_ROW|TT, 75, NULL, (void*) &ChatSwitch, NULL, NULL, Button, "" },
+{ 100, T_VSCRL | T_FILL | T_WRAP | T_TOP,    510, NULL, (void*) &memo, NULL, NULL, TextBox, "" },
+{  0,    0,  510, NULL, (void*) &line, NULL, NULL, TextBox, "" },
+{ 0, NO_OK|SAME_ROW, 0, NULL, (void*) &ChatOK, NULL, NULL, EndMark , "" }
+};
+
 void
 OutputChatMessage (int partner, char *mess)
 {
-    return; // dummy
+    char *p = texts[partner];
+    int len = strlen(mess) + 1;
+
+    if(p) len += strlen(p);
+    texts[partner] = (char*) malloc(len);
+    snprintf(texts[partner], len, "%s%s", p ? p : "", mess);
+    FREE(p);
+    if(partner == activePartner) {
+	AppendText(&chatOptions[5], mess);
+	SetInsertPos(&chatOptions[5], len-2);
+    } else {
+	SetColor("#FFC000", &chatOptions[partner + (partner < activePartner)]);
+	dirty[partner] = 1;
+    }
+}
+
+int
+ChatOK (int n)
+{   // can only be called through <Enter> in chat-partner text-edit, as there is no OK button
+    char buf[MSG_SIZ];
+    if(!partner || strcmp(partner, chatPartner[activePartner])) {
+	safeStrCpy(chatPartner[activePartner], partner, MSG_SIZ);
+	SetWidgetText(&chatOptions[5], "", -1); // clear text if we alter partner
+	SetWidgetText(&chatOptions[6], "", ChatDlg); // clear text if we alter partner
+	HardSetFocus(&chatOptions[6]);
+    }
+    if(line[0]) { // something was typed
+	SetWidgetText(&chatOptions[6], "", ChatDlg);
+	// from here on it could be back-end
+	if(line[strlen(line)-1] == '\n') line[strlen(line)-1] = NULLCHAR;
+	SaveInHistory(line);
+	if(!strcmp("whispers", chatPartner[activePartner]))
+	      snprintf(buf, MSG_SIZ, "whisper %s\n", line); // WHISPER box uses "whisper" to send
+	else if(!strcmp("shouts", chatPartner[activePartner]))
+	      snprintf(buf, MSG_SIZ, "shout %s\n", line); // SHOUT box uses "shout" to send
+	else {
+	    if(!atoi(chatPartner[activePartner])) {
+		snprintf(buf, MSG_SIZ, "> %s\n", line); // echo only tells to handle, not channel
+		OutputChatMessage(activePartner, buf);
+		snprintf(buf, MSG_SIZ, "xtell %s %s\n", chatPartner[activePartner], line);
+	    } else
+		snprintf(buf, MSG_SIZ, "tell %s %s\n", chatPartner[activePartner], line);
+	}
+	SendToICS(buf);
+    }
+    return FALSE; // never pop down
+}
+
+void
+ChatSwitch (int n)
+{
+    int i, j;
+    if(n <= activePartner) n--;
+    activePartner = n;
+    if(!texts[n]) texts[n] = strdup("");
+    dirty[n] = 0;
+    SetWidgetText(&chatOptions[5], texts[n], ChatDlg);
+    SetInsertPos(&chatOptions[5], strlen(texts[n]));
+    SetWidgetText(&chatOptions[0], chatPartner[n], ChatDlg);
+    for(i=j=0; i<MAX_CHAT; i++) {
+	if(i == activePartner) continue;
+	SetWidgetLabel(&chatOptions[++j], chatPartner[i]);
+	SetColor(dirty[i] ? "#FFC000" : "#FFFFFF", &chatOptions[j]);
+    }
+    SetWidgetText(&chatOptions[6], "", ChatDlg);
+    HardSetFocus(&chatOptions[6]);
+}
+
+void
+ChatProc ()
+{
+    if(GenericPopUp(chatOptions, _("Chat box"), ChatDlg, BoardWindow, NONMODAL, 0))
+	AddHandler(&chatOptions[0], 2), AddHandler(&chatOptions[6], 2); // treats return as OK
+    MarkMenu("View.OpenChatWindow", ChatDlg);
 }
 
 //--------------------------------- Game-List options dialog ------------------------------------------
diff --git a/dialogs.h b/dialogs.h
index aeed4a0..95dd442 100644
--- a/dialogs.h
+++ b/dialogs.h
@@ -99,7 +99,7 @@
 
 typedef enum {  // identifier of dialogs done by GenericPopup
 TransientDlg=0, // transient: grabs mouse events and is destroyed at pop-down (so other dialog can use this ID next time)
-CommentDlg, TagsDlg, TextMenuDlg, InputBoxDlg, NoDlg, DummyDlg, HistoryDlg, // persistent: no grab and reused
+CommentDlg, TagsDlg, TextMenuDlg, InputBoxDlg, ChatDlg, DummyDlg, HistoryDlg, // persistent: no grab and reused
 GameListDlg,
 EngOutDlg,
 EvalGraphDlg,
diff --git a/menus.c b/menus.c
index 5d8d65e..e2bf563 100644
--- a/menus.c
+++ b/menus.c
@@ -697,6 +697,7 @@ MenuItem viewMenu[] = {
     {N_("Tags"),             "Tags", EditTagsProc},
     {N_("Comments"),         "Comments", EditCommentProc},
     {N_("ICS Input Box"),    "ICSInputBox", IcsInputBoxProc},
+    {N_("Open Chat Window"), "OpenChatWindow", ChatProc},
     {"----", NULL, NothingProc},
     {N_("Board..."),          "Board", BoardOptionsProc},
     {N_("Game List Tags..."), "GameListTags", GameListOptionsProc},
@@ -938,6 +939,7 @@ Enables ncpEnables[] = {
     { "Mode.ICSClient", False },
     { "View.ICStextmenu", False },
     { "View.ICSInputBox", False },
+    { "View.OpenChatWindow", False },
     { "Action.", False },
     { "Edit.Revert", False },
     { "Edit.Annotate", False },
@@ -964,6 +966,7 @@ Enables gnuEnables[] = {
     { "Mode.ICSClient", False },
     { "View.ICStextmenu", False },
     { "View.ICSInputBox", False },
+    { "View.OpenChatWindow", False },
     { "Action.Accept", False },
     { "Action.Decline", False },
     { "Action.Rematch", False },
diff --git a/menus.h b/menus.h
index 5ab748a..f0b7319 100644
--- a/menus.h
+++ b/menus.h
@@ -99,6 +99,7 @@ void MatchProc P((void));
 void MatchOptionsProc P((void));
 void EditCommentProc P((void));
 void IcsInputBoxProc P((void));
+void ChatProc P((void));
 void AdjuWhiteProc P((void));
 void AdjuBlackProc P((void));
 void AdjuDrawProc P((void));
diff --git a/xoptions.c b/xoptions.c
index dc525dc..b95cb22 100644
--- a/xoptions.c
+++ b/xoptions.c
@@ -1153,7 +1153,7 @@ SetInsertPos (Option *opt, int pos)
     XtSetArg(args[0], XtNinsertPosition, pos);
     XtSetValues(opt->handle, args, 1);
 //    SetFocus(opt->handle, shells[InputBoxDlg], NULL, False); // No idea why this does not work, and the following is needed:
-    XSetInputFocus(xDisplay, XtWindow(opt->handle), RevertToPointerRoot, CurrentTime);
+//    XSetInputFocus(xDisplay, XtWindow(opt->handle), RevertToPointerRoot, CurrentTime);
 }
 
 void
-- 
1.7.0.4