ui/win32/button.c

Thu, 16 Oct 2025 15:57:05 +0200

author
Olaf Wintermann <olaf.wintermann@gmail.com>
date
Thu, 16 Oct 2025 15:57:05 +0200
changeset 852
a04cb4398034
parent 841
651cf2c59dd9
child 880
9c99ff36513f
permissions
-rw-r--r--

fix ui_action_set_state (GTK)

665
73689d24080c add missing include
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
1 /*
73689d24080c add missing include
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
2 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS HEADER.
73689d24080c add missing include
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
3 *
73689d24080c add missing include
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
4 * Copyright 2025 Olaf Wintermann. All rights reserved.
73689d24080c add missing include
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
5 *
73689d24080c add missing include
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
6 * Redistribution and use in source and binary forms, with or without
73689d24080c add missing include
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
7 * modification, are permitted provided that the following conditions are met:
73689d24080c add missing include
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
8 *
73689d24080c add missing include
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
9 * 1. Redistributions of source code must retain the above copyright
73689d24080c add missing include
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
10 * notice, this list of conditions and the following disclaimer.
73689d24080c add missing include
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
11 *
73689d24080c add missing include
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
12 * 2. Redistributions in binary form must reproduce the above copyright
73689d24080c add missing include
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
13 * notice, this list of conditions and the following disclaimer in the
73689d24080c add missing include
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
14 * documentation and/or other materials provided with the distribution.
73689d24080c add missing include
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
15 *
73689d24080c add missing include
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
16 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
73689d24080c add missing include
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
17 * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
73689d24080c add missing include
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
18 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
73689d24080c add missing include
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
19 * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
73689d24080c add missing include
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
20 * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
73689d24080c add missing include
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
21 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
73689d24080c add missing include
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
22 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
73689d24080c add missing include
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
23 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
73689d24080c add missing include
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
24 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
73689d24080c add missing include
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
25 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
73689d24080c add missing include
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
26 * POSSIBILITY OF SUCH DAMAGE.
73689d24080c add missing include
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
27 */
73689d24080c add missing include
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
28
73689d24080c add missing include
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
29 #include "button.h"
814
bcb3c7d486f3 add container base (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 665
diff changeset
30 #include "widget.h"
bcb3c7d486f3 add container base (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 665
diff changeset
31
825
1bac7e45712b implement button onclick event (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 817
diff changeset
32 #include <stdio.h>
1bac7e45712b implement button onclick event (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 817
diff changeset
33 #include <stdlib.h>
1bac7e45712b implement button onclick event (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 817
diff changeset
34
841
651cf2c59dd9 implement ui_grid_create (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 825
diff changeset
35 #include <commctrl.h>
651cf2c59dd9 implement ui_grid_create (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 825
diff changeset
36
814
bcb3c7d486f3 add container base (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 665
diff changeset
37 static W32WidgetClass button_widget_class = {
825
1bac7e45712b implement button onclick event (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 817
diff changeset
38 .eventproc = ui_button_eventproc,
814
bcb3c7d486f3 add container base (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 665
diff changeset
39 .enable = w32_widget_default_enable,
bcb3c7d486f3 add container base (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 665
diff changeset
40 .show = w32_widget_default_show,
bcb3c7d486f3 add container base (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 665
diff changeset
41 .get_preferred_size = ui_button_get_preferred_size,
bcb3c7d486f3 add container base (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 665
diff changeset
42 .destroy = w32_widget_default_destroy
bcb3c7d486f3 add container base (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 665
diff changeset
43 };
665
73689d24080c add missing include
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
44
73689d24080c add missing include
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
45 UIWIDGET ui_button_create(UiObject *obj, UiButtonArgs *args) {
814
bcb3c7d486f3 add container base (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 665
diff changeset
46 HINSTANCE hInstance = GetModuleHandle(NULL);
bcb3c7d486f3 add container base (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 665
diff changeset
47 UiContainerPrivate *container = ui_obj_container(obj);
bcb3c7d486f3 add container base (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 665
diff changeset
48 HWND parent = ui_container_get_parent(container);
bcb3c7d486f3 add container base (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 665
diff changeset
49 UiLayout layout = UI_ARGS2LAYOUT(args);
bcb3c7d486f3 add container base (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 665
diff changeset
50
bcb3c7d486f3 add container base (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 665
diff changeset
51 HWND hwnd = CreateWindow(
bcb3c7d486f3 add container base (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 665
diff changeset
52 "BUTTON",
bcb3c7d486f3 add container base (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 665
diff changeset
53 args->label,
bcb3c7d486f3 add container base (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 665
diff changeset
54 WS_VISIBLE | WS_CHILD | BS_DEFPUSHBUTTON,
bcb3c7d486f3 add container base (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 665
diff changeset
55 0, 0, 100, 30,
bcb3c7d486f3 add container base (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 665
diff changeset
56 parent,
bcb3c7d486f3 add container base (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 665
diff changeset
57 (HMENU)0,
bcb3c7d486f3 add container base (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 665
diff changeset
58 hInstance,
bcb3c7d486f3 add container base (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 665
diff changeset
59 NULL);
817
d09817e6e6a4 use a modern font (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 815
diff changeset
60 ui_win32_set_ui_font(hwnd);
814
bcb3c7d486f3 add container base (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 665
diff changeset
61
825
1bac7e45712b implement button onclick event (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 817
diff changeset
62 W32Widget *widget = w32_widget_create(&button_widget_class, hwnd, sizeof(UiWidget));
814
bcb3c7d486f3 add container base (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 665
diff changeset
63 ui_container_add(container, widget, &layout);
bcb3c7d486f3 add container base (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 665
diff changeset
64
825
1bac7e45712b implement button onclick event (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 817
diff changeset
65 UiWidget *btn = (UiWidget*)widget;
1bac7e45712b implement button onclick event (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 817
diff changeset
66 btn->obj = obj;
1bac7e45712b implement button onclick event (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 817
diff changeset
67 btn->callback = args->onclick;
1bac7e45712b implement button onclick event (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 817
diff changeset
68 btn->callbackdata = args->onclickdata;
1bac7e45712b implement button onclick event (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 817
diff changeset
69
814
bcb3c7d486f3 add container base (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 665
diff changeset
70 return widget;
665
73689d24080c add missing include
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
71 }
814
bcb3c7d486f3 add container base (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 665
diff changeset
72
bcb3c7d486f3 add container base (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 665
diff changeset
73 W32Size ui_button_get_preferred_size(W32Widget *widget) {
bcb3c7d486f3 add container base (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 665
diff changeset
74 W32Size size;
bcb3c7d486f3 add container base (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 665
diff changeset
75 size.width = 100;
bcb3c7d486f3 add container base (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 665
diff changeset
76 size.height = 30;
841
651cf2c59dd9 implement ui_grid_create (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 825
diff changeset
77 SIZE sz;
651cf2c59dd9 implement ui_grid_create (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 825
diff changeset
78 if (Button_GetIdealSize(widget->hwnd, &sz)) {
651cf2c59dd9 implement ui_grid_create (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 825
diff changeset
79 size.width = sz.cx;
651cf2c59dd9 implement ui_grid_create (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 825
diff changeset
80 size.height = sz.cy;
651cf2c59dd9 implement ui_grid_create (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 825
diff changeset
81 }
814
bcb3c7d486f3 add container base (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 665
diff changeset
82 return size;
bcb3c7d486f3 add container base (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 665
diff changeset
83 }
825
1bac7e45712b implement button onclick event (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 817
diff changeset
84
1bac7e45712b implement button onclick event (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 817
diff changeset
85 void ui_button_eventproc(W32Widget *widget, HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam) {
1bac7e45712b implement button onclick event (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 817
diff changeset
86 UiWidget *w = (UiWidget*)widget;
1bac7e45712b implement button onclick event (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 817
diff changeset
87
1bac7e45712b implement button onclick event (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 817
diff changeset
88 UiEvent e;
1bac7e45712b implement button onclick event (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 817
diff changeset
89 e.obj = w->obj;
1bac7e45712b implement button onclick event (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 817
diff changeset
90 e.document = e.obj->ctx->document;
1bac7e45712b implement button onclick event (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 817
diff changeset
91 e.window = e.obj->window;
1bac7e45712b implement button onclick event (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 817
diff changeset
92 e.eventdata = NULL;
1bac7e45712b implement button onclick event (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 817
diff changeset
93 e.eventdatatype = 0;
1bac7e45712b implement button onclick event (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 817
diff changeset
94 e.intval = 0;
1bac7e45712b implement button onclick event (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 817
diff changeset
95 e.set = ui_get_setop();
1bac7e45712b implement button onclick event (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 817
diff changeset
96
1bac7e45712b implement button onclick event (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 817
diff changeset
97 if (w->callback) {
1bac7e45712b implement button onclick event (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 817
diff changeset
98 w->callback(&e, w->callbackdata);
1bac7e45712b implement button onclick event (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 817
diff changeset
99 }
1bac7e45712b implement button onclick event (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 817
diff changeset
100 }

mercurial