winboard/wchat.c

   1 /*\r
   2  * Chat window (PV)\r
   3  *\r
   4  * Author: H.G.Muller (August 2009)\r
   5  *\r
   6  * Copyright 2009, 2010 Free Software Foundation, Inc.\r
   7  *\r
   8  * ------------------------------------------------------------------------\r
   9  *\r
  10  * GNU XBoard is free software: you can redistribute it and/or modify\r
  11  * it under the terms of the GNU General Public License as published by\r
  12  * the Free Software Foundation, either version 3 of the License, or (at\r
  13  * your option) any later version.\r
  14  *\r
  15  * GNU XBoard is distributed in the hope that it will be useful, but\r
  16  * WITHOUT ANY WARRANTY; without even the implied warranty of\r
  17  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU\r
  18  * General Public License for more details.\r
  19  *\r
  20  * You should have received a copy of the GNU General Public License\r
  21  * along with this program. If not, see http://www.gnu.org/licenses/.  *\r
  22  *\r
  23  *------------------------------------------------------------------------\r
  24  ** See the file ChangeLog for a revision history.  */\r
  25 \r
  26 #include "config.h"\r
  27 \r
  28 #include <windows.h> /* required for all Windows applications */\r
  29 #include <richedit.h>\r
  30 #include <stdio.h>\r
  31 #include <stdlib.h>\r
  32 #include <malloc.h>\r
  33 #include <commdlg.h>\r
  34 #include <dlgs.h>\r
  35 #include <Windowsx.h>\r
  36 \r
  37 #include "common.h"\r
  38 #include "frontend.h"\r
  39 #include "winboard.h"\r
  40 #include "backend.h"\r
  41 \r
  42 #include "wsnap.h"\r
  43 \r
  44 int chatCount;\r
  45 static int onTop;\r
  46 extern char chatPartner[MAX_CHAT][MSG_SIZ];\r
  47 HANDLE chatHandle[MAX_CHAT];\r
  48 static WNDPROC chatInputWindowProc;\r
  49 \r
  50 void SendToICS P((char *s));\r
  51 void ChatPopUp P((char *s));\r
  52 void ChatPopDown();\r
  53 \r
  54 /* Imports from backend.c */\r
  55 extern int opponentKibitzes;\r
  56 \r
  57 /* Imports from winboard.c */\r
  58 VOID SaveInHistory(char *cmd);\r
  59 char *PrevInHistory(char *cmd);\r
  60 char *NextInHistory();\r
  61 extern HWND ChatDialog;\r
  62 \r
  63 extern HINSTANCE hInst;\r
  64 extern HWND hwndConsole;\r
  65 \r
  66 extern WindowPlacement wpChat[MAX_CHAT];\r
  67 extern WindowPlacement wpConsole;\r
  68 \r
  69 extern BoardSize boardSize;\r
  70 \r
  71 /* Module variables */\r
  72 #define H_MARGIN            5\r
  73 #define V_MARGIN            5\r
  74 \r
  75 // front end, although we might make GetWindowRect front end instead\r
  76 static int GetControlWidth( HWND hDlg, int id )\r
  77 {\r
  78     RECT rc;\r
  79 \r
  80     GetWindowRect( GetDlgItem( hDlg, id ), &rc );\r
  81 \r
  82     return rc.right - rc.left;\r
  83 }\r
  84 \r
  85 // front end?\r
  86 static int GetControlHeight( HWND hDlg, int id )\r
  87 {\r
  88     RECT rc;\r
  89 \r
  90     GetWindowRect( GetDlgItem( hDlg, id ), &rc );\r
  91 \r
  92     return rc.bottom - rc.top;\r
  93 }\r
  94 \r
  95 static void SetControlPos( HWND hDlg, int id, int x, int y, int width, int height )\r
  96 {\r
  97     HWND hControl = GetDlgItem( hDlg, id );\r
  98 \r
  99     SetWindowPos( hControl, HWND_TOP, x, y, width, height, SWP_NOZORDER );\r
 100 }\r
 101 \r
 102 // Also here some of the size calculations should go to the back end, and their actual application to a front-end routine\r
 103 static void ResizeWindowControls( HWND hDlg )\r
 104 {\r
 105     RECT rc;\r
 106     int clientWidth;\r
 107     int clientHeight;\r
 108     int maxControlWidth;\r
 109     int buttonWidth, buttonHeight;\r
 110 \r
 111     /* Initialize variables */\r
 112     GetClientRect( hDlg, &rc );\r
 113 \r
 114     clientWidth = rc.right - rc.left;\r
 115     clientHeight = rc.bottom - rc.top;\r
 116 \r
 117     maxControlWidth = clientWidth - 2*H_MARGIN;\r
 118     buttonWidth  = GetControlWidth(hDlg, IDC_Send);\r
 119     buttonHeight = GetControlHeight(hDlg, IDC_Send);\r
 120 \r
 121     /* Resize controls */\r
 122     SetControlPos( hDlg, IDC_Clear, maxControlWidth+H_MARGIN-2*buttonWidth-5, V_MARGIN, buttonWidth, buttonHeight );\r
 123     SetControlPos( hDlg, IDC_Send, maxControlWidth+H_MARGIN-buttonWidth, V_MARGIN, buttonWidth, buttonHeight );\r
 124     SetControlPos( hDlg, IDC_ChatMemo, H_MARGIN, 2*V_MARGIN+buttonHeight, maxControlWidth, clientHeight-3*V_MARGIN-2*buttonHeight );\r
 125     SetControlPos( hDlg, OPT_ChatInput, H_MARGIN, clientHeight-V_MARGIN-buttonHeight, maxControlWidth, buttonHeight );\r
 126 \r
 127 //    InvalidateRect( GetDlgItem(hDlg,IDC_EngineMemo1), NULL, FALSE );\r
 128 //    InvalidateRect( GetDlgItem(hDlg,IDC_EngineMemo2), NULL, FALSE );\r
 129 }\r
 130 \r
 131 // front end. Actual printing of PV lines into the output field\r
 132 static void InsertIntoMemo( HANDLE hDlg, char * text )\r
 133 {\r
 134     HANDLE hMemo = GetDlgItem(hDlg, IDC_ChatMemo);\r
 135 \r
 136     SendMessage( hMemo, EM_SETSEL, 1000000, 1000000 );\r
 137 \r
 138     SendMessage( hMemo, EM_REPLACESEL, (WPARAM) FALSE, (LPARAM) text );\r
 139     SendMessage( hMemo, EM_SCROLLCARET, 0, 0);\r
 140 }\r
 141 \r
 142 LRESULT CALLBACK\r
 143 InterceptArrowKeys(HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam)\r
 144 {\r
 145   char buf[MSG_SIZ];\r
 146   char *p;\r
 147   CHARRANGE sel;\r
 148 \r
 149   switch (message) {\r
 150   case WM_KEYDOWN: // cloned from ConsoleInputSubClass()\r
 151     switch (wParam) {\r
 152     case VK_UP:\r
 153       GetWindowText(hwnd, buf, MSG_SIZ);\r
 154       p = PrevInHistory(buf);\r
 155       if (p != NULL) {\r
 156         SetWindowText(hwnd, p);\r
 157         sel.cpMin = 999999;\r
 158         sel.cpMax = 999999;\r
 159         SendMessage(hwnd, EM_EXSETSEL, 0, (LPARAM)&sel);\r
 160         return 0;\r
 161       }\r
 162       break;\r
 163     case VK_DOWN:\r
 164       p = NextInHistory();\r
 165       if (p != NULL) {\r
 166         SetWindowText(hwnd, p);\r
 167         sel.cpMin = 999999;\r
 168         sel.cpMax = 999999;\r
 169         SendMessage(hwnd, EM_EXSETSEL, 0, (LPARAM)&sel);\r
 170         return 0;\r
 171       }\r
 172       break;\r
 173     }\r
 174   }\r
 175   return (*chatInputWindowProc)(hwnd, message, wParam, lParam);\r
 176 }\r
 177 \r
 178 // This seems pure front end\r
 179 LRESULT CALLBACK ChatProc( HWND hDlg, UINT message, WPARAM wParam, LPARAM lParam )\r
 180 {\r
 181     static SnapData sd;\r
 182     char buf[MSG_SIZ], mess[MSG_SIZ];\r
 183     int partner = -1, i, x, y;\r
 184     static BOOL filterHasFocus[MAX_CHAT];\r
 185     WORD wMask;\r
 186     HWND hMemo;\r
 187 \r
 188     for(i=0; i<MAX_CHAT; i++) if(hDlg == chatHandle[i]) { partner = i; break; }\r
 189 \r
 190     switch (message) {\r
 191     case WM_INITDIALOG:\r
 192         Translate(hDlg, DLG_Chat);\r
 193         if(partner<0) {\r
 194                 for(i=0; i<MAX_CHAT; i++) if(chatHandle[i] == NULL) { partner = i; break; }\r
 195                 chatHandle[partner] = hDlg;\r
 196                 snprintf(buf, MSG_SIZ, "Chat Window %s", first.tidy);\r
 197                 SetWindowText(hDlg, buf);\r
 198         }\r
 199         for(i=0; i<MAX_CHAT; i++) if(chatHandle[i]) {\r
 200             if(i == partner) continue;\r
 201             // set our button in other open chats\r
 202             SetDlgItemText(chatHandle[i], IDC_Focus1+partner-(i<partner), chatPartner[partner]);\r
 203             EnableWindow( GetDlgItem(chatHandle[i], IDC_Focus1+partner-(i<partner)), 1 );\r
 204             // and buttons for other chats in ours\r
 205             SetDlgItemText(hDlg, IDC_Focus1+i-(i>partner), chatPartner[i]);\r
 206         } else EnableWindow( GetDlgItem(hDlg, IDC_Focus1+i-(i>partner)), 0 );\r
 207         for(i=0; i<MAX_CHAT-1; i++) { Button_SetStyle(GetDlgItem(hDlg, IDC_Focus1+i), BS_PUSHBUTTON|BS_LEFT, TRUE); }\r
 208         x = wpConsole.x; y = wpConsole.y; EnsureOnScreen(&x, &y, 0, 0);\r
 209         SetWindowPos(hDlg, NULL, x, y, 0, 0, SWP_NOZORDER|SWP_NOSIZE);\r
 210         SendMessage( GetDlgItem(hDlg, IDC_ChatPartner), // [HGM] clickbox: initialize with requested handle\r
 211                         WM_SETTEXT, 0, (LPARAM) chatPartner[partner] );\r
 212         filterHasFocus[partner] = TRUE;\r
 213         onTop = partner; // a newly opened box becomes top one\r
 214         if(chatPartner[partner][0]) {\r
 215             filterHasFocus[partner] = FALSE;\r
 216             SetFocus( GetDlgItem(hDlg, OPT_ChatInput) );\r
 217         }\r
 218         hMemo = GetDlgItem(hDlg, IDC_ChatMemo);\r
 219         wMask = (WORD) SendMessage(hMemo, EM_GETEVENTMASK, 0, 0L);\r
 220         SendMessage(hMemo, EM_SETEVENTMASK, 0, wMask | ENM_LINK);\r
 221         SendMessage(hMemo, EM_AUTOURLDETECT, TRUE, 0L);\r
 222         chatInputWindowProc = (WNDPROC) // cloned from ConsoleWndProc(). Assume they all share same proc.\r
 223               SetWindowLong(GetDlgItem(hDlg, OPT_ChatInput), GWL_WNDPROC, (LONG) InterceptArrowKeys);\r
 224         return FALSE;\r
 225 \r
 226     case WM_NOTIFY:\r
 227       if (((NMHDR*)lParam)->code == EN_LINK)\r
 228       {\r
 229         ENLINK *pLink = (ENLINK*)lParam;\r
 230         if (pLink->msg == WM_LBUTTONUP)\r
 231         {\r
 232           TEXTRANGE tr;\r
 233 \r
 234           tr.chrg = pLink->chrg;\r
 235           tr.lpstrText = malloc(1+tr.chrg.cpMax-tr.chrg.cpMin);\r
 236           SendMessage( GetDlgItem(hDlg, IDC_ChatMemo), EM_GETTEXTRANGE, 0, (LPARAM)&tr);\r
 237           ShellExecute(NULL, "open", tr.lpstrText, NULL, NULL, SW_SHOW);\r
 238           free(tr.lpstrText);\r
 239         }\r
 240       }\r
 241     break;\r
 242 \r
 243     case WM_COMMAND:\r
 244       /*\r
 245         [AS]\r
 246         If <Enter> is pressed while editing the filter, it's better to apply\r
 247         the filter rather than selecting the current game.\r
 248       */\r
 249       if( LOWORD(wParam) == IDC_ChatPartner ) {\r
 250           switch( HIWORD(wParam) ) {\r
 251           case EN_SETFOCUS:\r
 252               filterHasFocus[partner] = TRUE;\r
 253               break;\r
 254           case EN_KILLFOCUS:\r
 255               filterHasFocus[partner] = FALSE;\r
 256               break;\r
 257           }\r
 258       }\r
 259 \r
 260       if( filterHasFocus[partner] && (LOWORD(wParam) == IDC_Send) ) {\r
 261           SetFocus(GetDlgItem(hDlg, OPT_ChatInput));\r
 262           wParam = IDC_Change;\r
 263       }\r
 264       /* [AS] End command replacement */\r
 265 \r
 266         switch (LOWORD(wParam)) {\r
 267 \r
 268         case IDCANCEL: /* let Esc key switch focus back to console */\r
 269             SetFocus(GetDlgItem(hwndConsole, OPT_ConsoleInput));\r
 270             break;\r
 271 \r
 272         case IDC_Clear:\r
 273             SendMessage( GetDlgItem(hDlg, IDC_ChatMemo), WM_SETTEXT, 0, (LPARAM) "" );\r
 274             break;\r
 275 \r
 276         case IDC_Change:\r
 277             GetDlgItemText(hDlg, IDC_ChatPartner, chatPartner[partner], MSG_SIZ);\r
 278             for(i=0; i<MAX_CHAT; i++) if(chatHandle[i] && i != partner) {\r
 279               // set our button in other open chats\r
 280               SetDlgItemText(chatHandle[i], IDC_Focus1+partner-(i<partner), chatPartner[partner]);\r
 281             }\r
 282             break;\r
 283 \r
 284         case IDC_Send:\r
 285             GetDlgItemText(hDlg, OPT_ChatInput, mess, MSG_SIZ);\r
 286             SetDlgItemText(hDlg, OPT_ChatInput, "");\r
 287             // from here on it could be back-end\r
 288             SaveInHistory(mess);\r
 289             if(!strcmp("whispers", chatPartner[partner]))\r
 290               snprintf(buf, MSG_SIZ, "whisper %s\n", mess); // WHISPER box uses "whisper" to send\r
 291             else if(!strcmp("shouts", chatPartner[partner]))\r
 292               snprintf(buf, MSG_SIZ, "shout %s\n", mess); // SHOUT box uses "shout" to send\r
 293             else {\r
 294                 if(!atoi(chatPartner[partner])) {\r
 295                   snprintf(buf, MSG_SIZ, "> %s\r\n", mess); // echo only tells to handle, not channel\r
 296                 InsertIntoMemo(hDlg, buf);\r
 297                 snprintf(buf, MSG_SIZ, "xtell %s %s\n", chatPartner[partner], mess);\r
 298                 } else\r
 299                   snprintf(buf, MSG_SIZ, "tell %s %s\n", chatPartner[partner], mess);\r
 300             }\r
 301             SendToICS(buf);\r
 302             break;\r
 303 \r
 304         case IDC_Focus1:\r
 305         case IDC_Focus2:\r
 306         case IDC_Focus3:\r
 307         case IDC_Focus4:\r
 308             i = LOWORD(wParam) - IDC_Focus1;\r
 309             if(i >= partner) i++;\r
 310             onTop = i;\r
 311             SetFocus(GetDlgItem(hDlg, IDC_Send));\r
 312             if(chatHandle[i]) {\r
 313                 int j;\r
 314                 for(j=0; j<MAX_CHAT; j++) if(i != j && chatHandle[j])\r
 315                     Button_SetState(GetDlgItem(chatHandle[j], IDC_Focus1+i-(j<i)), FALSE);\r
 316                 SetFocus(GetDlgItem(chatHandle[i], OPT_ChatInput));\r
 317             }\r
 318             break;\r
 319 \r
 320         default:\r
 321           break;\r
 322         }\r
 323 \r
 324         break;\r
 325 \r
 326     case WM_CLOSE:\r
 327         chatHandle[partner] = 0;\r
 328         chatPartner[partner][0] = 0;\r
 329         ChatPopDown();\r
 330         for(i=0; i<MAX_CHAT; i++) if(chatHandle[i] && i != partner) {\r
 331             // set our button in other open chats\r
 332             SetDlgItemText(chatHandle[i], IDC_Focus1+partner-(i<partner), "");\r
 333             EnableWindow( GetDlgItem(chatHandle[i], IDC_Focus1+partner-(i<partner)), 0 );\r
 334         }\r
 335         EndDialog(hDlg, TRUE);\r
 336         break;\r
 337 \r
 338     case WM_SIZE:\r
 339         ResizeWindowControls( hDlg );\r
 340         break;\r
 341 \r
 342     case WM_ENTERSIZEMOVE:\r
 343         return OnEnterSizeMove( &sd, hDlg, wParam, lParam );\r
 344 \r
 345     case WM_SIZING:\r
 346         return OnSizing( &sd, hDlg, wParam, lParam );\r
 347 \r
 348     case WM_MOVING:\r
 349         return OnMoving( &sd, hDlg, wParam, lParam );\r
 350 \r
 351     case WM_EXITSIZEMOVE:\r
 352         return OnExitSizeMove( &sd, hDlg, wParam, lParam );\r
 353     }\r
 354 \r
 355     return FALSE;\r
 356 }\r
 357 \r
 358 // front end\r
 359 void ChatPopUp(char *icsHandle)\r
 360 {\r
 361   FARPROC lpProc;\r
 362   int i, partner = -1;\r
 363 \r
 364   CheckMenuItem(GetMenu(hwndMain), IDM_NewChat, MF_CHECKED);\r
 365   for(i=0; i<MAX_CHAT; i++) if(chatHandle[i] == NULL) { partner = i; break; }\r
 366   if(partner == -1) { DisplayError("You first have to close a Chat Box\nbefore you can open a new one", 0); return; }\r
 367   if(icsHandle) // [HGM] clickbox set handle in advance\r
 368     safeStrCpy(chatPartner[partner], icsHandle,\r
 369                sizeof(chatPartner[partner])/sizeof(chatPartner[partner][0]) );\r
 370   else chatPartner[partner][0] = NULLCHAR;\r
 371   chatCount++;\r
 372 \r
 373     lpProc = MakeProcInstance( (FARPROC) ChatProc, hInst );\r
 374 \r
 375     /* Note to self: dialog must have the WS_VISIBLE style set, otherwise it's not shown! */\r
 376     CreateDialog( hInst, MAKEINTRESOURCE(DLG_Chat), hwndConsole, (DLGPROC)lpProc );\r
 377 \r
 378     FreeProcInstance(lpProc);\r
 379 \r
 380 }\r
 381 \r
 382 // front end\r
 383 void ChatPopDown()\r
 384 {\r
 385   if(--chatCount <= 0)\r
 386         CheckMenuItem(GetMenu(hwndMain), IDM_NewChat, MF_UNCHECKED);\r
 387 }\r
 388 \r
 389 \r
 390 //------------------------ pure back-end routines -------------------------------\r
 391 \r
 392 void OutputChatMessage(int partner, char *text)\r
 393 {\r
 394         int j, n = strlen(text);\r
 395 \r
 396         if(!chatHandle[partner]) return;\r
 397         text[n+1] = 0; text[n] = '\n'; text[n-1] = '\r'; // Needs CR to not lose line breaks on copy-paste\r
 398         InsertIntoMemo(chatHandle[partner], text);\r
 399         if(partner != onTop) for(j=0; j<MAX_CHAT; j++) if(j != partner && chatHandle[j])\r
 400             Button_SetState(GetDlgItem(chatHandle[j], IDC_Focus1+partner-(j<partner)), TRUE);\r
 401 }\r