summaryrefslogtreecommitdiff
path: root/prev/basicctrls_windows.c
diff options
context:
space:
mode:
Diffstat (limited to 'prev/basicctrls_windows.c')
-rw-r--r--prev/basicctrls_windows.c254
1 files changed, 0 insertions, 254 deletions
diff --git a/prev/basicctrls_windows.c b/prev/basicctrls_windows.c
deleted file mode 100644
index b33bce2..0000000
--- a/prev/basicctrls_windows.c
+++ /dev/null
@@ -1,254 +0,0 @@
-// 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;
generated by cgit v1.2.3 (git 2.51.0) at 2025-11-05 23:58:22 +0000