nomen-lang 0.7.1 → 0.9.0

package/core/System/Controls/Tabs.nm

@@ -0,0 +1,500 @@
+/**
+ * A container of pages with a clickable tab bar (NSTabView)
+ *
+ * An OWNING STRUCT (STRUCT_PLAN_3 Phase R, tranche 4 — the shape menu): the
+ * single field is a platform handle, so the value is movable and its
+ * `#destroy` releases what the handle names. The constructor's `self` is
+ * the inline instance (the `.` accessor); methods keep the pointer form.
+ *
+ * The page count is fixed at construction. Each page hosts controls on its
+ * own view: `content_window(index)` hands back a Window-shaped value whose
+ * `contentView` is the page view itself (NomenTabPageView answers
+ * `-contentView` with `self` — the Scrollable trick), so control
+ * constructors and `Container.layout` target a page unchanged. NSTabView
+ * sizes page views to its content area, so the engine's y-flip against
+ * `content_height()` (the page height) is the existing math. Page switching
+ * is native; laid-out frames stay valid across switches. iOS has no
+ * NSTabView counterpart (UITabBarController is app-level chrome — see
+ * GUI_PLAN Tier 2; defer with TODO stubs).
+ **/
+pub mv struct Tabs: Control {
+	var uint64 handle = 0
+
+	// File-scope helper: the page view class. It answers `-contentView` with
+	// `self` so Window-expecting constructors add their controls to the page
+	// view (registered once, like NomenResizeDelegate).
+	pub func #init = (self, Window window, int count) {
+		```
+		#arch: c
+		#platform: macos
+		#scope: file
+		static id nomen_tab_content_view(id self, SEL cmd) {
+			(void)cmd;
+			return self;
+		}
+		static id nomen_tab_page_class(void) {
+			Class Pv = objc_getClass("NomenTabPageView");
+			if (!Pv) {
+				Pv = objc_allocateClassPair(objc_getClass("NSView"), "NomenTabPageView", 0);
+				if (Pv) {
+					class_addMethod(Pv, sel_registerName("contentView"), (IMP)nomen_tab_content_view, "@@:");
+					objc_registerClassPair(Pv);
+				}
+			}
+			return Pv;
+		}
+
+		// The shared tab-view delegate: reports every tab switch — user
+		// clicks AND programmatic selectTabViewItem — by pushing the tab
+		// view's handle into the shared selection record (the on_select
+		// feed; the ring lives in Control.nm next to the click ring).
+		static void nomen_tab_did_select(id self, SEL cmd, id tv, id item) {
+			(void)self; (void)cmd; (void)item;
+			extern void nomen_select_push(unsigned long long);
+			nomen_select_push((unsigned long long)(void *)tv);
+		}
+		static id g_tab_delegate = 0;
+		static id nomen_tab_delegate(void) {
+			Class Td = objc_getClass("NomenTabsDelegate");
+			if (!Td) {
+				Td = objc_allocateClassPair(objc_getClass("NSObject"), "NomenTabsDelegate", 0);
+				if (Td) {
+					class_addMethod(Td, sel_registerName("tabView:didSelectTabViewItem:"),
+						(IMP)nomen_tab_did_select, "v@:@@");
+					objc_registerClassPair(Td);
+				}
+			}
+			if (!g_tab_delegate) {
+				g_tab_delegate = ((id(*)(id, SEL))objc_msgSend)(Td, sel_registerName("new"));
+			}
+			return g_tab_delegate;
+		}
+		```
+		```
+		#arch: aarch64_use_c
+		#platform: macos
+		#scope: file
+		static id nomen_tab_content_view(id self, SEL cmd) {
+			(void)cmd;
+			return self;
+		}
+		static id nomen_tab_page_class(void) {
+			Class Pv = objc_getClass("NomenTabPageView");
+			if (!Pv) {
+				Pv = objc_allocateClassPair(objc_getClass("NSView"), "NomenTabPageView", 0);
+				if (Pv) {
+					class_addMethod(Pv, sel_registerName("contentView"), (IMP)nomen_tab_content_view, "@@:");
+					objc_registerClassPair(Pv);
+				}
+			}
+			return Pv;
+		}
+
+		// The shared tab-view delegate (see the c twin above).
+		static void nomen_tab_did_select(id self, SEL cmd, id tv, id item) {
+			(void)self; (void)cmd; (void)item;
+			extern void nomen_select_push(unsigned long long);
+			nomen_select_push((unsigned long long)(void *)tv);
+		}
+		static id g_tab_delegate = 0;
+		static id nomen_tab_delegate(void) {
+			Class Td = objc_getClass("NomenTabsDelegate");
+			if (!Td) {
+				Td = objc_allocateClassPair(objc_getClass("NSObject"), "NomenTabsDelegate", 0);
+				if (Td) {
+					class_addMethod(Td, sel_registerName("tabView:didSelectTabViewItem:"),
+						(IMP)nomen_tab_did_select, "v@:@@");
+					objc_registerClassPair(Td);
+				}
+			}
+			if (!g_tab_delegate) {
+				g_tab_delegate = ((id(*)(id, SEL))objc_msgSend)(Td, sel_registerName("new"));
+			}
+			return g_tab_delegate;
+		}
+		```
+		```
+		#arch: c
+		#platform: macos
+		id tv = ((id(*)(id, SEL, CGRect))objc_msgSend)(
+			((id(*)(id, SEL))objc_msgSend)((id)objc_getClass("NSTabView"), sel_registerName("alloc")),
+			sel_registerName("initWithFrame:"),
+			((CGRect(*)(double, double, double, double))CGRectMake)(0, 0, 300, 200));
+		for (long i = 0; i < (long)count; i++) {
+			id item = ((id(*)(id, SEL, id))objc_msgSend)(
+				((id(*)(id, SEL))objc_msgSend)((id)objc_getClass("NSTabViewItem"), sel_registerName("alloc")),
+				sel_registerName("initWithIdentifier:"), (id)0);
+			id page = ((id(*)(id, SEL, CGRect))objc_msgSend)(
+				((id(*)(id, SEL))objc_msgSend)(nomen_tab_page_class(), sel_registerName("alloc")),
+				sel_registerName("initWithFrame:"),
+				((CGRect(*)(double, double, double, double))CGRectMake)(0, 0, 0, 0));
+			((void(*)(id, SEL, id))objc_msgSend)(
+				item, sel_registerName("setLabel:"),
+				((id(*)(id, SEL, const char*))objc_msgSend)(
+					(id)objc_getClass("NSString"), sel_registerName("stringWithUTF8String:"), ""));
+			((void(*)(id, SEL, id))objc_msgSend)(item, sel_registerName("setView:"), page);
+			((void(*)(id, SEL))objc_msgSend)(page, sel_registerName("release"));
+			((void(*)(id, SEL, id))objc_msgSend)(tv, sel_registerName("addTabViewItem:"), item);
+			((void(*)(id, SEL))objc_msgSend)(item, sel_registerName("release"));
+		}
+		id contentView = ((id(*)(id, SEL))objc_msgSend)(
+			(id)window->handle, sel_registerName("contentView"));
+		((void(*)(id, SEL, id))objc_msgSend)(
+			contentView, sel_registerName("addSubview:"), tv);
+		((void(*)(id, SEL, id))objc_msgSend)(
+			tv, sel_registerName("setDelegate:"), nomen_tab_delegate());
+		self.handle = (uint64_t)tv;
+		```
+		```
+		#arch: aarch64_use_c
+		#platform: macos
+		id tv = ((id(*)(id, SEL, CGRect))objc_msgSend)(
+			((id(*)(id, SEL))objc_msgSend)((id)objc_getClass("NSTabView"), sel_registerName("alloc")),
+			sel_registerName("initWithFrame:"),
+			((CGRect(*)(double, double, double, double))CGRectMake)(0, 0, 300, 200));
+		for (long i = 0; i < (long)count; i++) {
+			id item = ((id(*)(id, SEL, id))objc_msgSend)(
+				((id(*)(id, SEL))objc_msgSend)((id)objc_getClass("NSTabViewItem"), sel_registerName("alloc")),
+				sel_registerName("initWithIdentifier:"), (id)0);
+			id page = ((id(*)(id, SEL, CGRect))objc_msgSend)(
+				((id(*)(id, SEL))objc_msgSend)(nomen_tab_page_class(), sel_registerName("alloc")),
+				sel_registerName("initWithFrame:"),
+				((CGRect(*)(double, double, double, double))CGRectMake)(0, 0, 0, 0));
+			((void(*)(id, SEL, id))objc_msgSend)(
+				item, sel_registerName("setLabel:"),
+				((id(*)(id, SEL, const char*))objc_msgSend)(
+					(id)objc_getClass("NSString"), sel_registerName("stringWithUTF8String:"), ""));
+			((void(*)(id, SEL, id))objc_msgSend)(item, sel_registerName("setView:"), page);
+			((void(*)(id, SEL))objc_msgSend)(page, sel_registerName("release"));
+			((void(*)(id, SEL, id))objc_msgSend)(tv, sel_registerName("addTabViewItem:"), item);
+			((void(*)(id, SEL))objc_msgSend)(item, sel_registerName("release"));
+		}
+		id contentView = ((id(*)(id, SEL))objc_msgSend)(
+			(id)window->handle, sel_registerName("contentView"));
+		((void(*)(id, SEL, id))objc_msgSend)(
+			contentView, sel_registerName("addSubview:"), tv);
+		((void(*)(id, SEL, id))objc_msgSend)(
+			tv, sel_registerName("setDelegate:"), nomen_tab_delegate());
+		self->handle = (uint64_t)tv;
+		```
+		```
+		#arch: c
+		#platform: ios
+		/* TODO: iOS — no NSTabView counterpart (UITabBarController is
+		 * app-level chrome, not an embeddable control; see GUI_PLAN Tier 2;
+		 * defer). */
+		```
+		```
+		#arch: aarch64_use_c
+		#platform: ios
+		/* TODO: iOS (see #init) */
+		```
+	}
+
+	// A Window-shaped handle to page `index`'s view: pass it to control
+	// constructors and `Container.layout` to host controls on that page. The
+	// value retains the page view (+1), so its scope-exit `#destroy` releases
+	// its OWN reference and the Tabs' stays balanced — keep the Tabs alive at
+	// least as long as the returned value.
+	pub func content_window = (self, int index, out Window) {
+		```
+		#arch: c
+		#platform: macos
+		id item = ((id(*)(id, SEL, long))objc_msgSend)(
+			(id)self->handle, sel_registerName("tabViewItemAtIndex:"), (long)index);
+		id page = ((id(*)(id, SEL))objc_msgSend)(item, sel_registerName("view"));
+		extern void *_Window_traits[];
+		struct Window w;
+		w._vt = (void *)&_Window_traits;
+		w.handle = (uint64_t)page;
+		((id(*)(id, SEL))objc_msgSend)(page, sel_registerName("retain"));
+		return w;
+		```
+		```
+		#arch: aarch64_use_c
+		#platform: macos
+		id item = ((id(*)(id, SEL, long))objc_msgSend)(
+			(id)self->handle, sel_registerName("tabViewItemAtIndex:"), (long)index);
+		id page = ((id(*)(id, SEL))objc_msgSend)(item, sel_registerName("view"));
+		extern void *Window_traits;
+		struct Window w;
+		w._vt = (void *)&Window_traits;
+		w.handle = (uint64_t)page;
+		((id(*)(id, SEL))objc_msgSend)(page, sel_registerName("retain"));
+		return w;
+		```
+		```
+		#arch: c
+		#platform: ios
+		/* TODO: iOS (see #init) */
+		{
+			extern void *_Window_traits[];
+			struct Window w;
+			w._vt = (void *)&_Window_traits;
+			w.handle = 0;
+			return w;
+		}
+		```
+		```
+		#arch: aarch64_use_c
+		#platform: ios
+		/* TODO: iOS (see #init) */
+		{
+			extern void *Window_traits;
+			struct Window w;
+			w._vt = (void *)&Window_traits;
+			w.handle = 0;
+			return w;
+		}
+		```
+	}
+
+	pub func set_label = (self, int index, string title) {
+		```
+		#arch: c
+		#platform: macos
+		id item = ((id(*)(id, SEL, long))objc_msgSend)(
+			(id)self->handle, sel_registerName("tabViewItemAtIndex:"), (long)index);
+		((void(*)(id, SEL, id))objc_msgSend)(
+			item, sel_registerName("setLabel:"),
+			((id(*)(id, SEL, const char*))objc_msgSend)(
+				(id)objc_getClass("NSString"), sel_registerName("stringWithUTF8String:"), title.ptr));
+		```
+		```
+		#arch: aarch64_use_c
+		#platform: macos
+		id item = ((id(*)(id, SEL, long))objc_msgSend)(
+			(id)self->handle, sel_registerName("tabViewItemAtIndex:"), (long)index);
+		((void(*)(id, SEL, id))objc_msgSend)(
+			item, sel_registerName("setLabel:"),
+			((id(*)(id, SEL, const char*))objc_msgSend)(
+				(id)objc_getClass("NSString"), sel_registerName("stringWithUTF8String:"), title.ptr));
+		```
+		```
+		#arch: c
+		#platform: ios
+		/* TODO: iOS (see #init) */
+		```
+		```
+		#arch: aarch64_use_c
+		#platform: ios
+		/* TODO: iOS (see #init) */
+		```
+	}
+
+	pub func set_selected = (self, int index) {
+		```
+		#arch: c
+		#platform: macos
+		((void(*)(id, SEL, long))objc_msgSend)(
+			(id)self->handle, sel_registerName("selectTabViewItemAtIndex:"), (long)index);
+		```
+		```
+		#arch: aarch64_use_c
+		#platform: macos
+		((void(*)(id, SEL, long))objc_msgSend)(
+			(id)self->handle, sel_registerName("selectTabViewItemAtIndex:"), (long)index);
+		```
+		```
+		#arch: c
+		#platform: ios
+		/* TODO: iOS (see #init) */
+		```
+		```
+		#arch: aarch64_use_c
+		#platform: ios
+		/* TODO: iOS (see #init) */
+		```
+	}
+
+	pub func selected_index = (self, out int) {
+		```
+		#arch: c
+		#platform: macos
+		id item = ((id(*)(id, SEL))objc_msgSend)(
+			(id)self->handle, sel_registerName("selectedTabViewItem"));
+		if (!item) return 0;
+		return (int)((long(*)(id, SEL, id))objc_msgSend)(
+			(id)self->handle, sel_registerName("indexOfTabViewItem:"), item);
+		```
+		```
+		#arch: aarch64_use_c
+		#platform: macos
+		id item = ((id(*)(id, SEL))objc_msgSend)(
+			(id)self->handle, sel_registerName("selectedTabViewItem"));
+		if (!item) return 0;
+		return (int)((long(*)(id, SEL, id))objc_msgSend)(
+			(id)self->handle, sel_registerName("indexOfTabViewItem:"), item);
+		```
+		```
+		#arch: c
+		#platform: ios
+		/* TODO: iOS (see #init) */
+		return 0;
+		```
+		```
+		#arch: aarch64_use_c
+		#platform: ios
+		/* TODO: iOS (see #init) */
+		return 0;
+		```
+	}
+
+	// The on_select desugar's drain (docs/HANDLERS.md): true when the
+	// selected tab changed since the last drain — user clicks AND
+	// programmatic set_selected (the delegate observes both; a
+	// pre-selection in #init therefore fires on the first frame). The
+	// handler body reads the page through selected_index().
+	pub func take_select = (self, out bool) {
+		```
+		#arch: c
+		#platform: macos
+		extern long nomen_select_take(unsigned long long);
+		return (long)nomen_select_take((unsigned long long)self->handle);
+		```
+		```
+		#arch: aarch64_use_c
+		#platform: macos
+		extern long nomen_select_take(unsigned long long);
+		return (long)nomen_select_take((unsigned long long)self->handle);
+		```
+		```
+		#arch: c
+		#platform: ios
+		/* TODO: iOS (see #init) */
+		return false;
+		```
+		```
+		#arch: aarch64_use_c
+		#platform: ios
+		/* TODO: iOS (see #init) */
+		return false;
+		```
+	}
+
+	pub func count = (self, out int) {
+		```
+		#arch: c
+		#platform: macos
+		return (int)((long(*)(id, SEL))objc_msgSend)(
+			(id)self->handle, sel_registerName("numberOfTabViewItems"));
+		```
+		```
+		#arch: aarch64_use_c
+		#platform: macos
+		return (int)((long(*)(id, SEL))objc_msgSend)(
+			(id)self->handle, sel_registerName("numberOfTabViewItems"));
+		```
+		```
+		#arch: c
+		#platform: ios
+		/* TODO: iOS (see #init) */
+		return 0;
+		```
+		```
+		#arch: aarch64_use_c
+		#platform: ios
+		/* TODO: iOS (see #init) */
+		return 0;
+		```
+	}
+
+	pub func set_hidden = (self, bool hidden) {
+		```
+		#arch: c
+		#platform: macos
+		((void(*)(id, SEL, BOOL))objc_msgSend)(
+			(id)self->handle, sel_registerName("setHidden:"), hidden ? 1 : 0);
+		```
+		```
+		#arch: aarch64_use_c
+		#platform: macos
+		((void(*)(id, SEL, BOOL))objc_msgSend)(
+			(id)self->handle, sel_registerName("setHidden:"), hidden ? 1 : 0);
+		```
+	}
+
+	// ── Control trait conformance ──
+	pub func set_frame = (ref self, int x, int y, int width, int height) {
+		```
+		#arch: c
+		#platform: macos
+		((void(*)(id, SEL, CGRect))objc_msgSend)(
+			(id)self->handle, sel_registerName("setFrame:"),
+			((CGRect(*)(double, double, double, double))CGRectMake)((double)x, (double)y, (double)width, (double)height));
+		```
+		```
+		#arch: aarch64_use_c
+		#platform: macos
+		((void(*)(id, SEL, CGRect))objc_msgSend)(
+			(id)self->handle, sel_registerName("setFrame:"),
+			((CGRect(*)(double, double, double, double))CGRectMake)((double)x, (double)y, (double)width, (double)height));
+		```
+		```
+		#arch: c
+		#platform: ios
+		/* TODO: iOS (see #init) */
+		```
+		```
+		#arch: aarch64_use_c
+		#platform: ios
+		/* TODO: iOS (see #init) */
+		```
+	}
+
+	pub func intrinsic_size = (self, out Size) {
+		var [w, h] = native_intrinsic(self.handle)
+		var s = Size()
+		s.width = w
+		s.height = h
+		return s
+	}
+
+	pub func measure = (self, BoxConstraints constraints, out Size) {
+		var Size s = self.intrinsic_size()
+		if s.width > constraints.max_width {
+			s.width = constraints.max_width
+		}
+		if s.width < constraints.min_width {
+			s.width = constraints.min_width
+		}
+		if s.height > constraints.max_height {
+			s.height = constraints.max_height
+		}
+		if s.height < constraints.min_height {
+			s.height = constraints.min_height
+		}
+		return s
+	}
+
+	func #destroy = () {
+		```
+		#arch: c
+		#platform: macos
+		if (self->handle) {
+			((void(*)(id, SEL))objc_msgSend)((id)self->handle, sel_registerName("removeFromSuperview"));
+			((void(*)(id, SEL))objc_msgSend)((id)self->handle, sel_registerName("release"));
+			self->handle = 0;
+		}
+		```
+		```
+		#arch: aarch64_use_c
+		#platform: macos
+		if (self->handle) {
+			((void(*)(id, SEL))objc_msgSend)((id)self->handle, sel_registerName("removeFromSuperview"));
+			((void(*)(id, SEL))objc_msgSend)((id)self->handle, sel_registerName("release"));
+			self->handle = 0;
+		}
+		```
+		```
+		#arch: c
+		#platform: ios
+		/* TODO: iOS (see #init) */
+		```
+		```
+		#arch: aarch64_use_c
+		#platform: ios
+		/* TODO: iOS (see #init) */
+		```
+	}
+}

