ui/cocoa/container.m

Sun, 28 Jan 2024 11:42:42 +0100

author
Olaf Wintermann <olaf.wintermann@gmail.com>
date
Sun, 28 Jan 2024 11:42:42 +0100
branch
newapi
changeset 232
e2b33055113f
parent 51
42506e19eb6b
child 404
384f6d1f5784
permissions
-rw-r--r--

fix list binding not copied correctly when attaching a document

7
431dde3c5fbe added Cocoa implementation
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
1 /*
431dde3c5fbe added Cocoa implementation
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
2 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS HEADER.
431dde3c5fbe added Cocoa implementation
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
3 *
431dde3c5fbe added Cocoa implementation
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
4 * Copyright 2014 Olaf Wintermann. All rights reserved.
431dde3c5fbe added Cocoa implementation
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
5 *
431dde3c5fbe added Cocoa implementation
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
6 * Redistribution and use in source and binary forms, with or without
431dde3c5fbe added Cocoa implementation
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
7 * modification, are permitted provided that the following conditions are met:
431dde3c5fbe added Cocoa implementation
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
8 *
431dde3c5fbe added Cocoa implementation
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
9 * 1. Redistributions of source code must retain the above copyright
431dde3c5fbe added Cocoa implementation
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
10 * notice, this list of conditions and the following disclaimer.
431dde3c5fbe added Cocoa implementation
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
11 *
431dde3c5fbe added Cocoa implementation
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
12 * 2. Redistributions in binary form must reproduce the above copyright
431dde3c5fbe added Cocoa implementation
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
13 * notice, this list of conditions and the following disclaimer in the
431dde3c5fbe added Cocoa implementation
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
14 * documentation and/or other materials provided with the distribution.
431dde3c5fbe added Cocoa implementation
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
15 *
431dde3c5fbe added Cocoa implementation
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
16 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
431dde3c5fbe added Cocoa implementation
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
17 * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
431dde3c5fbe added Cocoa implementation
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
18 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
431dde3c5fbe added Cocoa implementation
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
19 * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
431dde3c5fbe added Cocoa implementation
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
20 * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
431dde3c5fbe added Cocoa implementation
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
21 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
431dde3c5fbe added Cocoa implementation
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
22 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
431dde3c5fbe added Cocoa implementation
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
23 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
431dde3c5fbe added Cocoa implementation
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
24 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
431dde3c5fbe added Cocoa implementation
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
431dde3c5fbe added Cocoa implementation
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
26 * POSSIBILITY OF SUCH DAMAGE.
431dde3c5fbe added Cocoa implementation
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
27 */
431dde3c5fbe added Cocoa implementation
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
28
431dde3c5fbe added Cocoa implementation
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
29 #import <stdio.h>
431dde3c5fbe added Cocoa implementation
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
30 #import <stdlib.h>
431dde3c5fbe added Cocoa implementation
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
31
431dde3c5fbe added Cocoa implementation
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
32 #import "container.h"
431dde3c5fbe added Cocoa implementation
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
33
431dde3c5fbe added Cocoa implementation
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
34
431dde3c5fbe added Cocoa implementation
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
35 UiContainer* ui_window_container(UiObject *obj, NSWindow *window) {
431dde3c5fbe added Cocoa implementation
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
36 UiContainer *ct = ucx_mempool_malloc(
431dde3c5fbe added Cocoa implementation
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
37 obj->ctx->mempool,
431dde3c5fbe added Cocoa implementation
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
38 sizeof(UiContainer));
51
42506e19eb6b added split view (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 13
diff changeset
39 ct->widget = [window contentView];
42506e19eb6b added split view (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 13
diff changeset
40 ct->add = ui_container_add;
42506e19eb6b added split view (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 13
diff changeset
41 ct->getframe = ui_container_getframe;
7
431dde3c5fbe added Cocoa implementation
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
42 return ct;
431dde3c5fbe added Cocoa implementation
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
43 }
431dde3c5fbe added Cocoa implementation
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
44
51
42506e19eb6b added split view (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 13
diff changeset
45 UIWIDGET ui_sidebar(UiObject *obj) {
42506e19eb6b added split view (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 13
diff changeset
46 UiContainer *ct = uic_get_current_container(obj);
42506e19eb6b added split view (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 13
diff changeset
47 NSRect frame = ct->getframe(ct);
42506e19eb6b added split view (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 13
diff changeset
48
42506e19eb6b added split view (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 13
diff changeset
49 // create and add views
42506e19eb6b added split view (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 13
diff changeset
50 NSSplitView *splitview = [[NSSplitView alloc] initWithFrame:frame];
42506e19eb6b added split view (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 13
diff changeset
51 [splitview setVertical:YES];
42506e19eb6b added split view (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 13
diff changeset
52 [splitview setDividerStyle:NSSplitViewDividerStyleThin];
42506e19eb6b added split view (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 13
diff changeset
53 ct->add(ct, splitview);
42506e19eb6b added split view (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 13
diff changeset
54
42506e19eb6b added split view (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 13
diff changeset
55 NSRect lframe;
42506e19eb6b added split view (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 13
diff changeset
56 lframe.origin.x = 0;
42506e19eb6b added split view (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 13
diff changeset
57 lframe.origin.y = 0;
42506e19eb6b added split view (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 13
diff changeset
58 lframe.size.width = 200;
42506e19eb6b added split view (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 13
diff changeset
59 lframe.size.height = frame.size.height;
42506e19eb6b added split view (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 13
diff changeset
60
42506e19eb6b added split view (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 13
diff changeset
61 NSRect rframe;
42506e19eb6b added split view (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 13
diff changeset
62 rframe.origin.x = 0;
42506e19eb6b added split view (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 13
diff changeset
63 rframe.origin.y = 0;
42506e19eb6b added split view (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 13
diff changeset
64 rframe.size.width = frame.size.width - 201;
42506e19eb6b added split view (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 13
diff changeset
65 rframe.size.height = frame.size.height;
42506e19eb6b added split view (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 13
diff changeset
66
42506e19eb6b added split view (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 13
diff changeset
67 NSView *sidebar = [[NSView alloc]initWithFrame:lframe];
42506e19eb6b added split view (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 13
diff changeset
68 NSView *contentarea = [[NSView alloc]initWithFrame:rframe];
42506e19eb6b added split view (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 13
diff changeset
69
42506e19eb6b added split view (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 13
diff changeset
70 [splitview addSubview:sidebar];
42506e19eb6b added split view (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 13
diff changeset
71 [splitview addSubview:contentarea];
42506e19eb6b added split view (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 13
diff changeset
72
42506e19eb6b added split view (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 13
diff changeset
73 // add ui objects for the sidebar and contentarea
42506e19eb6b added split view (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 13
diff changeset
74 // the sidebar is added last, so that new views are added first to it
42506e19eb6b added split view (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 13
diff changeset
75 UiObject *left = uic_object_new(obj, sidebar);
42506e19eb6b added split view (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 13
diff changeset
76 UiContainer *ct1 = ucx_mempool_malloc(
42506e19eb6b added split view (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 13
diff changeset
77 obj->ctx->mempool,
42506e19eb6b added split view (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 13
diff changeset
78 sizeof(UiContainer));
42506e19eb6b added split view (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 13
diff changeset
79 ct1->widget = sidebar;
42506e19eb6b added split view (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 13
diff changeset
80 ct1->add = ui_container_add;
42506e19eb6b added split view (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 13
diff changeset
81 ct1->getframe = ui_container_getframe;
42506e19eb6b added split view (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 13
diff changeset
82 left->container = ct1;
42506e19eb6b added split view (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 13
diff changeset
83
42506e19eb6b added split view (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 13
diff changeset
84 UiObject *right = uic_object_new(obj, sidebar);
42506e19eb6b added split view (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 13
diff changeset
85 UiContainer *ct2 = ucx_mempool_malloc(
42506e19eb6b added split view (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 13
diff changeset
86 obj->ctx->mempool,
42506e19eb6b added split view (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 13
diff changeset
87 sizeof(UiContainer));
42506e19eb6b added split view (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 13
diff changeset
88 ct2->widget = contentarea;
42506e19eb6b added split view (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 13
diff changeset
89 ct2->add = ui_container_add;
42506e19eb6b added split view (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 13
diff changeset
90 ct2->getframe = ui_container_getframe;
42506e19eb6b added split view (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 13
diff changeset
91 right->container = ct2;
42506e19eb6b added split view (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 13
diff changeset
92
42506e19eb6b added split view (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 13
diff changeset
93 uic_obj_add(obj, right);
42506e19eb6b added split view (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 13
diff changeset
94 uic_obj_add(obj, left);
42506e19eb6b added split view (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 13
diff changeset
95
42506e19eb6b added split view (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 13
diff changeset
96 return splitview;
7
431dde3c5fbe added Cocoa implementation
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
97 }
431dde3c5fbe added Cocoa implementation
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
98
51
42506e19eb6b added split view (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 13
diff changeset
99
42506e19eb6b added split view (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 13
diff changeset
100 NSRect ui_container_getframe(UiContainer *ct) {
13
2dbc56c2323b added some text functions for the Cocoa implementation
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 7
diff changeset
101 return [ct->widget frame];
7
431dde3c5fbe added Cocoa implementation
Olaf Wintermann <olaf.wintermann@gmail.com>
parents:
diff changeset
102 }
51
42506e19eb6b added split view (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 13
diff changeset
103
42506e19eb6b added split view (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 13
diff changeset
104 void ui_container_add(UiContainer *ct, NSView *view) {
42506e19eb6b added split view (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 13
diff changeset
105 [ct->widget addSubview: view];
42506e19eb6b added split view (Cocoa)
Olaf Wintermann <olaf.wintermann@gmail.com>
parents: 13
diff changeset
106 }

mercurial