summaryrefslogtreecommitdiff
path: root/pico/osdep/mswin_tw.c
diff options
context:
space:
mode:
Diffstat (limited to 'pico/osdep/mswin_tw.c')
-rw-r--r--pico/osdep/mswin_tw.c765
1 files changed, 765 insertions, 0 deletions
diff --git a/pico/osdep/mswin_tw.c b/pico/osdep/mswin_tw.c
new file mode 100644
index 00000000..663c8141
--- /dev/null
+++ b/pico/osdep/mswin_tw.c
@@ -0,0 +1,765 @@
+/*
+ * ========================================================================
+ * Copyright 2006-2007 University of Washington
+ * Copyright 2013 Eduardo Chappa
+ *
+ * Licensed under the Apache License, Version 2.0 (the "License");
+ * you may not use this file except in compliance with the License.
+ * You may obtain a copy of the License at
+ *
+ * http://www.apache.org/licenses/LICENSE-2.0
+ *
+ * ========================================================================
+ */
+#define STRICT
+#define UNICODE
+#define _UNICODE
+#include <windows.h>
+#include <windowsx.h>
+#include <tchar.h>
+
+/*
+ article entitled "About Rich Edit Controls" here (remove all spaces from url):
+ http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/
+ platform/commctls/richedit/richeditcontrols/aboutricheditcontrols.asp
+
+ Rich Edit version DLL
+ 1.0 Riched32.dll
+ 2.0 Riched20.dll
+ 3.0 Riched20.dll
+ 4.1 Msftedit.dll
+
+ The following list describes which versions of Rich Edit are included in
+ which releases of Microsoft Windows.
+ Windows XP SP1 Includes Rich Edit 4.1, Rich Edit 3.0, and a Rich Edit 1.0 emulator.
+ Windows XP Includes Rich Edit 3.0 with a Rich Edit 1.0 emulator.
+ Windows Me Includes Rich Edit 1.0 and 3.0.
+ Windows 2000 Includes Rich Edit 3.0 with a Rich Edit 1.0 emulator.
+ Windows NT 4.0 Includes Rich Edit 1.0 and 2.0.
+ Windows 98 Includes Rich Edit 1.0 and 2.0.
+ Windows 95 Includes only Rich Edit 1.0. However, Riched20.dll is
+ compatible with Windows 95 and may be installed by an
+ application that requires it.
+
+ We're using richedit v2 since it is the first to have Unicode support. Does
+ potentially limit us to Win98 unless we install riched20.dll or it's
+ already there.
+ */
+#define _RICHEDIT_VER 0x0200
+#include <richedit.h>
+#include "resource.h"
+
+#include "mswin_tw.h"
+
+/*
+ * Globals
+ */
+static const TCHAR g_mswin_tw_class_name[] = TEXT("PineTWClass");
+
+// Maximum amount of text allowed in these textwindows.
+// Set via a EM_EXLIMITTEXT message.
+static const LPARAM g_max_text = 8 * 1024 * 1024 - 1;
+
+/*
+ * Function prototypes
+ */
+static LRESULT CALLBACK mswin_tw_wndproc(HWND hwnd, UINT msg, WPARAM wp, LPARAM lp);
+static UINT Edit_ExSetSel(HWND hwnd_edit, LONG cpMin, LONG cpMax);
+static UINT Edit_ExGetTextLen(HWND hwnd_edit, DWORD flags);
+static BOOL Edit_ExIsReadOnly(HWND hwnd_edit);
+
+/*
+ * mswin_tw_create() - Create a mswin textwindow.
+ */
+int
+mswin_tw_create(MSWIN_TEXTWINDOW *mswin_tw, LPCTSTR title)
+{
+ int width, height;
+ static int s_mswin_tw_class_registered = 0;
+
+ mswin_tw->hwnd = NULL;
+ mswin_tw->hwnd_edit = NULL;
+
+ if(!s_mswin_tw_class_registered)
+ {
+ WNDCLASS wndclass;
+
+ LoadLibrary(TEXT("riched20.dll"));
+
+ memset(&wndclass, 0, sizeof(wndclass));
+ wndclass.style = CS_BYTEALIGNWINDOW;
+ wndclass.lpfnWndProc = mswin_tw_wndproc;
+ wndclass.cbClsExtra = 0;
+ wndclass.cbWndExtra = sizeof(ULONG_PTR);
+ wndclass.hInstance = mswin_tw->hInstance ;
+ wndclass.hIcon = LoadIcon (mswin_tw->hInstance, MAKEINTRESOURCE( ALPINEICON));
+ wndclass.hCursor = LoadCursor (NULL, IDC_ARROW);
+ wndclass.hbrBackground = (HBRUSH)(COLOR_WINDOW + 1);
+ wndclass.lpszMenuName = MAKEINTRESOURCE(TEXTWINMENU);
+ wndclass.lpszClassName = g_mswin_tw_class_name ;
+
+ RegisterClass(&wndclass);
+
+ s_mswin_tw_class_registered = 1;
+ }
+
+ // If we're passed CW_USEDEFAULT as the position, then use right/bottom
+ // as the width/height. Otherwise use the full rect.
+ width = (mswin_tw->rcSize.left == CW_USEDEFAULT) ?
+ mswin_tw->rcSize.right : mswin_tw->rcSize.right - mswin_tw->rcSize.left;
+ height = (mswin_tw->rcSize.top == CW_USEDEFAULT) ?
+ mswin_tw->rcSize.bottom : mswin_tw->rcSize.bottom - mswin_tw->rcSize.top;
+
+ mswin_tw->hwnd = CreateWindow(
+ g_mswin_tw_class_name, title,
+ WS_OVERLAPPEDWINDOW,
+ mswin_tw->rcSize.left,
+ mswin_tw->rcSize.top,
+ width,
+ height,
+ HWND_DESKTOP, NULL,
+ mswin_tw->hInstance, mswin_tw);
+ if(!mswin_tw->hwnd)
+ return 0;
+
+ return 1;
+}
+
+/*
+ * mswin_tw_close() - close the mswin textwindow.
+ */
+void
+mswin_tw_close(MSWIN_TEXTWINDOW *mswin_tw)
+{
+ if(mswin_tw && mswin_tw->hwnd)
+ DestroyWindow(mswin_tw->hwnd);
+}
+
+/*
+ * EditStreamOutCallback - callback for mswin_tw_write_to_file.
+ */
+static DWORD CALLBACK
+EditStreamOutCallback(DWORD_PTR dwCookie, LPBYTE lpBuff, LONG cb, PLONG pcb)
+{
+ HANDLE hFile = (HANDLE)dwCookie;
+ return !WriteFile(hFile, lpBuff, cb, (DWORD *)pcb, NULL);
+}
+
+/*
+ * mswin_tw_fill_from_file() - write textwindow contents to a file.
+ */
+BOOL
+mswin_tw_write_to_file(MSWIN_TEXTWINDOW *mswin_tw, LPCTSTR file)
+{
+ BOOL fSuccess = FALSE;
+ HANDLE hFile = CreateFile(file, GENERIC_WRITE, 0,
+ 0, OPEN_ALWAYS,
+ FILE_ATTRIBUTE_NORMAL, NULL);
+ if(hFile != INVALID_HANDLE_VALUE)
+ {
+ EDITSTREAM es;
+
+ es.dwCookie = (DWORD_PTR)hFile;
+ es.dwError = 0;
+ es.pfnCallback = EditStreamOutCallback;
+
+ if(SendMessage(mswin_tw->hwnd_edit, EM_STREAMOUT, SF_TEXT, (LPARAM)&es) &&
+ es.dwError == 0)
+ {
+ fSuccess = TRUE;
+ }
+ }
+
+ CloseHandle(hFile);
+ return fSuccess;
+}
+
+
+#ifdef ALTED_DOT
+
+/*
+ * EditStreamCallback - callback for mswin_tw_fill_from_file.
+ */
+static DWORD CALLBACK
+EditStreamInCallback(DWORD_PTR dwCookie, LPBYTE lpBuff, LONG cb, PLONG pcb)
+{
+ HANDLE hFile = (HANDLE)dwCookie;
+ return !ReadFile(hFile, lpBuff, cb, (DWORD *)pcb, NULL);
+}
+
+
+/*
+ * mswin_tw_fill_from_file() - read file contents into the mswin textwindow.
+ */
+BOOL
+mswin_tw_fill_from_file(MSWIN_TEXTWINDOW *mswin_tw, LPCTSTR file)
+{
+ BOOL fSuccess = FALSE;
+ HANDLE hFile = CreateFile(file, GENERIC_READ, FILE_SHARE_READ,
+ 0, OPEN_EXISTING,
+ FILE_FLAG_SEQUENTIAL_SCAN, NULL);
+ if(hFile != INVALID_HANDLE_VALUE)
+ {
+ EDITSTREAM es;
+
+ es.dwCookie = (DWORD_PTR)hFile;
+ es.dwError = 0;
+ es.pfnCallback = EditStreamInCallback;
+
+ if(SendMessage(mswin_tw->hwnd_edit, EM_STREAMIN, SF_TEXT, (LPARAM)&es) &&
+ es.dwError == 0)
+ {
+ fSuccess = TRUE;
+ }
+ }
+
+ CloseHandle(hFile);
+ return fSuccess;
+}
+
+#endif /* ALTED_DOT */
+
+/*
+ * mswin_tw_showwindow() - show the main hwnd (SW_SHOWNORMAL, etc.).
+ */
+void
+mswin_tw_showwindow(MSWIN_TEXTWINDOW *mswin_tw, int nCmdShow)
+{
+ if(mswin_tw && mswin_tw->hwnd)
+ ShowWindow(mswin_tw->hwnd, nCmdShow);
+}
+
+/*
+ * mswin_tw_setfont() - Sets the hfont for the entire edit control.
+ */
+void
+mswin_tw_setfont(MSWIN_TEXTWINDOW *mswin_tw, HFONT hfont)
+{
+ if(mswin_tw && mswin_tw->hwnd_edit)
+ SetWindowFont(mswin_tw->hwnd_edit, hfont, TRUE);
+}
+
+/*
+ * mswin_tw_setcolor() - Set colors for entire edit control. If we're
+ * passed -1 for mswin_tw, then set the colors for all textwindows.
+ */
+void
+mswin_tw_setcolor(MSWIN_TEXTWINDOW *mswin_tw,
+ COLORREF TextColor, COLORREF BackColor)
+{
+ if(mswin_tw == (MSWIN_TEXTWINDOW *)-1)
+ {
+ HWND hwnd = NULL;
+
+ while(hwnd = FindWindowEx(NULL, hwnd, g_mswin_tw_class_name, NULL))
+ {
+ mswin_tw = (MSWIN_TEXTWINDOW *)(LONG_PTR)GetWindowLongPtr(
+ hwnd, GWLP_USERDATA);
+ if(mswin_tw)
+ {
+ mswin_tw_setcolor(mswin_tw, TextColor, BackColor);
+ }
+ }
+ }
+ else if(mswin_tw && mswin_tw->hwnd_edit)
+ {
+ CHARFORMAT2W cf2;
+
+ memset(&cf2, 0, sizeof(cf2));
+ cf2.cbSize = sizeof(cf2);
+ cf2.dwMask = CFM_COLOR;
+ cf2.crTextColor = TextColor;
+
+ SendMessage(mswin_tw->hwnd_edit, EM_SETCHARFORMAT, SCF_ALL, (LPARAM)&cf2);
+ SendMessage(mswin_tw->hwnd_edit, EM_SETBKGNDCOLOR, 0, BackColor);
+ }
+}
+
+/*
+ * mswin_tw_puts_lptstr() - Stuffs a LPTSTR string at the end of our edit
+ * control.
+ */
+int
+mswin_tw_puts_lptstr(MSWIN_TEXTWINDOW *mswin_tw, LPTSTR msg)
+{
+ if(mswin_tw && mswin_tw->hwnd_edit)
+ {
+ TCHAR lf_str[] = TEXT("\n");
+
+ Edit_ExSetSel(mswin_tw->hwnd_edit, -1, -1);
+ Edit_ReplaceSel(mswin_tw->hwnd_edit, msg);
+
+ Edit_ReplaceSel(mswin_tw->hwnd_edit, lf_str);
+
+ Edit_ScrollCaret(mswin_tw->hwnd_edit);
+ return 1;
+ }
+
+ return 0;
+}
+
+/*
+ * mswin_tw_printf() - printf version of mswin_tw_puts_lptstr.
+ */
+int
+mswin_tw_printf(MSWIN_TEXTWINDOW *mswin_tw, LPCTSTR fmt, ...)
+{
+ TCHAR msg[1024];
+ va_list vlist;
+
+ va_start(vlist, fmt);
+ _vsntprintf(msg, ARRAYSIZE(msg), fmt, vlist);
+ va_end(vlist);
+
+ msg[ARRAYSIZE(msg) - 1] = 0;
+ return mswin_tw_puts_lptstr(mswin_tw, msg);
+}
+
+/*
+ * mswin_tw_gettextlength() - Returns the number of TCHARs in the edit control.
+ */
+UINT
+mswin_tw_gettextlength(MSWIN_TEXTWINDOW *mswin_tw)
+{
+ if(mswin_tw && mswin_tw->hwnd_edit)
+ return (UINT)Edit_ExGetTextLen(mswin_tw->hwnd_edit, GTL_USECRLF);
+
+ return 0;
+}
+
+/*
+ * mswin_tw_gettext() - Return value is the number of TCHARs copied into the
+ * output buffer.
+ */
+UINT
+mswin_tw_gettext(MSWIN_TEXTWINDOW *mswin_tw, LPTSTR lptstr_ret, int lptstr_len)
+{
+ if(mswin_tw && mswin_tw->hwnd_edit)
+ {
+ GETTEXTEX gt;
+ LRESULT lresult;
+
+ gt.cb = lptstr_len * sizeof(TCHAR);
+ gt.flags = GT_DEFAULT | GT_USECRLF;
+ gt.codepage = 1200;
+ gt.lpDefaultChar = NULL;
+ gt.lpUsedDefChar = NULL;
+
+ lptstr_ret[0] = 0;
+ lresult = SendMessage(mswin_tw->hwnd_edit, EM_GETTEXTEX,
+ (WPARAM)&gt, (LPARAM)lptstr_ret);
+ return (int)lresult;
+ }
+
+ return 0;
+}
+
+/*
+ * mswin_tw_setsel() - Set edit control selection.
+ */
+void
+mswin_tw_setsel(MSWIN_TEXTWINDOW *mswin_tw, LONG min, LONG max)
+{
+ if(mswin_tw && mswin_tw->hwnd_edit)
+ {
+ Edit_ExSetSel(mswin_tw->hwnd_edit, min, max);
+ }
+}
+
+/*
+ * mswin_set_readonly() - Set readonly status.
+ */
+void
+mswin_set_readonly(MSWIN_TEXTWINDOW *mswin_tw, BOOL read_only)
+{
+ if(mswin_tw && mswin_tw->hwnd_edit)
+ Edit_SetReadOnly(mswin_tw->hwnd_edit, read_only);
+}
+
+/*
+ * mswin_tw_clear() - Clear all text from edit control.
+ */
+void
+mswin_tw_clear(MSWIN_TEXTWINDOW *mswin_tw)
+{
+ if(mswin_tw && mswin_tw->hwnd_edit)
+ {
+ SETTEXTEX stex;
+
+ stex.flags = ST_DEFAULT;
+ stex.codepage = 1200; // Unicode (see richedit.h)
+
+ SendMessage(mswin_tw->hwnd_edit, EM_SETTEXTEX,
+ (WPARAM)&stex, (LPARAM)TEXT(""));
+
+ if(mswin_tw->clear_callback)
+ mswin_tw->clear_callback(mswin_tw);
+ }
+}
+
+/*
+ * MySetWindowLongPtr() - Little wrapper routine which calls the
+ * Windows SetWindowLongPtr() and removes the stupid warning which is
+ * just seriously lame.
+ */
+static LONG_PTR
+MySetWindowLongPtr(HWND hwnd, int nIndex, void *NewLongPtr)
+{
+// warning C4244: 'function': conversion from 'LONG_PTR' to 'LONG',
+// possible loss of data
+#pragma warning(push)
+#pragma warning(disable: 4244)
+ return SetWindowLongPtr(hwnd, nIndex, (LONG_PTR)NewLongPtr);
+#pragma warning(pop)
+}
+
+/*
+ * mswin_tw_wm_command() - WM_CONTEXTMENU handler for textwindows
+ */
+static void
+mswin_tw_wm_contextmenu(MSWIN_TEXTWINDOW *mswin_tw, HWND hwnd, HWND hwndContext,
+ int xPos, int yPos)
+{
+ HMENU hMenu;
+
+ hMenu = CreatePopupMenu();
+ if(hMenu)
+ {
+ int i;
+ CHARRANGE cr;
+ MENUITEMINFO mitem;
+ static const struct
+ {
+ UINT wID;
+ LPTSTR dwTypeData;
+ } s_popup_menu[] =
+ {
+ { IDM_EDIT_COPY, TEXT("&Copy") },
+ { IDM_EDIT_COPY_APPEND, TEXT("Copy &Append") },
+ { IDM_EDIT_CLEAR, TEXT("Clea&r") },
+ };
+
+ memset(&mitem, 0, sizeof(MENUITEMINFO));
+ mitem.cbSize = sizeof(MENUITEMINFO);
+ mitem.fMask = MIIM_TYPE | MIIM_ID | MIIM_STATE;
+ mitem.fType = MFT_STRING;
+
+ SendMessage(mswin_tw->hwnd_edit, EM_EXGETSEL, (WPARAM)0, (LPARAM)&cr);
+
+ for(i = 0; i < ARRAYSIZE(s_popup_menu); i++)
+ {
+ switch(s_popup_menu[i].wID)
+ {
+ case IDM_EDIT_CLEAR:
+ // Only enable it if there is a clear callback set.
+ mitem.fState = (mswin_tw->clear_callback) ?
+ MFS_ENABLED : MFS_GRAYED;
+ break;
+ case IDM_EDIT_COPY:
+ case IDM_EDIT_COPY_APPEND:
+ // Only enable if there is a selection.
+ mitem.fState = (cr.cpMax > cr.cpMin) ?
+ MFS_ENABLED : MFS_GRAYED;
+ break;
+ default:
+ mitem.fState = MFS_ENABLED;
+ break;
+ }
+
+ mitem.wID = s_popup_menu[i].wID;
+ mitem.dwTypeData = s_popup_menu[i].dwTypeData;
+ mitem.cch = (UINT)_tcslen(s_popup_menu[i].dwTypeData);
+ InsertMenuItem(hMenu, i, FALSE, &mitem);
+ }
+
+ TrackPopupMenu(hMenu,
+ TPM_LEFTALIGN | TPM_TOPALIGN |
+ TPM_RIGHTBUTTON | TPM_LEFTBUTTON,
+ xPos, yPos, 0, hwnd, NULL);
+
+ DestroyMenu(hMenu);
+ }
+}
+
+/*
+ * mswin_tw_wm_command() - WM_COMMAND handler for textwindows
+ */
+static void
+mswin_tw_wm_command(HWND hwnd, int id, HWND hwndCtl, UINT codeNotify)
+{
+ MSWIN_TEXTWINDOW *mswin_tw;
+
+ mswin_tw = (MSWIN_TEXTWINDOW *)(LONG_PTR)GetWindowLongPtr(hwnd, GWLP_USERDATA);
+
+ switch(id)
+ {
+ case IDM_FILE_CLOSE:
+ DestroyWindow(hwnd);
+ break;
+
+ case IDM_FILE_PRINT:
+ if(mswin_tw->print_callback)
+ mswin_tw->print_callback(mswin_tw);
+ break;
+
+ case IDM_EDIT_COPY:
+ SendMessage(mswin_tw->hwnd_edit, WM_COPY, 0, 0);
+ break;
+
+ case IDM_EDIT_CLEAR:
+ mswin_tw_clear(mswin_tw);
+ break;
+
+ case IDM_EDIT_COPY_APPEND:
+ {
+ CHARRANGE cr;
+ int text_len0, text_len1;
+ HWND hwnd_edit = mswin_tw->hwnd_edit;
+ BOOL EditIsReadOnly = Edit_ExIsReadOnly(hwnd_edit);
+
+ SetWindowRedraw(hwnd_edit, FALSE);
+ Edit_SetReadOnly(hwnd_edit, FALSE);
+
+ // Get current selection.
+ SendMessage(hwnd_edit, EM_EXGETSEL, (WPARAM)0, (LPARAM)&cr);
+
+ // Get current length.
+ text_len0 = Edit_ExGetTextLen(hwnd_edit, 0);
+
+ // Paste current clip right before our new selection.
+ Edit_ExSetSel(hwnd_edit, cr.cpMin, cr.cpMin);
+ SendMessage(hwnd_edit, WM_PASTE, 0, 0);
+
+ // Get new length.
+ text_len1 = Edit_ExGetTextLen(hwnd_edit, 0);
+
+ // Select new and old clip and copy em.
+ Edit_ExSetSel(hwnd_edit, cr.cpMin, cr.cpMax + text_len1 - text_len0);
+ SendMessage(hwnd_edit, WM_COPY, 0, 0);
+
+ // Undo our paste and restore original selection.
+ SendMessage(hwnd_edit, WM_UNDO, 0, 0);
+ SendMessage(hwnd_edit, EM_EXSETSEL, (WPARAM)0, (LPARAM)&cr);
+
+ // Set back to read only.
+ Edit_SetReadOnly(hwnd_edit, EditIsReadOnly);
+ SetWindowRedraw(hwnd_edit, TRUE);
+ break;
+ }
+
+ case IDM_EDIT_SEL_ALL:
+ Edit_ExSetSel(mswin_tw->hwnd_edit, 0, -1);
+ break;
+ }
+}
+
+/*
+ * mswin_tw_wm_notify() - WM_NOTIFY handler for textwindows
+ */
+static LRESULT
+mswin_tw_wm_notify(HWND hwnd, int idCtrl, NMHDR *nmhdr)
+{
+ HWND hwnd_edit = nmhdr->hwndFrom;
+
+ if(nmhdr->code == EN_MSGFILTER)
+ {
+ MSGFILTER *msg_filter = (MSGFILTER *)nmhdr;
+
+ if(msg_filter->msg == WM_KEYDOWN)
+ {
+ if(msg_filter->wParam == 'E')
+ {
+ int control_down = GetKeyState(VK_CONTROL) < 0;
+ int shift_down = GetKeyState(VK_SHIFT) < 0;
+
+ // Ctrl+Shift+E toggles the readonly attribute on the text
+ // buffer.
+ if(control_down && shift_down)
+ Edit_SetReadOnly(hwnd_edit, !Edit_ExIsReadOnly(hwnd_edit));
+ return TRUE;
+ }
+ }
+ else if(msg_filter->msg == WM_CHAR)
+ {
+ // Only override these keys if this buffer is readonly.
+ if(Edit_ExIsReadOnly(hwnd_edit))
+ {
+ switch(msg_filter->wParam)
+ {
+ case 'k':
+ SendMessage(hwnd_edit, EM_SCROLL, SB_LINEUP, 0);
+ return TRUE;
+ case 'j':
+ SendMessage(hwnd_edit, EM_SCROLL, SB_LINEDOWN, 0);
+ return TRUE;
+ case '-':
+ case 'b':
+ SendMessage(hwnd_edit, EM_SCROLL, SB_PAGEUP, 0);
+ return TRUE;
+ case ' ':
+ case 'f':
+ SendMessage(hwnd_edit, EM_SCROLL, SB_PAGEDOWN, 0);
+ return TRUE;
+ }
+ }
+ }
+ }
+ else if(nmhdr->code == EN_LINK)
+ {
+ ENLINK *enlink = (ENLINK *)nmhdr;
+
+ if(enlink->msg == WM_LBUTTONDOWN)
+ {
+ TEXTRANGE tr;
+ TCHAR link_buf[1024];
+
+ link_buf[0] = 0;
+ tr.lpstrText = link_buf;
+
+ tr.chrg = enlink->chrg;
+ if(tr.chrg.cpMax - tr.chrg.cpMin > ARRAYSIZE(link_buf))
+ tr.chrg.cpMax = tr.chrg.cpMin + ARRAYSIZE(link_buf);
+
+ SendMessage(hwnd_edit, EM_GETTEXTRANGE, 0, (LPARAM)&tr);
+ ShellExecute(hwnd, TEXT("Open"), link_buf, NULL, NULL, SW_SHOWNORMAL);
+ return TRUE;
+ }
+ }
+
+ return FALSE;
+}
+
+/*
+ * mswin_tw_wndproc() - Main window proc for mswin textwindows.
+ */
+static LRESULT CALLBACK
+mswin_tw_wndproc(HWND hwnd, UINT msg, WPARAM wp, LPARAM lp)
+{
+ MSWIN_TEXTWINDOW *mswin_tw;
+
+ mswin_tw = (MSWIN_TEXTWINDOW *)(LONG_PTR)GetWindowLongPtr(hwnd, GWLP_USERDATA);
+
+ switch(msg)
+ {
+ case WM_CREATE:
+ {
+ CREATESTRUCT *pcs = (CREATESTRUCT *)lp;
+
+ mswin_tw = (MSWIN_TEXTWINDOW *)pcs->lpCreateParams;
+
+ MySetWindowLongPtr(hwnd, GWLP_USERDATA, mswin_tw);
+
+ mswin_tw->hwnd_edit = CreateWindowEx(
+ WS_EX_CLIENTEDGE, RICHEDIT_CLASS, 0,
+ WS_VISIBLE | WS_CHILD |
+ WS_CLIPSIBLINGS | WS_CLIPCHILDREN |
+ WS_VSCROLL | WS_HSCROLL |
+ ES_MULTILINE | ES_READONLY | ES_NOHIDESEL,
+ 0, 0, 1, 1,
+ hwnd, 0, mswin_tw->hInstance, 0);
+
+ // We want link and key event notifications.
+ SendMessage(mswin_tw->hwnd_edit, EM_SETEVENTMASK,
+ 0, (ENM_KEYEVENTS | ENM_LINK));
+
+ // Specifies the maximum amount of text that can be entered.
+ SendMessage(mswin_tw->hwnd_edit, EM_EXLIMITTEXT, 0, g_max_text);
+
+ // Enable automatic detection of URLs by our rich edit control.
+ SendMessage(mswin_tw->hwnd_edit, EM_AUTOURLDETECT, TRUE, 0);
+ break;
+ }
+
+ case WM_CONTEXTMENU:
+ mswin_tw_wm_contextmenu(mswin_tw, hwnd, (HWND)wp, GET_X_LPARAM(lp), GET_Y_LPARAM(lp));
+ break;
+
+ case WM_NOTIFY:
+ return mswin_tw_wm_notify(hwnd, (int)wp, (NMHDR *)lp);
+
+ case WM_COMMAND:
+ HANDLE_WM_COMMAND(hwnd, wp, lp, mswin_tw_wm_command);
+ break;
+
+ case WM_SETFOCUS:
+ SetFocus(mswin_tw->hwnd_edit);
+ return TRUE;
+
+ case WM_SIZE:
+ MoveWindow(mswin_tw->hwnd_edit, 0, 0, LOWORD(lp), HIWORD(lp), TRUE);
+ break;
+
+ case WM_WINDOWPOSCHANGED:
+ if(!IsIconic(hwnd))
+ {
+ WINDOWPOS *wpos = (WINDOWPOS *)lp;
+
+ mswin_tw->rcSize.left = wpos->x;
+ mswin_tw->rcSize.top = wpos->y;
+ mswin_tw->rcSize.right = wpos->x + wpos->cx;
+ mswin_tw->rcSize.bottom = wpos->y + wpos->cy;
+ }
+ break;
+
+ case WM_DESTROY:
+ if(mswin_tw->out_file)
+ {
+ mswin_tw->out_file_ret = mswin_tw_write_to_file(mswin_tw,
+ mswin_tw->out_file);
+ }
+
+ mswin_tw->hwnd = NULL;
+ mswin_tw->hwnd_edit = NULL;
+
+ if(mswin_tw->close_callback)
+ mswin_tw->close_callback(mswin_tw);
+ return TRUE;
+
+ default:
+ break;
+ }
+
+ return DefWindowProc(hwnd, msg, wp, lp);
+}
+
+/*
+ * Edit_ExGetTextLen() - Helper routine for getting count of chars.
+ */
+static UINT
+Edit_ExGetTextLen(HWND hwnd_edit, DWORD flags)
+{
+ GETTEXTLENGTHEX gtl;
+
+ gtl.flags = GTL_PRECISE | GTL_NUMCHARS | flags;
+ gtl.codepage = 1200; // Unicode (see richedit.h)
+ return (UINT)SendMessage(hwnd_edit, EM_GETTEXTLENGTHEX, (WPARAM)&gtl, 0);
+}
+
+/*
+ * Edit_ExSetSel() - Helper routine for setting edit selection.
+ */
+static UINT
+Edit_ExSetSel(HWND hwnd_edit, LONG cpMin, LONG cpMax)
+{
+ CHARRANGE cr;
+
+ if(cpMin == -1)
+ cpMin = Edit_ExGetTextLen(hwnd_edit, 0);
+
+ cr.cpMin = cpMin;
+ cr.cpMax = cpMax;
+ return (UINT)SendMessage(hwnd_edit, EM_EXSETSEL, (WPARAM)0, (LPARAM)&cr);
+}
+
+/*
+ * Edit_ExIsReadOnly() - TRUE if edit buffer is read only.
+ */
+static BOOL
+Edit_ExIsReadOnly(HWND hwnd_edit)
+{
+ LRESULT edit_opts;
+
+ edit_opts = SendMessage(hwnd_edit, EM_GETOPTIONS, 0, 0);
+ return !!(edit_opts & ECO_READONLY);
+}
+
generated by cgit v1.2.3-54-g00ecf (git 2.44.0) at 2024-06-29 12:00:00 +0000