package/core/System/Controls/Text.nm

@@ -2,13 +2,23 @@
  * A read-only text label control
  *
  * An OWNING STRUCT (STRUCT_PLAN_3 Phase R, tranche 4 — the shape menu): the
- * AppKit handle plus the cached label text mv with the value, and the
- * `#destroy` releases what the handle names. The constructor's `self` is
- * the inline instance (the `.` accessor); methods keep the pointer form.
+ * single field is the AppKit handle, and the `#destroy` releases what it
+ * names. The constructor's `self` is the inline instance (the `.` accessor);
+ * methods keep the pointer form.
+ *
+ * The label carries NO Nomen-side text cache — sizing reads the native
+ * control (`native_intrinsic`), and `set_text` is a bare receiver that only
+ * mutates the native view. That keeps the struct write-once after
+ * construction, which is what lets the `#handle` twin mirror it (see
+ * GUI.md, "Click events" and the `#handle` note).
  **/
-pub mv struct Text : Control {
+pub mv struct Text: Control {
 	var uint64 handle = 0
-	var text = ""
+
+	// The `#handle` hook synthesizes `NameHandle` — a copyable, non-owning
+	// twin (same public bare-self methods, no destroy) so closures can
+	// capture this control without moving it. See GUI.md, "Handles".
+	#handle = () { }
 
 	pub func #init = (self, Window window) {
 		```
@@ -97,8 +107,7 @@ pub mv struct Text : Control {
 		```
 	}
 
-	pub func set_text = (ref self, string text) {
-		self.text = text.copy()
+	pub func set_text = (self, string text) {
 		```
 		#arch: c
 		#platform: macos
@@ -133,22 +142,110 @@ pub mv struct Text : Control {
 		```
 	}
 
+	// The label's current text, read from the native control (the label
+	// carries no Nomen-side text cache).
+	pub func get_text = (self, out string) {
+		```
+		#arch: c
+		#platform: macos
+		id str = ((id(*)(id, SEL))objc_msgSend)(
+			(id)self->handle, sel_registerName("stringValue"));
+		const char *cstr = ((const char*(*)(id, SEL))objc_msgSend)(
+			str, sel_registerName("UTF8String"));
+		return (nomen_string){ strdup(cstr), (long)strlen(cstr) };
+		```
+		```
+		#arch: aarch64_use_c
+		#platform: macos
+		id str = ((id(*)(id, SEL))objc_msgSend)(
+			(id)self->handle, sel_registerName("stringValue"));
+		const char *cstr = ((const char*(*)(id, SEL))objc_msgSend)(
+			str, sel_registerName("UTF8String"));
+		return (nomen_string){ strdup(cstr), (long)strlen(cstr) };
+		```
+		```
+		#arch: c
+		#platform: ios
+		id str = ((id(*)(id, SEL))objc_msgSend)(
+			(id)self->handle, sel_registerName("text"));
+		const char *cstr = ((const char*(*)(id, SEL))objc_msgSend)(
+			str, sel_registerName("UTF8String"));
+		return (nomen_string){ strdup(cstr), (long)strlen(cstr) };
+		```
+		```
+		#arch: aarch64_use_c
+		#platform: ios
+		id str = ((id(*)(id, SEL))objc_msgSend)(
+			(id)self->handle, sel_registerName("text"));
+		const char *cstr = ((const char*(*)(id, SEL))objc_msgSend)(
+			str, sel_registerName("UTF8String"));
+		return (nomen_string){ strdup(cstr), (long)strlen(cstr) };
+		```
+	}
+
+	// Switch the label between the regular and bold system font. Bold is for
+	// section headings, so they read as headers rather than sibling labels.
+	pub func set_bold = (self, bool bold) {
+		```
+		#arch: c
+		#platform: macos
+		CGFloat size = ((CGFloat(*)(id, SEL))objc_msgSend)(
+			(id)objc_getClass("NSFont"), sel_registerName("systemFontSize"));
+		id font = ((id(*)(id, SEL, CGFloat))objc_msgSend)(
+			(id)objc_getClass("NSFont"),
+			sel_registerName(bold ? "boldSystemFontOfSize:" : "systemFontOfSize:"), size);
+		((void(*)(id, SEL, id))objc_msgSend)((id)self->handle, sel_registerName("setFont:"), font);
+		```
+		```
+		#arch: aarch64_use_c
+		#platform: macos
+		CGFloat size = ((CGFloat(*)(id, SEL))objc_msgSend)(
+			(id)objc_getClass("NSFont"), sel_registerName("systemFontSize"));
+		id font = ((id(*)(id, SEL, CGFloat))objc_msgSend)(
+			(id)objc_getClass("NSFont"),
+			sel_registerName(bold ? "boldSystemFontOfSize:" : "systemFontOfSize:"), size);
+		((void(*)(id, SEL, id))objc_msgSend)((id)self->handle, sel_registerName("setFont:"), font);
+		```
+		```
+		#arch: c
+		#platform: ios
+		CGFloat size = ((CGFloat(*)(id, SEL))objc_msgSend)(
+			(id)objc_getClass("UIFont"), sel_registerName("labelFontSize"));
+		id font = ((id(*)(id, SEL, CGFloat))objc_msgSend)(
+			(id)objc_getClass("UIFont"),
+			sel_registerName(bold ? "boldSystemFontOfSize:" : "systemFontOfSize:"), size);
+		((void(*)(id, SEL, id))objc_msgSend)((id)self->handle, sel_registerName("setFont:"), font);
+		```
+		```
+		#arch: aarch64_use_c
+		#platform: ios
+		CGFloat size = ((CGFloat(*)(id, SEL))objc_msgSend)(
+			(id)objc_getClass("UIFont"), sel_registerName("labelFontSize"));
+		id font = ((id(*)(id, SEL, CGFloat))objc_msgSend)(
+			(id)objc_getClass("UIFont"),
+			sel_registerName(bold ? "boldSystemFontOfSize:" : "systemFontOfSize:"), size);
+		((void(*)(id, SEL, id))objc_msgSend)((id)self->handle, sel_registerName("setFont:"), font);
+		```
+	}
+
 	// ── Control trait conformance ──
 	// A text control sizes to its content. v1 assumes an 8px monospace font, so a
 	// line is `text.length × 8` wide and 8px tall (see GUI.md "Native control
 	// refactor"). The default frame is 0,0,0,0; layout drives the real rectangle.
 
 	pub func measure = (self, BoxConstraints constraints, out Size) {
+		var [w, h] = native_intrinsic(self.handle)
 		var s = Size()
-		s.width = self.text.length * 8
-		s.height = 8
+		s.width = w
+		s.height = h
 		return s
 	}
 
 	pub func intrinsic_size = (self, out Size) {
+		var [w, h] = native_intrinsic(self.handle)
 		var s = Size()
-		s.width = self.text.length * 8
-		s.height = 8
+		s.width = w
+		s.height = h
 		return s
 	}