nomen-lang 0.7.0 → 0.8.0

package/core/System/Controls/Toolbar.nm

@@ -0,0 +1,501 @@
+/**
+ * A window toolbar with labeled push-button items (NSToolbar)
+ *
+ * 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.
+ *
+ * NSToolbar is delegate-driven: the shared delegate answers the identifier
+ * questions from the fixed item count and builds each item as a labeled
+ * push button (NSButton view) targeted at the shared action recorder — so
+ * `clicked_item` polls the last click edge-triggered, like Menu, and
+ * `on_item_select` is the registered form. Attaching
+ * a toolbar shrinks the window's contentView (AppKit owns the layout rect),
+ * so create the Toolbar BEFORE the first grid layout. One Toolbar per
+ * process (the shared delegate + tag storage — the same trade List and Menu
+ * already make). macOS-only (NSToolbar has no iOS counterpart; see GUI_PLAN
+ * Tier 2 — the iOS blocks are TODO stubs).
+ **/
+pub mv struct Toolbar : Control {
+	var uint64 handle = 0
+
+	// File-scope helper: the shared delegate + action recorder (shared — one
+	// Toolbar per process).
+	pub func #init = (self, Window window, int count) {
+		```
+		#arch: c
+		#platform: macos
+		#scope: file
+		static long g_toolbar_last_tag = -1;
+		static long g_toolbar_count = 0;
+		static id g_toolbar_delegate = 0;
+		// Per-item custom labels ("": fall back to "Item <index>"). Indexed
+		// by item tag; the delegate's item builder reads it lazily.
+		static char g_toolbar_labels[32][64];
+
+		static void nomen_toolbar_action(id self, SEL cmd, id sender) {
+			(void)self; (void)cmd;
+			g_toolbar_last_tag = ((long(*)(id, SEL))objc_msgSend)(sender, sel_registerName("tag"));
+		}
+
+		// The identifier list is "0"…"count-1" — the index doubles as the tag.
+		static id nomen_toolbar_identifiers(void) {
+			id array = ((id(*)(id, SEL))objc_msgSend)((id)objc_getClass("NSMutableArray"), sel_registerName("array"));
+			for (long i = 0; i < g_toolbar_count; i++) {
+				char buf[16];
+				snprintf(buf, sizeof(buf), "%ld", i);
+				((void(*)(id, SEL, id))objc_msgSend)(array, sel_registerName("addObject:"),
+					((id(*)(id, SEL, const char*))objc_msgSend)(
+						(id)objc_getClass("NSString"), sel_registerName("stringWithUTF8String:"), buf));
+			}
+			return array;
+		}
+
+		static id nomen_toolbar_item(id self, SEL cmd, id tv, id ident, long insert) {
+			(void)self; (void)cmd; (void)tv; (void)insert;
+			long idx = ((long(*)(id, SEL))objc_msgSend)(ident, sel_registerName("intValue"));
+			id item = ((id(*)(id, SEL, id))objc_msgSend)(
+				((id(*)(id, SEL))objc_msgSend)((id)objc_getClass("NSToolbarItem"), sel_registerName("alloc")),
+				sel_registerName("initWithItemIdentifier:"), ident);
+			char fallback[32];
+			snprintf(fallback, sizeof(fallback), "Item %ld", idx);
+			const char *text =
+				(idx >= 0 && idx < 32 && g_toolbar_labels[idx][0]) ? g_toolbar_labels[idx] : fallback;
+			id title = ((id(*)(id, SEL, const char*))objc_msgSend)(
+				(id)objc_getClass("NSString"), sel_registerName("stringWithUTF8String:"), text);
+			((void(*)(id, SEL, id))objc_msgSend)(item, sel_registerName("setLabel:"), title);
+			((void(*)(id, SEL, long))objc_msgSend)(item, sel_registerName("setTag:"), idx);
+			id btn = ((id(*)(id, SEL, CGRect))objc_msgSend)(
+				((id(*)(id, SEL))objc_msgSend)((id)objc_getClass("NSButton"), sel_registerName("alloc")),
+				sel_registerName("initWithFrame:"),
+				((CGRect(*)(double, double, double, double))CGRectMake)(0, 0, 64, 28));
+			((void(*)(id, SEL, unsigned long))objc_msgSend)(btn, sel_registerName("setButtonType:"), 1);
+			((void(*)(id, SEL, id))objc_msgSend)(btn, sel_registerName("setTitle:"), title);
+			((void(*)(id, SEL, SEL))objc_msgSend)(
+				btn, sel_registerName("setAction:"), sel_registerName("nomenToolbarAction:"));
+			((void(*)(id, SEL, id))objc_msgSend)(btn, sel_registerName("setTarget:"), g_toolbar_delegate);
+			((void(*)(id, SEL, id))objc_msgSend)(item, sel_registerName("setView:"), btn);
+			((void(*)(id, SEL))objc_msgSend)(btn, sel_registerName("release"));
+			return item;
+		}
+
+		// Store an item's custom label and apply it to the live item (items
+		// are built lazily by the delegate, so the table the builder reads is
+		// the source of truth).
+		void nomen_toolbar_set_label(id toolbar, int idx, const char *text) {
+			if (idx < 0 || idx >= 32) return;
+			snprintf(g_toolbar_labels[idx], sizeof(g_toolbar_labels[idx]), "%s", text);
+			if (!toolbar) return;
+			id items = ((id(*)(id, SEL))objc_msgSend)(toolbar, sel_registerName("items"));
+			long n = ((long(*)(id, SEL))objc_msgSend)(items, sel_registerName("count"));
+			for (long i = 0; i < n; i++) {
+				id item = ((id(*)(id, SEL, long))objc_msgSend)(items, sel_registerName("objectAtIndex:"), i);
+				if (((long(*)(id, SEL))objc_msgSend)(item, sel_registerName("tag")) != idx) continue;
+				id title = ((id(*)(id, SEL, const char*))objc_msgSend)(
+					(id)objc_getClass("NSString"), sel_registerName("stringWithUTF8String:"), text);
+				((void(*)(id, SEL, id))objc_msgSend)(item, sel_registerName("setLabel:"), title);
+				id view = ((id(*)(id, SEL))objc_msgSend)(item, sel_registerName("view"));
+				if (view) {
+					((void(*)(id, SEL, id))objc_msgSend)(view, sel_registerName("setTitle:"), title);
+				}
+			}
+		}
+
+		static id nomen_toolbar_delegate_class(void) {
+			Class Td = objc_getClass("NomenToolbarDelegate");
+			if (!Td) {
+				Td = objc_allocateClassPair(objc_getClass("NSObject"), "NomenToolbarDelegate", 0);
+				if (Td) {
+					class_addMethod(Td, sel_registerName("toolbarAllowedItemIdentifiers:"),
+						(IMP)nomen_toolbar_identifiers, "@@:@");
+					class_addMethod(Td, sel_registerName("toolbarDefaultItemIdentifiers:"),
+						(IMP)nomen_toolbar_identifiers, "@@:@");
+					class_addMethod(Td, sel_registerName("toolbar:itemForItemIdentifier:willBeInsertedIntoToolbar:"),
+						(IMP)nomen_toolbar_item, "@@:@@@c");
+					objc_registerClassPair(Td);
+				}
+			}
+			if (!g_toolbar_delegate) {
+				g_toolbar_delegate = ((id(*)(id, SEL))objc_msgSend)(Td, sel_registerName("new"));
+			}
+			return g_toolbar_delegate;
+		}
+
+		// Edge-triggered read: the poll consumes the tag (resets to -1).
+		long nomen_toolbar_last_tag(void) {
+			long tag = g_toolbar_last_tag;
+			g_toolbar_last_tag = -1;
+			return tag;
+		}
+
+		// The on_item_select drain's consume-and-stash (see Menu.nm): the
+		// drain consumes the selected tag like the poll and stashes it for
+		// the handler body to read through Toolbar.selected_item.
+		long g_toolbar_selected_tag = -1;
+		unsigned char nomen_toolbar_take_select(void) {
+			long tag = nomen_toolbar_last_tag();
+			if (tag < 0) return 0;
+			g_toolbar_selected_tag = tag;
+			return 1;
+		}
+		long nomen_toolbar_selected_tag(void) {
+			return g_toolbar_selected_tag;
+		}
+		```
+		```
+		#arch: aarch64_use_c
+		#platform: macos
+		#scope: file
+		static long g_toolbar_last_tag = -1;
+		static long g_toolbar_count = 0;
+		static id g_toolbar_delegate = 0;
+		// Per-item custom labels ("": fall back to "Item <index>"). Indexed
+		// by item tag; the delegate's item builder reads it lazily.
+		static char g_toolbar_labels[32][64];
+
+		static void nomen_toolbar_action(id self, SEL cmd, id sender) {
+			(void)self; (void)cmd;
+			g_toolbar_last_tag = ((long(*)(id, SEL))objc_msgSend)(sender, sel_registerName("tag"));
+		}
+
+		// The identifier list is "0"…"count-1" — the index doubles as the tag.
+		static id nomen_toolbar_identifiers(void) {
+			id array = ((id(*)(id, SEL))objc_msgSend)((id)objc_getClass("NSMutableArray"), sel_registerName("array"));
+			for (long i = 0; i < g_toolbar_count; i++) {
+				char buf[16];
+				snprintf(buf, sizeof(buf), "%ld", i);
+				((void(*)(id, SEL, id))objc_msgSend)(array, sel_registerName("addObject:"),
+					((id(*)(id, SEL, const char*))objc_msgSend)(
+						(id)objc_getClass("NSString"), sel_registerName("stringWithUTF8String:"), buf));
+			}
+			return array;
+		}
+
+		static id nomen_toolbar_item(id self, SEL cmd, id tv, id ident, long insert) {
+			(void)self; (void)cmd; (void)tv; (void)insert;
+			long idx = ((long(*)(id, SEL))objc_msgSend)(ident, sel_registerName("intValue"));
+			id item = ((id(*)(id, SEL, id))objc_msgSend)(
+				((id(*)(id, SEL))objc_msgSend)((id)objc_getClass("NSToolbarItem"), sel_registerName("alloc")),
+				sel_registerName("initWithItemIdentifier:"), ident);
+			char fallback[32];
+			snprintf(fallback, sizeof(fallback), "Item %ld", idx);
+			const char *text =
+				(idx >= 0 && idx < 32 && g_toolbar_labels[idx][0]) ? g_toolbar_labels[idx] : fallback;
+			id title = ((id(*)(id, SEL, const char*))objc_msgSend)(
+				(id)objc_getClass("NSString"), sel_registerName("stringWithUTF8String:"), text);
+			((void(*)(id, SEL, id))objc_msgSend)(item, sel_registerName("setLabel:"), title);
+			((void(*)(id, SEL, long))objc_msgSend)(item, sel_registerName("setTag:"), idx);
+			id btn = ((id(*)(id, SEL, CGRect))objc_msgSend)(
+				((id(*)(id, SEL))objc_msgSend)((id)objc_getClass("NSButton"), sel_registerName("alloc")),
+				sel_registerName("initWithFrame:"),
+				((CGRect(*)(double, double, double, double))CGRectMake)(0, 0, 64, 28));
+			((void(*)(id, SEL, unsigned long))objc_msgSend)(btn, sel_registerName("setButtonType:"), 1);
+			((void(*)(id, SEL, id))objc_msgSend)(btn, sel_registerName("setTitle:"), title);
+			((void(*)(id, SEL, SEL))objc_msgSend)(
+				btn, sel_registerName("setAction:"), sel_registerName("nomenToolbarAction:"));
+			((void(*)(id, SEL, id))objc_msgSend)(btn, sel_registerName("setTarget:"), g_toolbar_delegate);
+			((void(*)(id, SEL, id))objc_msgSend)(item, sel_registerName("setView:"), btn);
+			((void(*)(id, SEL))objc_msgSend)(btn, sel_registerName("release"));
+			return item;
+		}
+
+		// Store an item's custom label and apply it to the live item (items
+		// are built lazily by the delegate, so the table the builder reads is
+		// the source of truth).
+		void nomen_toolbar_set_label(id toolbar, int idx, const char *text) {
+			if (idx < 0 || idx >= 32) return;
+			snprintf(g_toolbar_labels[idx], sizeof(g_toolbar_labels[idx]), "%s", text);
+			if (!toolbar) return;
+			id items = ((id(*)(id, SEL))objc_msgSend)(toolbar, sel_registerName("items"));
+			long n = ((long(*)(id, SEL))objc_msgSend)(items, sel_registerName("count"));
+			for (long i = 0; i < n; i++) {
+				id item = ((id(*)(id, SEL, long))objc_msgSend)(items, sel_registerName("objectAtIndex:"), i);
+				if (((long(*)(id, SEL))objc_msgSend)(item, sel_registerName("tag")) != idx) continue;
+				id title = ((id(*)(id, SEL, const char*))objc_msgSend)(
+					(id)objc_getClass("NSString"), sel_registerName("stringWithUTF8String:"), text);
+				((void(*)(id, SEL, id))objc_msgSend)(item, sel_registerName("setLabel:"), title);
+				id view = ((id(*)(id, SEL))objc_msgSend)(item, sel_registerName("view"));
+				if (view) {
+					((void(*)(id, SEL, id))objc_msgSend)(view, sel_registerName("setTitle:"), title);
+				}
+			}
+		}
+
+		static id nomen_toolbar_delegate_class(void) {
+			Class Td = objc_getClass("NomenToolbarDelegate");
+			if (!Td) {
+				Td = objc_allocateClassPair(objc_getClass("NSObject"), "NomenToolbarDelegate", 0);
+				if (Td) {
+					class_addMethod(Td, sel_registerName("toolbarAllowedItemIdentifiers:"),
+						(IMP)nomen_toolbar_identifiers, "@@:@");
+					class_addMethod(Td, sel_registerName("toolbarDefaultItemIdentifiers:"),
+						(IMP)nomen_toolbar_identifiers, "@@:@");
+					class_addMethod(Td, sel_registerName("toolbar:itemForItemIdentifier:willBeInsertedIntoToolbar:"),
+						(IMP)nomen_toolbar_item, "@@:@@@c");
+					objc_registerClassPair(Td);
+				}
+			}
+			if (!g_toolbar_delegate) {
+				g_toolbar_delegate = ((id(*)(id, SEL))objc_msgSend)(Td, sel_registerName("new"));
+			}
+			return g_toolbar_delegate;
+		}
+
+		// Edge-triggered read: the poll consumes the tag (resets to -1).
+		long nomen_toolbar_last_tag(void) {
+			long tag = g_toolbar_last_tag;
+			g_toolbar_last_tag = -1;
+			return tag;
+		}
+
+		// The on_item_select drain's consume-and-stash (see the c twin
+		// above).
+		long g_toolbar_selected_tag = -1;
+		unsigned char nomen_toolbar_take_select(void) {
+			long tag = nomen_toolbar_last_tag();
+			if (tag < 0) return 0;
+			g_toolbar_selected_tag = tag;
+			return 1;
+		}
+		long nomen_toolbar_selected_tag(void) {
+			return g_toolbar_selected_tag;
+		}
+		```
+		```
+		#arch: c
+		#platform: macos
+		g_toolbar_count = (long)count;
+		id toolbar = ((id(*)(id, SEL, id))objc_msgSend)(
+			((id(*)(id, SEL))objc_msgSend)((id)objc_getClass("NSToolbar"), sel_registerName("alloc")),
+			sel_registerName("initWithIdentifier:"),
+			((id(*)(id, SEL, const char*))objc_msgSend)(
+				(id)objc_getClass("NSString"), sel_registerName("stringWithUTF8String:"), "main"));
+		((void(*)(id, SEL, id))objc_msgSend)(toolbar, sel_registerName("setDelegate:"), nomen_toolbar_delegate_class());
+		((void(*)(id, SEL, BOOL))objc_msgSend)(toolbar, sel_registerName("setAllowsUserCustomization:"), 0);
+		((void(*)(id, SEL, BOOL))objc_msgSend)(toolbar, sel_registerName("setAutosavesConfiguration:"), 0);
+		((void(*)(id, SEL, id))objc_msgSend)((id)window->handle, sel_registerName("setToolbar:"), toolbar);
+		self.handle = (uint64_t)toolbar;
+		```
+		```
+		#arch: aarch64_use_c
+		#platform: macos
+		g_toolbar_count = (long)count;
+		id toolbar = ((id(*)(id, SEL, id))objc_msgSend)(
+			((id(*)(id, SEL))objc_msgSend)((id)objc_getClass("NSToolbar"), sel_registerName("alloc")),
+			sel_registerName("initWithIdentifier:"),
+			((id(*)(id, SEL, const char*))objc_msgSend)(
+				(id)objc_getClass("NSString"), sel_registerName("stringWithUTF8String:"), "main"));
+		((void(*)(id, SEL, id))objc_msgSend)(toolbar, sel_registerName("setDelegate:"), nomen_toolbar_delegate_class());
+		((void(*)(id, SEL, BOOL))objc_msgSend)(toolbar, sel_registerName("setAllowsUserCustomization:"), 0);
+		((void(*)(id, SEL, BOOL))objc_msgSend)(toolbar, sel_registerName("setAutosavesConfiguration:"), 0);
+		((void(*)(id, SEL, id))objc_msgSend)((id)window->handle, sel_registerName("setToolbar:"), toolbar);
+		self->handle = (uint64_t)toolbar;
+		```
+		```
+		#arch: c
+		#platform: ios
+		/* TODO: iOS — no NSToolbar counterpart for window chrome (see
+		 * GUI_PLAN Tier 2; defer). */
+		```
+		```
+		#arch: aarch64_use_c
+		#platform: ios
+		/* TODO: iOS (see #init) */
+		```
+	}
+
+	// Set an item's label (the text under its button). Items are built
+	// lazily by the shared delegate, so the label lands in the table the
+	// builder reads and is applied to the live item immediately.
+	pub func set_label = (self, int index, string label) {
+		```
+		#arch: c
+		#platform: macos
+		extern void nomen_toolbar_set_label(id toolbar, int idx, const char *text);
+		nomen_toolbar_set_label((id)self->handle, index, label.ptr);
+		```
+		```
+		#arch: aarch64_use_c
+		#platform: macos
+		extern void nomen_toolbar_set_label(id toolbar, int idx, const char *text);
+		nomen_toolbar_set_label((id)self->handle, index, label.ptr);
+		```
+		```
+		#arch: c
+		#platform: ios
+		/* TODO: iOS (see #init) */
+		```
+		```
+		#arch: aarch64_use_c
+		#platform: ios
+		/* TODO: iOS (see #init) */
+		```
+	}
+
+	// The fixed item count.
+	pub func count = (self, out int) {
+		```
+		#arch: c
+		#platform: macos
+		id items = ((id(*)(id, SEL))objc_msgSend)((id)self->handle, sel_registerName("items"));
+		return (int)((long(*)(id, SEL))objc_msgSend)(items, sel_registerName("count"));
+		```
+		```
+		#arch: aarch64_use_c
+		#platform: macos
+		id items = ((id(*)(id, SEL))objc_msgSend)((id)self->handle, sel_registerName("items"));
+		return (int)((long(*)(id, SEL))objc_msgSend)(items, sel_registerName("count"));
+		```
+		```
+		#arch: c
+		#platform: ios
+		/* TODO: iOS (see #init) */
+		return 0;
+		```
+		```
+		#arch: aarch64_use_c
+		#platform: ios
+		/* TODO: iOS (see #init) */
+		return 0;
+		```
+	}
+
+	// The tag of the most recently clicked item since the last read
+	// (edge-triggered; -1 = none). Poll it in the manual loop.
+	pub func clicked_item = (self, out int) {
+		```
+		#arch: c
+		#platform: macos
+		extern long nomen_toolbar_last_tag(void);
+		return (int)nomen_toolbar_last_tag();
+		```
+		```
+		#arch: aarch64_use_c
+		#platform: macos
+		extern long nomen_toolbar_last_tag(void);
+		return (int)nomen_toolbar_last_tag();
+		```
+		```
+		#arch: c
+		#platform: ios
+		/* TODO: iOS (see #init) */
+		return -1;
+		```
+		```
+		#arch: aarch64_use_c
+		#platform: ios
+		/* TODO: iOS (see #init) */
+		return -1;
+		```
+	}
+
+	// The on_item_select desugar's drain (docs/HANDLERS.md): the synthesized
+	// pump arm polls this per frame. The selection is CONSUMED by the drain
+	// — like the poll, one record has one consumer, so a selection fires an
+	// arm exactly once — and the consumed tag is stashed for the handler
+	// body, which reads it through selected_item. The poll and the drain
+	// share one record: a selection consumed by one never reaches the other.
+	pub func take_item_select = (self, out bool) {
+		```
+		#arch: c
+		#platform: macos
+		extern unsigned char nomen_toolbar_take_select(void);
+		return nomen_toolbar_take_select();
+		```
+		```
+		#arch: aarch64_use_c
+		#platform: macos
+		extern unsigned char nomen_toolbar_take_select(void);
+		return nomen_toolbar_take_select();
+		```
+		```
+		#arch: c
+		#platform: ios
+		/* TODO: iOS (see #init) */
+		return false;
+		```
+		```
+		#arch: aarch64_use_c
+		#platform: ios
+		/* TODO: iOS (see #init) */
+		return false;
+		```
+	}
+
+	// The tag the last take_item_select consumed (-1 before the first
+	// selection) — the handler body's payload getter, the control-scoped
+	// analog of the dispatch-window getters (win.click_x() et al).
+	pub func selected_item = (self, out int) {
+		```
+		#arch: c
+		#platform: macos
+		extern long nomen_toolbar_selected_tag(void);
+		return (int)nomen_toolbar_selected_tag();
+		```
+		```
+		#arch: aarch64_use_c
+		#platform: macos
+		extern long nomen_toolbar_selected_tag(void);
+		return (int)nomen_toolbar_selected_tag();
+		```
+		```
+		#arch: c
+		#platform: ios
+		/* TODO: iOS (see #init) */
+		return -1;
+		```
+		```
+		#arch: aarch64_use_c
+		#platform: ios
+		/* TODO: iOS (see #init) */
+		return -1;
+		```
+	}
+
+	// ── Control trait conformance ──
+	// A toolbar is window chrome: the layout engine never frames it (AppKit
+	// owns the layout rect and shrinks the contentView itself).
+	pub func set_frame = (ref self, int x, int y, int width, int height) {
+		// No-op: the NSWindow carries the toolbar's geometry.
+	}
+
+	pub func intrinsic_size = (self, out Size) {
+		var s = Size()
+		return s
+	}
+
+	pub func measure = (self, BoxConstraints constraints, out Size) {
+		var s = Size()
+		return s
+	}
+
+	func #destroy = () {
+		```
+		#arch: c
+		#platform: macos
+		if (self->handle) {
+			((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("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/Tooltip.nm

@@ -0,0 +1,76 @@
+/**
+ * Tooltip helpers — attach hover text to any control by its handle
+ *
+ * Not a control: a tooltip is one property of the view the handle names,
+ * so this is a pair of free functions over `view.toolTip` (macOS). The
+ * helper shape means ANY control gains tooltips without per-control API
+ * surface — pass `button.handle`. iOS has no hover concept (TODO stubs;
+ * see GUI_PLAN Tier 1 #18).
+ **/
+
+// Attach (or clear, with "") hover text for the view `handle` names.
+pub func set_tooltip = (uint64 handle, string text) {
+	```
+	#arch: c
+	#platform: macos
+	((void(*)(id, SEL, id))objc_msgSend)(
+		(id)handle, sel_registerName("setToolTip:"),
+		((id(*)(id, SEL, const char*))objc_msgSend)(
+			(id)objc_getClass("NSString"), sel_registerName("stringWithUTF8String:"), text.ptr));
+	```
+	```
+	#arch: aarch64_use_c
+	#platform: macos
+	((void(*)(id, SEL, id))objc_msgSend)(
+		(id)handle, sel_registerName("setToolTip:"),
+		((id(*)(id, SEL, const char*))objc_msgSend)(
+			(id)objc_getClass("NSString"), sel_registerName("stringWithUTF8String:"), text.ptr));
+	```
+	```
+	#arch: c
+	#platform: ios
+	/* TODO: iOS — no hover/tooltips (see GUI_PLAN Tier 1 #18). */
+	```
+	```
+	#arch: aarch64_use_c
+	#platform: ios
+	/* TODO: iOS — no hover/tooltips (see GUI_PLAN Tier 1 #18). */
+	```
+}
+
+// The tooltip text currently attached to the view `handle` names ("" when
+// none).
+pub func get_tooltip = (uint64 handle, out string) {
+	```
+	#arch: c
+	#platform: macos
+	id str = ((id(*)(id, SEL))objc_msgSend)(
+		(id)handle, sel_registerName("toolTip"));
+	if (!str) return (nomen_string){ strdup(""), 0 };
+	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)handle, sel_registerName("toolTip"));
+	if (!str) return (nomen_string){ strdup(""), 0 };
+	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
+	/* TODO: iOS (see set_tooltip) */
+	return (nomen_string){ strdup(""), 0 };
+	```
+	```
+	#arch: aarch64_use_c
+	#platform: ios
+	/* TODO: iOS (see set_tooltip) */
+	return (nomen_string){ strdup(""), 0 };
+	```
+}