ui/cocoa/list.m

Sat, 23 Aug 2025 18:41:20 +0200

author
Olaf Wintermann <olaf.wintermann@gmail.com>
date
Sat, 23 Aug 2025 18:41:20 +0200
changeset 714
3905f542e150
parent 713
f279d3cf2bf5
child 715
2082c80fb010
permissions
-rw-r--r--

implement listview list bindings (Cocoa)

711
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
1 /*
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
2 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS HEADER.
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
3 *
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
4 * Copyright 2025 Olaf Wintermann. All rights reserved.
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
5 *
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
6 * Redistribution and use in source and binary forms, with or without
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
7 * modification, are permitted provided that the following conditions are met:
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
8 *
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
9 * 1. Redistributions of source code must retain the above copyright
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
10 * notice, this list of conditions and the following disclaimer.
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
11 *
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
12 * 2. Redistributions in binary form must reproduce the above copyright
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
13 * notice, this list of conditions and the following disclaimer in the
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
14 * documentation and/or other materials provided with the distribution.
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
15 *
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
16 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
17 * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
18 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
19 * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
20 * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
21 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
22 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
23 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
24 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
673e7e41c93e add minimally working listview (Cocoa)
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
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
26 * POSSIBILITY OF SUCH DAMAGE.
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
27 */
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
28
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
29 #import "list.h"
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
30 #import "ListDelegate.h"
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
31 #import <objc/runtime.h>
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
32
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
33 static void* getvalue_wrapper(UiList *list, void *elm, int row, int col, void *userdata, UiBool *freeResult) {
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
34 ui_getvaluefunc getvalue = (ui_getvaluefunc)userdata;
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
35 return getvalue(elm, col);
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
36 }
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
37
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
38 static void* str_getvalue(UiList *list, void *elm, int row, int col, void *userdata, UiBool *freeResult) {
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
39 return elm;
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
40 }
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
41
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
42 UIWIDGET ui_listview_create(UiObject* obj, UiListArgs *args) {
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
43 NSScrollView *scrollview = [[NSScrollView alloc] init];
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
44
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
45 NSTableView *tableview = [[NSTableView alloc] init];
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
46 tableview.autoresizingMask = NSViewWidthSizable;
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
47 tableview.headerView = nil;
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
48
713
f279d3cf2bf5 implement listview multiselection (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 712
diff changeset
49 if(args->multiselection) {
f279d3cf2bf5 implement listview multiselection (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 712
diff changeset
50 tableview.allowsMultipleSelection = YES;
f279d3cf2bf5 implement listview multiselection (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 712
diff changeset
51 }
f279d3cf2bf5 implement listview multiselection (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 712
diff changeset
52
711
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
53 scrollview.documentView = tableview;
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
54
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
55 UiLayout layout = UI_INIT_LAYOUT(args);
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
56 ui_container_add(obj, scrollview, &layout, TRUE);
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
57
714
3905f542e150 implement listview list bindings (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 713
diff changeset
58 ListDelegate *delegate = [[ListDelegate alloc] init:tableview obj:obj];
3905f542e150 implement listview list bindings (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 713
diff changeset
59 delegate.onactivate = args->onactivate;
3905f542e150 implement listview list bindings (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 713
diff changeset
60 delegate.onactivatedata = args->onactivatedata;
3905f542e150 implement listview list bindings (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 713
diff changeset
61 delegate.onselection = args->onselection;
3905f542e150 implement listview list bindings (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 713
diff changeset
62 delegate.onselectiondata = args->onselectiondata;
3905f542e150 implement listview list bindings (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 713
diff changeset
63 tableview.delegate = delegate;
3905f542e150 implement listview list bindings (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 713
diff changeset
64 objc_setAssociatedObject(tableview, "ui_listdelegate", delegate, OBJC_ASSOCIATION_RETAIN);
3905f542e150 implement listview list bindings (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 713
diff changeset
65 tableview.doubleAction = @selector(activateEvent:);
3905f542e150 implement listview list bindings (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 713
diff changeset
66 tableview.target = delegate;
3905f542e150 implement listview list bindings (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 713
diff changeset
67
711
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
68 UiVar *var = uic_widget_var(obj->ctx, obj->ctx, args->list, args->varname, UI_VAR_LIST);
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
69 if(var) {
714
3905f542e150 implement listview list bindings (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 713
diff changeset
70 UiList *list = var->value;
3905f542e150 implement listview list bindings (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 713
diff changeset
71 list->obj = (__bridge void*)tableview;
3905f542e150 implement listview list bindings (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 713
diff changeset
72 list->update = ui_tableview_update;
3905f542e150 implement listview list bindings (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 713
diff changeset
73 list->getselection = ui_tableview_getselection;
3905f542e150 implement listview list bindings (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 713
diff changeset
74 list->setselection = ui_tableview_setselection;
3905f542e150 implement listview list bindings (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 713
diff changeset
75
711
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
76 ui_getvaluefunc2 getvalue = args->getvalue2;
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
77 void *getvaluedata = args->getvalue2data;
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
78 if(!getvalue) {
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
79 if(args->getvalue) {
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
80 getvalue = getvalue_wrapper;
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
81 getvaluedata = (void*)args->getvalue;
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
82 } else {
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
83 getvalue = str_getvalue; // by default list values are interpreted as strings
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
84 }
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
85 }
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
86
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
87 NSTableColumn *column = [[NSTableColumn alloc] initWithIdentifier:@"column"];
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
88 column.width = 400;
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
89 [tableview addTableColumn:column];
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
90
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
91 ListDataSource *dataSource = [[ListDataSource alloc] init:tableview.tableColumns var:var getvalue:getvalue getvaluedata:getvaluedata];
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
92
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
93 tableview.dataSource = dataSource;
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
94 [tableview reloadData];
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
95
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
96 objc_setAssociatedObject(tableview, "ui_datasource", dataSource, OBJC_ASSOCIATION_RETAIN);
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
97 }
714
3905f542e150 implement listview list bindings (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 713
diff changeset
98
711
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
99 return (__bridge void*)scrollview;
673e7e41c93e add minimally working listview (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
100 }
714
3905f542e150 implement listview list bindings (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 713
diff changeset
101
3905f542e150 implement listview list bindings (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 713
diff changeset
102 void ui_tableview_update(UiList *list, int i) {
3905f542e150 implement listview list bindings (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 713
diff changeset
103 NSTableView *tableview = (__bridge NSTableView*)list->obj;
3905f542e150 implement listview list bindings (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 713
diff changeset
104 if(i < 0) {
3905f542e150 implement listview list bindings (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 713
diff changeset
105 [tableview reloadData];
3905f542e150 implement listview list bindings (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 713
diff changeset
106 } else {
3905f542e150 implement listview list bindings (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 713
diff changeset
107 [tableview reloadData]; // TODO: optimize
3905f542e150 implement listview list bindings (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 713
diff changeset
108 }
3905f542e150 implement listview list bindings (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 713
diff changeset
109 }
3905f542e150 implement listview list bindings (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 713
diff changeset
110
3905f542e150 implement listview list bindings (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 713
diff changeset
111 UiListSelection ui_tableview_getselection(UiList *list) {
3905f542e150 implement listview list bindings (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 713
diff changeset
112 NSTableView *tableview = (__bridge NSTableView*)list->obj;
3905f542e150 implement listview list bindings (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 713
diff changeset
113 return ui_tableview_selection(tableview);
3905f542e150 implement listview list bindings (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 713
diff changeset
114 }
3905f542e150 implement listview list bindings (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 713
diff changeset
115
3905f542e150 implement listview list bindings (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 713
diff changeset
116 void ui_tableview_setselection(UiList *list, UiListSelection selection) {
3905f542e150 implement listview list bindings (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 713
diff changeset
117 NSTableView *tableview = (__bridge NSTableView*)list->obj;
3905f542e150 implement listview list bindings (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 713
diff changeset
118 NSMutableIndexSet *indexSet = [NSMutableIndexSet indexSet];
3905f542e150 implement listview list bindings (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 713
diff changeset
119 for(int i=0;i<selection.count;i++) {
3905f542e150 implement listview list bindings (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 713
diff changeset
120 [indexSet addIndex:selection.rows[i]];
3905f542e150 implement listview list bindings (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 713
diff changeset
121 }
3905f542e150 implement listview list bindings (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 713
diff changeset
122 [tableview selectRowIndexes:indexSet byExtendingSelection:NO];
3905f542e150 implement listview list bindings (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 713
diff changeset
123 }

mercurial