ui/win32/button.c

Wed, 12 Nov 2025 18:04:21 +0100

author
Olaf Wintermann <olaf.wintermann@gmail.com>
date
Wed, 12 Nov 2025 18:04:21 +0100
changeset 895
f24d07479843
parent 880
9c99ff36513f
child 896
ae0ad20122cc
permissions
-rw-r--r--

add togglebutton (Win32)

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
895
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
45 static W32WidgetClass togglebutton_widget_class = {
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
46 .eventproc = ui_togglebutton_eventproc,
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
47 .enable = w32_widget_default_enable,
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
48 .show = w32_widget_default_show,
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
49 .get_preferred_size = ui_button_get_preferred_size,
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
50 .destroy = w32_widget_default_destroy
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
51 };
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
52
665
73689d24080c add missing include
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
53 UIWIDGET ui_button_create(UiObject *obj, UiButtonArgs *args) {
814
bcb3c7d486f3 add container base (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 665
diff changeset
54 HINSTANCE hInstance = GetModuleHandle(NULL);
bcb3c7d486f3 add container base (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 665
diff changeset
55 UiContainerPrivate *container = ui_obj_container(obj);
bcb3c7d486f3 add container base (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 665
diff changeset
56 HWND parent = ui_container_get_parent(container);
bcb3c7d486f3 add container base (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 665
diff changeset
57 UiLayout layout = UI_ARGS2LAYOUT(args);
bcb3c7d486f3 add container base (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 665
diff changeset
58
bcb3c7d486f3 add container base (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 665
diff changeset
59 HWND hwnd = CreateWindow(
bcb3c7d486f3 add container base (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 665
diff changeset
60 "BUTTON",
bcb3c7d486f3 add container base (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 665
diff changeset
61 args->label,
880
9c99ff36513f add container event proc (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 841
diff changeset
62 WS_VISIBLE | WS_CHILD | BS_PUSHBUTTON,
814
bcb3c7d486f3 add container base (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 665
diff changeset
63 0, 0, 100, 30,
bcb3c7d486f3 add container base (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 665
diff changeset
64 parent,
880
9c99ff36513f add container event proc (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 841
diff changeset
65 (HMENU)1,
814
bcb3c7d486f3 add container base (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 665
diff changeset
66 hInstance,
bcb3c7d486f3 add container base (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 665
diff changeset
67 NULL);
817
d09817e6e6a4 use a modern font (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 815
diff changeset
68 ui_win32_set_ui_font(hwnd);
814
bcb3c7d486f3 add container base (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 665
diff changeset
69
825
1bac7e45712b implement button onclick event (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 817
diff changeset
70 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
71 ui_container_add(container, widget, &layout);
bcb3c7d486f3 add container base (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 665
diff changeset
72
825
1bac7e45712b implement button onclick event (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 817
diff changeset
73 UiWidget *btn = (UiWidget*)widget;
1bac7e45712b implement button onclick event (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 817
diff changeset
74 btn->obj = obj;
1bac7e45712b implement button onclick event (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 817
diff changeset
75 btn->callback = args->onclick;
1bac7e45712b implement button onclick event (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 817
diff changeset
76 btn->callbackdata = args->onclickdata;
1bac7e45712b implement button onclick event (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 817
diff changeset
77
814
bcb3c7d486f3 add container base (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 665
diff changeset
78 return widget;
665
73689d24080c add missing include
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
79 }
814
bcb3c7d486f3 add container base (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 665
diff changeset
80
bcb3c7d486f3 add container base (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 665
diff changeset
81 W32Size ui_button_get_preferred_size(W32Widget *widget) {
bcb3c7d486f3 add container base (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 665
diff changeset
82 W32Size size;
bcb3c7d486f3 add container base (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 665
diff changeset
83 size.width = 100;
bcb3c7d486f3 add container base (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 665
diff changeset
84 size.height = 30;
841
651cf2c59dd9 implement ui_grid_create (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 825
diff changeset
85 SIZE sz;
651cf2c59dd9 implement ui_grid_create (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 825
diff changeset
86 if (Button_GetIdealSize(widget->hwnd, &sz)) {
651cf2c59dd9 implement ui_grid_create (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 825
diff changeset
87 size.width = sz.cx;
651cf2c59dd9 implement ui_grid_create (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 825
diff changeset
88 size.height = sz.cy;
651cf2c59dd9 implement ui_grid_create (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 825
diff changeset
89 }
814
bcb3c7d486f3 add container base (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 665
diff changeset
90 return size;
bcb3c7d486f3 add container base (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 665
diff changeset
91 }
825
1bac7e45712b implement button onclick event (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 817
diff changeset
92
1bac7e45712b implement button onclick event (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 817
diff changeset
93 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
94 UiWidget *w = (UiWidget*)widget;
1bac7e45712b implement button onclick event (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 817
diff changeset
95
895
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
96 if (uMsg != WM_COMMAND) {
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
97 return;
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
98 }
880
9c99ff36513f add container event proc (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 841
diff changeset
99
825
1bac7e45712b implement button onclick event (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 817
diff changeset
100 UiEvent e;
1bac7e45712b implement button onclick event (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 817
diff changeset
101 e.obj = w->obj;
1bac7e45712b implement button onclick event (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 817
diff changeset
102 e.document = e.obj->ctx->document;
1bac7e45712b implement button onclick event (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 817
diff changeset
103 e.window = e.obj->window;
1bac7e45712b implement button onclick event (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 817
diff changeset
104 e.eventdata = NULL;
1bac7e45712b implement button onclick event (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 817
diff changeset
105 e.eventdatatype = 0;
1bac7e45712b implement button onclick event (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 817
diff changeset
106 e.intval = 0;
1bac7e45712b implement button onclick event (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 817
diff changeset
107 e.set = ui_get_setop();
1bac7e45712b implement button onclick event (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 817
diff changeset
108
1bac7e45712b implement button onclick event (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 817
diff changeset
109 if (w->callback) {
1bac7e45712b implement button onclick event (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 817
diff changeset
110 w->callback(&e, w->callbackdata);
1bac7e45712b implement button onclick event (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 817
diff changeset
111 }
1bac7e45712b implement button onclick event (win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 817
diff changeset
112 }
895
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
113
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
114 static UIWIDGET create_togglebutton(UiObject *obj, UiToggleArgs *args, unsigned long type) {
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
115 HINSTANCE hInstance = GetModuleHandle(NULL);
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
116 UiContainerPrivate *container = ui_obj_container(obj);
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
117 HWND parent = ui_container_get_parent(container);
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
118 UiLayout layout = UI_ARGS2LAYOUT(args);
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
119
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
120 HWND hwnd = CreateWindow(
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
121 "BUTTON",
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
122 args->label,
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
123 WS_VISIBLE | WS_CHILD | type,
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
124 0, 0, 100, 30,
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
125 parent,
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
126 (HMENU)1,
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
127 hInstance,
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
128 NULL);
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
129 ui_win32_set_ui_font(hwnd);
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
130
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
131 W32Widget *widget = w32_widget_create(&togglebutton_widget_class, hwnd, sizeof(UiWidget));
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
132 ui_container_add(container, widget, &layout);
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
133
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
134 UiVar *var = uic_widget_var(obj->ctx, obj->ctx, args->value, args->varname, UI_VAR_INTEGER);
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
135 if (var) {
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
136 UiInteger *i = var->value;
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
137 i->obj = widget;
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
138 i->get = ui_togglebutton_get;
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
139 i->set = ui_togglebutton_set;
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
140 if (i->value != 0) {
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
141 SendMessage(hwnd, BM_SETCHECK, BST_CHECKED, 0);
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
142 }
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
143 }
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
144
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
145 UiWidget *btn = (UiWidget*)widget;
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
146 btn->obj = obj;
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
147 btn->var = var;
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
148 btn->callback = args->onchange;
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
149 btn->callbackdata = args->onchangedata;
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
150
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
151 return widget;
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
152 }
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
153
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
154 UIWIDGET ui_togglebutton_create(UiObject *obj, UiToggleArgs *args) {
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
155 return create_togglebutton(obj, args, BS_AUTOCHECKBOX | BS_PUSHLIKE);
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
156 }
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
157
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
158 UIWIDGET ui_checkbox_create(UiObject *obj, UiToggleArgs *args) {
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
159 return create_togglebutton(obj, args, BS_AUTOCHECKBOX);
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
160 }
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
161
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
162 UIWIDGET ui_switch_create(UiObject *obj, UiToggleArgs *args) {
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
163 return create_togglebutton(obj, args, BS_AUTOCHECKBOX);
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
164 }
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
165
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
166 int64_t ui_togglebutton_get(UiInteger *i) {
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
167 UiWidget *btn = (UiWidget*)i->obj;
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
168 LRESULT state = SendMessage(btn->widget.hwnd, BM_GETCHECK, 0, 0);
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
169 i->value = state;
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
170 return state;
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
171 }
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
172
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
173 void ui_togglebutton_set(UiInteger *i, int64_t v) {
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
174 UiWidget *btn = (UiWidget*)i->obj;
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
175 WPARAM state = v ? BST_CHECKED : BST_UNCHECKED;
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
176 SendMessage(btn->widget.hwnd, BM_SETCHECK, state, 0);
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
177 i->value = v;
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
178 }
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
179
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
180 void ui_togglebutton_eventproc(W32Widget *widget, HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam) {
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
181 if (uMsg != WM_COMMAND) {
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
182 return;
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
183 }
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
184 UiWidget *w = (UiWidget*)widget;
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
185
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
186 UiEvent e;
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
187 e.obj = w->obj;
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
188 e.document = e.obj->ctx->document;
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
189 e.window = e.obj->window;
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
190 e.eventdata = NULL;
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
191 e.eventdatatype = 0;
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
192 e.intval = SendMessage(w->widget.hwnd, BM_GETCHECK, 0, 0);
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
193 e.set = ui_get_setop();
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
194
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
195 if (w->callback) {
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
196 w->callback(&e, w->callbackdata);
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
197 }
f24d07479843 add togglebutton (Win32)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 880
diff changeset
198 }

mercurial