DVX_GUI/src/widgets/kpunch/tabControl/widgetTabControl.c

765 lines
24 KiB
C

// The MIT License (MIT)
//
// Copyright (C) 2026 Scott Duensing
//
// Permission is hereby granted, free of charge, to any person obtaining a copy
// of this software and associated documentation files (the "Software"), to
// deal in the Software without restriction, including without limitation the
// rights to use, copy, modify, merge, publish, distribute, sublicense, and/or
// sell copies of the Software, and to permit persons to whom the Software is
// furnished to do so, subject to the following conditions:
//
// The above copyright notice and this permission notice shall be included in
// all copies or substantial portions of the Software.
//
// THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
// IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
// FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
// AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
// LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
// FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS
// IN THE SOFTWARE.
#define DVX_WIDGET_IMPL
// widgetTabControl.c -- TabControl and TabPage widgets
//
// Two-level architecture: TabControlE is the container holding
// selection state and rendering the tab header strip. TabPageE
// children act as invisible sub-containers, each holding the content
// widgets for that page. Only the active page's children are visible
// and receive layout.
//
// Tab header rendering: each tab is a manually-drawn chrome piece
// (not a button widget) with top/left/right edges in highlight/shadow.
// The active tab is 2px taller than inactive tabs, extending down to
// overlap the content panel's top border -- this creates the classic
// "folder tab" illusion where the active tab appears connected to the
// panel below it. The panel's top border is erased under the active
// tab to complete the effect.
//
// Scrolling tab headers: when the total tab header width exceeds the
// available space, left/right arrow buttons appear and the header area
// becomes a clipped scrolling region. The scrollOffset tracks how many
// pixels the tab strip has scrolled. tabEnsureVisible() auto-scrolls
// to keep the active tab visible after keyboard navigation.
//
// Tab switching closes any open dropdown/combobox popup before
// switching, because the popup's owning widget may be on the
// now-hidden page and would become orphaned visually.
//
// Layout: all tab pages are positioned at the same content area
// coordinates, but only the active page has visible=true. This means
// widgetLayoutChildren is only called for the active page, saving
// layout computation for hidden pages. When switching tabs, the old
// page becomes invisible and the new page becomes visible + relaid out.
#include "dvxWgtP.h"
#define TAB_PAD_H 8
#define TAB_PAD_V 4
#define TAB_BORDER 2
// Visual "lift" of the active tab (pixels). Inactive tabs are drawn
// TAB_ACTIVE_LIFT pixels lower so the active tab appears foremost.
#define TAB_ACTIVE_LIFT 2
// Tab interior inset used by rectFill/drawVLine when painting tab body.
#define TAB_EDGE_INSET 2
// Focus-rect inset inside the active tab.
#define TAB_FOCUS_INSET 3
static int32_t sTabControlTypeId = -1;
static int32_t sTabPageTypeId = -1;
typedef struct {
int32_t activeTab;
int32_t scrollOffset;
} TabControlDataT;
typedef struct {
char *title;
} TabPageDataT;
#define TAB_ARROW_W 16
// ============================================================
// Prototypes
// ============================================================
static void tabClosePopup(void);
static void tabEnsureVisible(WidgetT *w, const BitmapFontT *font);
static int32_t tabHeaderTotalW(const WidgetT *w, const BitmapFontT *font);
static bool tabNeedScroll(const WidgetT *w, const BitmapFontT *font);
WidgetT *wgtTabControl(WidgetT *parent);
int32_t wgtTabControlGetActive(const WidgetT *w);
void wgtTabControlSetActive(WidgetT *w, int32_t idx);
WidgetT *wgtTabPage(WidgetT *parent, const char *title);
void widgetTabControlCalcMinSize(WidgetT *w, const BitmapFontT *font);
void widgetTabControlLayout(WidgetT *w, const BitmapFontT *font);
void widgetTabControlOnKey(WidgetT *w, int32_t key, int32_t mod);
void widgetTabControlOnMouse(WidgetT *hit, WidgetT *root, int32_t vx, int32_t vy);
void widgetTabControlPaint(WidgetT *w, DisplayT *d, const BlitOpsT *ops, const BitmapFontT *font, const ColorSchemeT *colors);
void widgetTabPageAccelActivate(WidgetT *w, WidgetT *root);
void widgetTabPageDestroy(WidgetT *w);
void widgetTabPageSetText(WidgetT *w, const char *text);
// tabClosePopup -- close any open dropdown/combobox popup
static void tabClosePopup(void) {
if (sOpenPopup) {
wclsClosePopup(sOpenPopup);
sOpenPopup = NULL;
}
}
// tabEnsureVisible -- scroll so active tab is visible
static void tabEnsureVisible(WidgetT *w, const BitmapFontT *font) {
TabControlDataT *d = (TabControlDataT *)w->data;
if (!tabNeedScroll(w, font)) {
d->scrollOffset = 0;
return;
}
int32_t headerW = w->w - TAB_ARROW_W * 2 - 4;
if (headerW < 1) {
return;
}
// Find start and end X of the active tab
int32_t tabX = 0;
int32_t tabIdx = 0;
for (WidgetT *c = w->firstChild; c; c = c->nextSibling) {
if (c->type != sTabPageTypeId) {
continue;
}
TabPageDataT *pd = (TabPageDataT *)c->data;
int32_t tw = textWidthAccel(font, pd->title) + TAB_PAD_H * 2;
if (tabIdx == d->activeTab) {
int32_t tabLeft = tabX - d->scrollOffset;
int32_t tabRight = tabLeft + tw;
if (tabLeft < 0) {
d->scrollOffset += tabLeft;
} else if (tabRight > headerW) {
d->scrollOffset += tabRight - headerW;
}
break;
}
tabX += tw;
tabIdx++;
}
// Clamp
int32_t totalW = tabHeaderTotalW(w, font);
int32_t maxOff = totalW - headerW;
if (maxOff < 0) {
maxOff = 0;
}
d->scrollOffset = clampInt(d->scrollOffset, 0, maxOff);
}
// tabHeaderTotalW -- total width of all tab headers
static int32_t tabHeaderTotalW(const WidgetT *w, const BitmapFontT *font) {
int32_t total = 0;
for (WidgetT *c = w->firstChild; c; c = c->nextSibling) {
if (c->type == sTabPageTypeId) {
TabPageDataT *pd = (TabPageDataT *)c->data;
total += textWidthAccel(font, pd->title) + TAB_PAD_H * 2;
}
}
return total;
}
// tabNeedScroll -- do tab headers overflow?
static bool tabNeedScroll(const WidgetT *w, const BitmapFontT *font) {
int32_t totalW = tabHeaderTotalW(w, font);
return totalW > (w->w - 4);
}
WidgetT *wgtTabControl(WidgetT *parent) {
WidgetT *w = widgetAlloc(parent, sTabControlTypeId);
if (!w) {
return NULL;
}
TabControlDataT *d = calloc(1, sizeof(TabControlDataT));
if (!d) {
widgetAllocRollback(w);
return NULL;
}
d->activeTab = 0;
d->scrollOffset = 0;
w->data = d;
w->weight = WGT_WEIGHT_FILL;
return w;
}
int32_t wgtTabControlGetActive(const WidgetT *w) {
VALIDATE_WIDGET(w, sTabControlTypeId, 0);
TabControlDataT *d = (TabControlDataT *)w->data;
return d->activeTab;
}
void wgtTabControlSetActive(WidgetT *w, int32_t idx) {
VALIDATE_WIDGET_VOID(w, sTabControlTypeId);
TabControlDataT *d = (TabControlDataT *)w->data;
d->activeTab = idx;
wgtInvalidate(w);
}
WidgetT *wgtTabPage(WidgetT *parent, const char *title) {
WidgetT *w = widgetAlloc(parent, sTabPageTypeId);
if (!w) {
return NULL;
}
TabPageDataT *d = calloc(1, sizeof(TabPageDataT));
if (!d) {
widgetAllocRollback(w);
return NULL;
}
d->title = strdup(title ? title : "");
w->data = d;
w->accelKey = accelParse(d->title);
return w;
}
void widgetTabPageDestroy(WidgetT *w) {
TabPageDataT *d = (TabPageDataT *)w->data;
if (d) {
free(d->title);
free(d);
w->data = NULL;
}
}
void widgetTabPageSetText(WidgetT *w, const char *text) {
TabPageDataT *d = (TabPageDataT *)w->data;
if (d) {
free(d->title);
d->title = strdup(text ? text : "");
w->accelKey = accelParse(d->title);
}
}
// Min size: tab header height + the maximum min size across ALL pages
// (not just the active one). This ensures the tab control reserves
// enough space for the largest page, preventing resize flicker when
// switching tabs. Children are recursively measured.
void widgetTabControlCalcMinSize(WidgetT *w, const BitmapFontT *font) {
int32_t tabH = font->charHeight + TAB_PAD_V * 2;
int32_t maxPageW = 0;
int32_t maxPageH = 0;
for (WidgetT *c = w->firstChild; c; c = c->nextSibling) {
if (c->type != sTabPageTypeId) {
continue;
}
widgetCalcMinSizeTree(c, font);
maxPageW = DVX_MAX(maxPageW, c->calcMinW);
maxPageH = DVX_MAX(maxPageH, c->calcMinH);
}
w->calcMinW = maxPageW + TAB_BORDER * 2;
w->calcMinH = tabH + maxPageH + TAB_BORDER * 2;
}
void widgetTabControlLayout(WidgetT *w, const BitmapFontT *font) {
TabControlDataT *d = (TabControlDataT *)w->data;
int32_t tabH = font->charHeight + TAB_PAD_V * 2;
int32_t contentX = w->x + TAB_BORDER;
int32_t contentY = w->y + tabH + TAB_BORDER;
int32_t contentW = w->w - TAB_BORDER * 2;
int32_t contentH = w->h - tabH - TAB_BORDER * 2;
if (contentW < 0) { contentW = 0; }
if (contentH < 0) { contentH = 0; }
tabEnsureVisible(w, font);
int32_t idx = 0;
for (WidgetT *c = w->firstChild; c; c = c->nextSibling) {
if (c->type != sTabPageTypeId) {
continue;
}
c->x = contentX;
c->y = contentY;
c->w = contentW;
c->h = contentH;
if (idx == d->activeTab) {
c->visible = true;
widgetLayoutChildren(c, font);
} else {
c->visible = false;
}
idx++;
}
}
// Keyboard navigation: Left/Right cycle through tabs with wrapping
// (modular arithmetic). Home/End jump to first/last tab. The tab
// control only handles these keys when it has focus -- if a child
// widget inside the active page has focus, keys go there instead.
void widgetTabControlOnKey(WidgetT *w, int32_t key, int32_t mod) {
(void)mod;
TabControlDataT *d = (TabControlDataT *)w->data;
int32_t tabCount = 0;
for (WidgetT *c = w->firstChild; c; c = c->nextSibling) {
if (c->type == sTabPageTypeId) {
tabCount++;
}
}
if (tabCount <= 1) {
return;
}
int32_t active = d->activeTab;
if (key == KEY_RIGHT) {
active = (active + 1) % tabCount;
} else if (key == KEY_LEFT) {
active = (active - 1 + tabCount) % tabCount;
} else if (key == KEY_HOME) {
active = 0;
} else if (key == KEY_END) {
active = tabCount - 1;
} else {
return;
}
if (active != d->activeTab) {
tabClosePopup();
d->activeTab = active;
if (w->onChange) {
w->onChange(w);
}
wgtInvalidate(w);
}
}
// Mouse clicks in the tab header area walk the tab list computing
// accumulated X positions to find which tab was clicked. Only clicks
// in the header strip (top tabH pixels) are handled here -- clicks
// on the content area go through normal child hit-testing. Scroll
// arrow clicks adjust scrollOffset by 4 character widths at a time.
void widgetTabControlOnMouse(WidgetT *hit, WidgetT *root, int32_t vx, int32_t vy) {
sFocusedWidget = hit;
TabControlDataT *d = (TabControlDataT *)hit->data;
AppContextT *ctx = (AppContextT *)root->userData;
const BitmapFontT *font = &ctx->font;
int32_t tabH = font->charHeight + TAB_PAD_V * 2;
// Only handle clicks in the tab header area
if (vy < hit->y || vy >= hit->y + tabH) {
return;
}
bool scroll = tabNeedScroll(hit, font);
// Check scroll arrow clicks
if (scroll) {
int32_t totalW = tabHeaderTotalW(hit, font);
int32_t headerW = hit->w - TAB_ARROW_W * 2 - 4;
int32_t maxOff = totalW - headerW;
if (maxOff < 0) {
maxOff = 0;
}
// Left arrow
if (vx >= hit->x && vx < hit->x + TAB_ARROW_W) {
d->scrollOffset -= font->charWidth * 4;
d->scrollOffset = clampInt(d->scrollOffset, 0, maxOff);
wgtInvalidatePaint(hit);
return;
}
// Right arrow
if (vx >= hit->x + hit->w - TAB_ARROW_W && vx < hit->x + hit->w) {
d->scrollOffset += font->charWidth * 4;
d->scrollOffset = clampInt(d->scrollOffset, 0, maxOff);
wgtInvalidatePaint(hit);
return;
}
}
// Click on tab header
int32_t headerLeft = hit->x + 2 + (scroll ? TAB_ARROW_W : 0);
int32_t tabX = headerLeft - d->scrollOffset;
int32_t tabIdx = 0;
for (WidgetT *c = hit->firstChild; c; c = c->nextSibling) {
if (c->type != sTabPageTypeId) {
continue;
}
TabPageDataT *pd = (TabPageDataT *)c->data;
int32_t tw = textWidthAccel(font, pd->title) + TAB_PAD_H * 2;
if (vx >= tabX && vx < tabX + tw && vx >= headerLeft) {
if (tabIdx != d->activeTab) {
tabClosePopup();
d->activeTab = tabIdx;
if (hit->onChange) {
hit->onChange(hit);
}
wgtInvalidate(hit);
}
break;
}
tabX += tw;
tabIdx++;
}
}
// Paint order: content panel first (raised bevel below the tab strip),
// then scroll arrows if needed, then tab headers in a clipped region,
// then the active page's children. Tab headers are painted with a clip
// rect so partially-scrolled tabs at the edges are cleanly truncated.
//
// The active tab is drawn 2px taller (extending from w->y instead of
// w->y+2) and erases the panel's top border beneath it (2px of
// contentBg), creating the visual connection between tab and panel.
// Inactive tabs sit 2px lower and draw a bottom border to separate
// them from the panel.
//
// Only the active page's children are painted (WCLASS_PAINTS_CHILDREN
// flag means the generic paint won't descend into tab control children).
// This is critical for performance on 486 -- we skip painting all
// hidden pages entirely.
void widgetTabControlPaint(WidgetT *w, DisplayT *d, const BlitOpsT *ops, const BitmapFontT *font, const ColorSchemeT *colors) {
TabControlDataT *td = (TabControlDataT *)w->data;
int32_t tabH = font->charHeight + TAB_PAD_V * 2;
bool scroll = tabNeedScroll(w, font);
bool selfDirty = w->paintDirty;
if (!selfDirty) {
goto paintChildren;
}
// Content panel
BevelStyleT panelBevel;
panelBevel.highlight = colors->windowHighlight;
panelBevel.shadow = colors->windowShadow;
panelBevel.face = colors->contentBg;
panelBevel.width = 2;
drawBevel(d, ops, w->x, w->y + tabH, w->w, w->h - tabH, &panelBevel);
// Scroll arrows
if (scroll) {
int32_t totalW = tabHeaderTotalW(w, font);
int32_t headerW = w->w - TAB_ARROW_W * 2 - 4;
int32_t maxOff = totalW - headerW;
if (maxOff < 0) {
maxOff = 0;
}
td->scrollOffset = clampInt(td->scrollOffset, 0, maxOff);
bool canScrollLeft = (td->scrollOffset > 0);
bool canScrollRight = (td->scrollOffset < maxOff);
BevelStyleT btnBevel = BEVEL_RAISED(colors, 1);
// Left arrow button
drawBevel(d, ops, w->x, w->y, TAB_ARROW_W, tabH, &btnBevel);
{
uint32_t arrowFg = canScrollLeft ? colors->contentFg : colors->windowShadow;
int32_t cx = w->x + TAB_ARROW_W / 2;
int32_t cy = w->y + tabH / 2;
for (int32_t i = 0; i < 4; i++) {
drawVLine(d, ops, cx - 2 + i, cy - i, 1 + i * 2, arrowFg);
}
}
// Right arrow button
int32_t rx = w->x + w->w - TAB_ARROW_W;
drawBevel(d, ops, rx, w->y, TAB_ARROW_W, tabH, &btnBevel);
{
uint32_t arrowFg = canScrollRight ? colors->contentFg : colors->windowShadow;
int32_t cx = rx + TAB_ARROW_W / 2;
int32_t cy = w->y + tabH / 2;
for (int32_t i = 0; i < 4; i++) {
drawVLine(d, ops, cx + 2 - i, cy - i, 1 + i * 2, arrowFg);
}
}
}
// Tab headers -- clip to header area (tabH + TAB_ACTIVE_LIFT for the active tab's extra height)
int32_t headerLeft = w->x + TAB_EDGE_INSET + (scroll ? TAB_ARROW_W : 0);
int32_t headerRight = scroll ? (w->x + w->w - TAB_ARROW_W) : (w->x + w->w);
int32_t oldClipX = d->clipX;
int32_t oldClipY = d->clipY;
int32_t oldClipW = d->clipW;
int32_t oldClipH = d->clipH;
setClipRect(d, headerLeft, w->y, headerRight - headerLeft, tabH + TAB_ACTIVE_LIFT);
// Clear the header strip so scrolled-away tab pixels are erased.
// Only clear above the content panel border (tabH, not tabH+2).
rectFill(d, ops, headerLeft, w->y, headerRight - headerLeft, tabH, colors->contentBg);
// Draw the content panel top border across the header area.
// Individual active tabs will erase it under themselves below.
drawHLine(d, ops, headerLeft, w->y + tabH, headerRight - headerLeft, colors->windowHighlight);
drawHLine(d, ops, headerLeft, w->y + tabH + 1, headerRight - headerLeft, colors->windowHighlight);
int32_t tabX = headerLeft - td->scrollOffset;
int32_t tabIdx = 0;
for (WidgetT *c = w->firstChild; c; c = c->nextSibling) {
if (c->type != sTabPageTypeId) {
continue;
}
TabPageDataT *pd = (TabPageDataT *)c->data;
int32_t tw = textWidthAccel(font, pd->title) + TAB_PAD_H * 2;
bool isActive = (tabIdx == td->activeTab);
int32_t ty = isActive ? w->y : w->y + TAB_ACTIVE_LIFT;
int32_t th = isActive ? tabH + TAB_ACTIVE_LIFT : tabH;
uint32_t tabFace = isActive ? colors->contentBg : colors->windowFace;
// Only draw tabs that are at least partially visible
if (tabX + tw > headerLeft && tabX < headerRight) {
// Fill tab background
rectFill(d, ops, tabX + TAB_EDGE_INSET, ty + TAB_EDGE_INSET, tw - 2 * TAB_EDGE_INSET, th - TAB_EDGE_INSET, tabFace);
// Top edge
drawHLine(d, ops, tabX + TAB_EDGE_INSET, ty, tw - 2 * TAB_EDGE_INSET, colors->windowHighlight);
drawHLine(d, ops, tabX + TAB_EDGE_INSET, ty + 1, tw - 2 * TAB_EDGE_INSET, colors->windowHighlight);
// Left edge
drawVLine(d, ops, tabX, ty + TAB_EDGE_INSET, th - TAB_EDGE_INSET, colors->windowHighlight);
drawVLine(d, ops, tabX + 1, ty + TAB_EDGE_INSET, th - TAB_EDGE_INSET, colors->windowHighlight);
// Right edge
drawVLine(d, ops, tabX + tw - 1, ty + TAB_EDGE_INSET, th - TAB_EDGE_INSET, colors->windowShadow);
drawVLine(d, ops, tabX + tw - 2, ty + TAB_EDGE_INSET, th - TAB_EDGE_INSET, colors->windowShadow);
if (isActive) {
// Erase panel top border under active tab
rectFill(d, ops, tabX + TAB_EDGE_INSET, w->y + tabH, tw - 2 * TAB_EDGE_INSET, TAB_EDGE_INSET, colors->contentBg);
} else {
// Bottom edge for inactive tab
drawHLine(d, ops, tabX, ty + th - 1, tw, colors->windowShadow);
drawHLine(d, ops, tabX + 1, ty + th - 2, tw - 2, colors->windowShadow);
}
// Tab label
int32_t labelY = ty + TAB_PAD_V;
if (!isActive) {
labelY++;
}
drawTextAccel(d, ops, font, tabX + TAB_PAD_H, labelY, pd->title, colors->contentFg, tabFace, true);
if (isActive && w == sFocusedWidget) {
drawFocusRect(d, ops, tabX + TAB_FOCUS_INSET, ty + TAB_FOCUS_INSET, tw - 2 * TAB_FOCUS_INSET, th - TAB_FOCUS_INSET - 1, colors->contentFg);
}
}
tabX += tw;
tabIdx++;
}
setClipRect(d, oldClipX, oldClipY, oldClipW, oldClipH);
paintChildren:
;
// Paint only active tab page's children
int32_t activeIdx = 0;
for (WidgetT *c = w->firstChild; c; c = c->nextSibling) {
if (c->type != sTabPageTypeId) {
continue;
}
if (activeIdx == td->activeTab) {
for (WidgetT *gc = c->firstChild; gc; gc = gc->nextSibling) {
widgetPaintOne(gc, d, ops, font, colors);
}
break;
}
activeIdx++;
}
}
void widgetTabPageAccelActivate(WidgetT *w, WidgetT *root) {
(void)root;
if (!w->parent || w->parent->type != sTabControlTypeId) {
return;
}
TabControlDataT *d = (TabControlDataT *)w->parent->data;
// Find our index among sibling tab pages
int32_t idx = 0;
for (WidgetT *c = w->parent->firstChild; c; c = c->nextSibling) {
if (c->type != sTabPageTypeId) {
continue;
}
if (c == w) {
tabClosePopup();
d->activeTab = idx;
wgtInvalidate(w->parent);
return;
}
idx++;
}
}
static const WidgetClassT sClassTabControl = {
.version = WGT_CLASS_VERSION,
.flags = WCLASS_FOCUSABLE | WCLASS_PAINTS_CHILDREN,
.handlers = {
[WGT_METHOD_PAINT] = (void *)widgetTabControlPaint,
[WGT_METHOD_CALC_MIN_SIZE] = (void *)widgetTabControlCalcMinSize,
[WGT_METHOD_LAYOUT] = (void *)widgetTabControlLayout,
[WGT_METHOD_ON_MOUSE] = (void *)widgetTabControlOnMouse,
[WGT_METHOD_ON_KEY] = (void *)widgetTabControlOnKey,
}
};
static const WidgetClassT sClassTabPage = {
.version = WGT_CLASS_VERSION,
.flags = WCLASS_ACCEL_WHEN_HIDDEN,
.handlers = {
[WGT_METHOD_ON_ACCEL_ACTIVATE] = (void *)widgetTabPageAccelActivate,
[WGT_METHOD_CALC_MIN_SIZE] = (void *)widgetCalcMinSizeBox,
[WGT_METHOD_LAYOUT] = (void *)widgetLayoutBox,
[WGT_METHOD_SET_TEXT] = (void *)widgetTabPageSetText,
[WGT_METHOD_DESTROY] = (void *)widgetTabPageDestroy,
}
};
static const struct {
WidgetT *(*create)(WidgetT *parent);
WidgetT *(*page)(WidgetT *parent, const char *title);
void (*setActive)(WidgetT *w, int32_t idx);
int32_t (*getActive)(const WidgetT *w);
} sApi = {
.create = wgtTabControl,
.page = wgtTabPage,
.setActive = wgtTabControlSetActive,
.getActive = wgtTabControlGetActive
};
static const WgtPropDescT sProps[] = {
{ "TabIndex", WGT_IFACE_INT, (void *)wgtTabControlGetActive, (void *)wgtTabControlSetActive, NULL }
};
// BASIC wrapper: AddPage creates a tab page and returns nothing.
// The page is accessible by index via SetActive.
static void basAddPage(WidgetT *w, const char *title) {
wgtTabPage(w, title);
}
static const WgtMethodDescT sMethods[] = {
{ "AddPage", WGT_SIG_STR, (void *)basAddPage },
{ "GetActive", WGT_SIG_RET_INT, (void *)wgtTabControlGetActive },
{ "SetActive", WGT_SIG_INT, (void *)wgtTabControlSetActive },
};
static const WgtIfaceT sIface = {
.basName = "TabStrip",
.props = sProps,
.propCount = 1,
.methods = sMethods,
.methodCount = 3,
.events = NULL,
.eventCount = 0,
.createSig = WGT_CREATE_PARENT,
.isContainer = true,
.defaultEvent = "Click"
};
// TabPage: authored in .frm as Begin TabPage name ... End inside a
// TabStrip. Caption sets the title string. The page is a container
// so children nest inside it (one page per Begin/End block).
static const struct {
WidgetT *(*create)(WidgetT *parent, const char *title);
} sTabPageApi = {
.create = wgtTabPage
};
static const WgtIfaceT sTabPageIface = {
.basName = "TabPage",
.props = NULL,
.propCount = 0,
.methods = NULL,
.methodCount = 0,
.events = NULL,
.eventCount = 0,
.createSig = WGT_CREATE_PARENT_TEXT,
.isContainer = true,
.defaultEvent = "Click"
};
void wgtRegister(void) {
sTabControlTypeId = wgtRegisterClass(&sClassTabControl);
sTabPageTypeId = wgtRegisterClass(&sClassTabPage);
wgtRegisterApi("tabcontrol", &sApi);
wgtRegisterIface("tabcontrol", &sIface);
wgtRegisterApi("tabpage", &sTabPageApi);
wgtRegisterIface("tabpage", &sTabPageIface);
}