LET'S GET THIS FINAL REWRITE EVER STARTED

1 files changed, 254 insertions, 0 deletions

diff --git a/prev/basicctrls_windows.c b/prev/basicctrls_windows.c
new file mode 100644
index 0000000..b33bce2
--- /dev/null
+++ b/prev/basicctrls_windows.c
@@ -0,0 +1,254 @@
+// 17 july 2014
+
+#include "winapi_windows.h"
+#include "_cgo_export.h"
+
+static LRESULT CALLBACK buttonSubProc(HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam, UINT_PTR id, DWORD_PTR data)
+{
+	switch (uMsg) {
+	case msgCOMMAND:
+		if (HIWORD(wParam) == BN_CLICKED) {
+			buttonClicked((void *) data);
+			return 0;
+		}
+		return (*fv_DefSubclassProc)(hwnd, uMsg, wParam, lParam);
+	case WM_NCDESTROY:
+		if ((*fv_RemoveWindowSubclass)(hwnd, buttonSubProc, id) == FALSE)
+			xpanic("error removing Button subclass (which was for its own event handler)", GetLastError());
+		return (*fv_DefSubclassProc)(hwnd, uMsg, wParam, lParam);
+	default:
+		return (*fv_DefSubclassProc)(hwnd, uMsg, wParam, lParam);
+	}
+	xmissedmsg("Button", "buttonSubProc()", uMsg);
+	return 0;		// unreached
+}
+
+void setButtonSubclass(HWND hwnd, void *data)
+{
+	if ((*fv_SetWindowSubclass)(hwnd, buttonSubProc, 0, (DWORD_PTR) data) == FALSE)
+		xpanic("error subclassing Button to give it its own event handler", GetLastError());
+}
+
+static LRESULT CALLBACK checkboxSubProc(HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam, UINT_PTR id, DWORD_PTR data)
+{
+	switch (uMsg) {
+	case msgCOMMAND:
+		if (HIWORD(wParam) == BN_CLICKED) {
+			WPARAM check;
+
+			// we didn't use BS_AUTOCHECKBOX (see controls_windows.go) so we have to manage the check state ourselves
+			check = BST_CHECKED;
+			if (SendMessage(hwnd, BM_GETCHECK, 0, 0) == BST_CHECKED)
+				check = BST_UNCHECKED;
+			SendMessage(hwnd, BM_SETCHECK, check, 0);
+			checkboxToggled((void *) data);
+			return 0;
+		}
+		return (*fv_DefSubclassProc)(hwnd, uMsg, wParam, lParam);
+	case WM_NCDESTROY:
+		if ((*fv_RemoveWindowSubclass)(hwnd, checkboxSubProc, id) == FALSE)
+			xpanic("error removing Checkbox subclass (which was for its own event handler)", GetLastError());
+		return (*fv_DefSubclassProc)(hwnd, uMsg, wParam, lParam);
+	default:
+		return (*fv_DefSubclassProc)(hwnd, uMsg, wParam, lParam);
+	}
+	xmissedmsg("Checkbox", "checkboxSubProc()", uMsg);
+	return 0;		// unreached
+}
+
+void setCheckboxSubclass(HWND hwnd, void *data)
+{
+	if ((*fv_SetWindowSubclass)(hwnd, checkboxSubProc, 0, (DWORD_PTR) data) == FALSE)
+		xpanic("error subclassing Checkbox to give it its own event handler", GetLastError());
+}
+
+BOOL checkboxChecked(HWND hwnd)
+{
+	if (SendMessage(hwnd, BM_GETCHECK, 0, 0) == BST_UNCHECKED)
+		return FALSE;
+	return TRUE;
+}
+
+void checkboxSetChecked(HWND hwnd, BOOL c)
+{
+	WPARAM check;
+
+	check = BST_CHECKED;
+	if (c == FALSE)
+		check = BST_UNCHECKED;
+	SendMessage(hwnd, BM_SETCHECK, check, 0);
+}
+
+static LRESULT CALLBACK textfieldSubProc(HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam, UINT_PTR id, DWORD_PTR data)
+{
+	switch (uMsg) {
+	case msgCOMMAND:
+		if (HIWORD(wParam) == EN_CHANGE) {
+			textfieldChanged((void *) data);
+			return 0;
+		}
+		return (*fv_DefSubclassProc)(hwnd, uMsg, wParam, lParam);
+	case WM_NCDESTROY:
+		if ((*fv_RemoveWindowSubclass)(hwnd, textfieldSubProc, id) == FALSE)
+			xpanic("error removing TextField subclass (which was for its own event handler)", GetLastError());
+		return (*fv_DefSubclassProc)(hwnd, uMsg, wParam, lParam);
+	default:
+		return (*fv_DefSubclassProc)(hwnd, uMsg, wParam, lParam);
+	}
+	xmissedmsg("TextField", "textfieldSubProc()", uMsg);
+	return 0;		// unreached
+}
+
+void setTextFieldSubclass(HWND hwnd, void *data)
+{
+	if ((*fv_SetWindowSubclass)(hwnd, textfieldSubProc, 0, (DWORD_PTR) data) == FALSE)
+		xpanic("error subclassing TextField to give it its own event handler", GetLastError());
+}
+
+void textfieldSetAndShowInvalidBalloonTip(HWND hwnd, WCHAR *text)
+{
+	EDITBALLOONTIP ti;
+
+	ZeroMemory(&ti, sizeof (EDITBALLOONTIP));
+	ti.cbStruct = sizeof (EDITBALLOONTIP);
+	// this is required to show the error icon
+	// this probably should be localized...
+	ti.pszTitle = L"Invalid Input";
+	ti.pszText = text;
+	ti.ttiIcon = TTI_ERROR;
+	if (SendMessageW(hwnd, EM_SHOWBALLOONTIP, 0, (LPARAM) (&ti)) == FALSE)
+		xpanic("error showing TextField.Invalid() balloon tip", GetLastError());
+	if (MessageBeep(0xFFFFFFFF) == 0)
+		xpanic("error beeping in response to TextField.Invalid()", GetLastError());
+}
+
+void textfieldHideInvalidBalloonTip(HWND hwnd)
+{
+	if (SendMessageW(hwnd, EM_HIDEBALLOONTIP, 0, 0) == FALSE)
+		xpanic("error hiding TextField.Invalid() balloon tip", GetLastError());
+}
+
+// also good for Textbox
+int textfieldReadOnly(HWND hwnd)
+{
+	return (GetWindowLongPtrW(hwnd, GWL_STYLE) & ES_READONLY) != 0;
+}
+
+// also good for Textbox
+void textfieldSetReadOnly(HWND hwnd, BOOL readonly)
+{
+	if (SendMessageW(hwnd, EM_SETREADONLY, (WPARAM) readonly, 0) == 0)
+		xpanic("error setting TextField/Textbox as read-only/not read-only", GetLastError());
+}
+
+static LRESULT CALLBACK groupSubProc(HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam, UINT_PTR id, DWORD_PTR data)
+{
+	LRESULT lResult;
+	RECT r;
+
+	if (sharedWndProc(hwnd, uMsg, wParam, lParam, &lResult))
+		return lResult;
+	switch (uMsg) {
+	// don't do this on WM_WINDOWPOSCHANGING; weird redraw issues will happen
+	case WM_WINDOWPOSCHANGED:
+		// don't use the WINDOWPOS rect here; the coordinates of the controls have to be in real client coordinates
+		if (GetClientRect(hwnd, &r) == 0)
+			xpanic("error getting client rect of Group for resizing its child Control", GetLastError());
+		groupResized((void *) data, r);
+		// and chain up
+		return (*fv_DefSubclassProc)(hwnd, uMsg, wParam, lParam);
+	case WM_NCDESTROY:
+		if ((*fv_RemoveWindowSubclass)(hwnd, groupSubProc, id) == FALSE)
+			xpanic("error removing Group subclass (which was for its own event handler)", GetLastError());
+		return (*fv_DefSubclassProc)(hwnd, uMsg, wParam, lParam);
+	default:
+		return (*fv_DefSubclassProc)(hwnd, uMsg, wParam, lParam);
+	}
+	xmissedmsg("Group", "groupSubProc()", uMsg);
+	return 0;		// unreached
+}
+
+void setGroupSubclass(HWND hwnd, void *data)
+{
+	if ((*fv_SetWindowSubclass)(hwnd, groupSubProc, 0, (DWORD_PTR) data) == FALSE)
+		xpanic("error subclassing Group to give it its own event handler", GetLastError());
+}
+
+static LRESULT CALLBACK updownSubProc(HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam, UINT_PTR id, DWORD_PTR data)
+{
+	NMHDR *nmhdr = (NMHDR *) lParam;
+
+	switch (uMsg) {
+	case msgNOTIFY:
+		switch (nmhdr->code) {
+		case UDN_DELTAPOS:
+			spinboxUpDownClicked((void *) data, (NMUPDOWN *) lParam);
+			return FALSE;			// allow change
+		}
+		return (*fv_DefSubclassProc)(hwnd, uMsg, wParam, lParam);
+	case WM_NCDESTROY:
+		if ((*fv_RemoveWindowSubclass)(hwnd, updownSubProc, id) == FALSE)
+			xpanic("error removing Spinbox up-down control subclass (which was for its own event handler)", GetLastError());
+		return (*fv_DefSubclassProc)(hwnd, uMsg, wParam, lParam);
+	default:
+		return (*fv_DefSubclassProc)(hwnd, uMsg, wParam, lParam);
+	}
+	xmissedmsg("Spinbox up-down control", "updownSubProc()", uMsg);
+	return 0;		// unreached
+}
+
+HWND newUpDown(HWND prevUpDown, void *data)
+{
+	HWND hwnd;
+	HWND parent;
+
+	parent = msgwin;		// for the first up-down
+	if (prevUpDown != NULL) {
+		parent = GetParent(prevUpDown);
+		if (parent == NULL)
+			xpanic("error getting parent of old up-down in Spinbox resize for new up-down", GetLastError());
+		if (DestroyWindow(prevUpDown) == 0)
+			xpanic("error destroying previous up-down in Spinbox resize", GetLastError());
+	}
+	hwnd = CreateWindowExW(0,
+		UPDOWN_CLASSW, L"",
+		// no WS_VISIBLE; we set visibility ourselves
+		WS_CHILD | UDS_ALIGNRIGHT | UDS_ARROWKEYS | UDS_HOTTRACK | UDS_NOTHOUSANDS | UDS_SETBUDDYINT,
+		// this is important; it's necessary for autosizing to work
+		0, 0, 0, 0,
+		parent, NULL, hInstance, NULL);
+	if (hwnd == NULL)
+		xpanic("error creating up-down control for Spinbox", GetLastError());
+	if ((*fv_SetWindowSubclass)(hwnd, updownSubProc, 0, (DWORD_PTR) data) == FALSE)
+		xpanic("error subclassing Spinbox up-down control to give it its own event handler", GetLastError());
+	return hwnd;
+}
+
+static LRESULT CALLBACK spinboxEditSubProc(HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam, UINT_PTR id, DWORD_PTR data)
+{
+	switch (uMsg) {
+	case msgCOMMAND:
+		if (HIWORD(wParam) == EN_CHANGE) {
+			spinboxEditChanged((void *) data);
+			return 0;
+		}
+		return (*fv_DefSubclassProc)(hwnd, uMsg, wParam, lParam);
+	case WM_NCDESTROY:
+		if ((*fv_RemoveWindowSubclass)(hwnd, spinboxEditSubProc, id) == FALSE)
+			xpanic("error removing Spinbox edit control subclass (which was for its own event handler)", GetLastError());
+		return (*fv_DefSubclassProc)(hwnd, uMsg, wParam, lParam);
+	default:
+		return (*fv_DefSubclassProc)(hwnd, uMsg, wParam, lParam);
+	}
+	xmissedmsg("Spinbox edit control", "spinboxEditSubProc()", uMsg);
+	return 0;		// unreached
+}
+
+void setSpinboxEditSubclass(HWND hwnd, void *data)
+{
+	if ((*fv_SetWindowSubclass)(hwnd, spinboxEditSubProc, 0, (DWORD_PTR) data) == FALSE)
+		xpanic("error subclassing Spinbox edit control to give it its own event handler", GetLastError());
+}
+
+// provided for cgo's benefit
+LPWSTR xPROGRESS_CLASS = PROGRESS_CLASS;