/* 25 july 2014 */ #include "winapi_windows.h" #include "_cgo_export.h" /* provided for cgo's benefit */ LPCWSTR xWC_TABCONTROL = WC_TABCONTROL; static LRESULT CALLBACK tabSubProc(HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam, UINT_PTR id, DWORD_PTR data) { NMHDR *nmhdr = (NMHDR *) lParam; LRESULT r; switch (uMsg) { case msgNOTIFY: switch (nmhdr->code) { case TCN_SELCHANGING: r = SendMessageW(hwnd, TCM_GETCURSEL, 0, 0); if (r == (LRESULT) -1) /* no tab currently selected */ return FALSE; tabChanging((void *) data, r); return FALSE; /* allow change */ case TCN_SELCHANGE: tabChanged((void *) data, SendMessageW(hwnd, TCM_GETCURSEL, 0, 0)); return 0; } return (*fv_DefSubclassProc)(hwnd, uMsg, wParam, lParam); case WM_NCDESTROY: if ((*fv_RemoveWindowSubclass)(hwnd, tabSubProc, id) == FALSE) xpanic("error removing Tab 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("Tab", "tabSubProc()", uMsg); return 0; /* unreached */ } void setTabSubclass(HWND hwnd, void *data) { if ((*fv_SetWindowSubclass)(hwnd, tabSubProc, 0, (DWORD_PTR) data) == FALSE) xpanic("error subclassing Tab to give it its own event handler", GetLastError()); } void tabAppend(HWND hwnd, LPCWSTR name) { TCITEM item; LRESULT n; ZeroMemory(&item, sizeof (TCITEM)); item.mask = TCIF_TEXT; /* TODO the C means const; change everything to use LPWSTR instead */ item.pszText = name; /* MSDN's example code uses the first invalid index directly for this */ n = SendMessageW(hwnd, TCM_GETITEMCOUNT, 0, 0); if (SendMessageW(hwnd, TCM_INSERTITEM, (WPARAM) n, (LPARAM) (&item)) == (LRESULT) -1) xpanic("error adding tab to Tab", GetLastError()); } extern void tabGetContentRect(HWND hwnd, RECT *r) { /* not &r; already a pointer (thanks MindChild in irc.efnet.net/#winprog for spotting my failure) */ SendMessageW(hwnd, TCM_ADJUSTRECT, FALSE, (LPARAM) r); }