nomen-lang 0.7.1 → 0.8.0

package/core/System/Controls/Separator.nm

@@ -0,0 +1,198 @@
+/**
+ * A horizontal/vertical divider line
+ *
+ * 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.
+ *
+ * NSBox in its separator style: thin etched line, orientation implied by
+ * the frame's aspect (wide = horizontal, tall = vertical). macOS-only —
+ * iOS has no separator view (TODO stubs; see GUI_PLAN Tier 1 #17).
+ **/
+pub mv struct Separator : Control {
+	var uint64 handle = 0
+
+	pub func #init = (self, Window window) {
+		```
+		#arch: c
+		#platform: macos
+		id sep = ((id(*)(id, SEL, CGRect))objc_msgSend)(
+			((id(*)(id, SEL))objc_msgSend)((id)objc_getClass("NSBox"), sel_registerName("alloc")),
+			sel_registerName("initWithFrame:"),
+			((CGRect(*)(double, double, double, double))CGRectMake)(0, 0, 200, 4));
+		((void(*)(id, SEL, long))objc_msgSend)(
+			sep, sel_registerName("setBoxType:"), 2); // NSBoxSeparator = 2
+		id contentView = ((id(*)(id, SEL))objc_msgSend)(
+			(id)window->handle, sel_registerName("contentView"));
+		((void(*)(id, SEL, id))objc_msgSend)(
+			contentView, sel_registerName("addSubview:"), sep);
+		self.handle = (uint64_t)sep;
+		```
+		```
+		#arch: aarch64_use_c
+		#platform: macos
+		id sep = ((id(*)(id, SEL, CGRect))objc_msgSend)(
+			((id(*)(id, SEL))objc_msgSend)((id)objc_getClass("NSBox"), sel_registerName("alloc")),
+			sel_registerName("initWithFrame:"),
+			((CGRect(*)(double, double, double, double))CGRectMake)(0, 0, 200, 4));
+		((void(*)(id, SEL, long))objc_msgSend)(
+			sep, sel_registerName("setBoxType:"), 2); // NSBoxSeparator = 2
+		id contentView = ((id(*)(id, SEL))objc_msgSend)(
+			(id)window->handle, sel_registerName("contentView"));
+		((void(*)(id, SEL, id))objc_msgSend)(
+			contentView, sel_registerName("addSubview:"), sep);
+		self->handle = (uint64_t)sep;
+		```
+		```
+		#arch: c
+		#platform: ios
+		/* TODO: iOS — no native separator view (see GUI_PLAN Tier 1 #17;
+		 * compose from a thin background-colored view if needed). */
+		```
+		```
+		#arch: aarch64_use_c
+		#platform: ios
+		/* TODO: iOS — no native separator view (see GUI_PLAN Tier 1 #17;
+		 * compose from a thin background-colored view if needed). */
+		```
+	}
+
+	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) */
+		```
+	}
+
+	// The NSBoxType (2 = separator) — exposes the native style for tests
+	// and diagnostics.
+	pub func box_type = (self, out int) {
+		```
+		#arch: c
+		#platform: macos
+		return (int)((long(*)(id, SEL))objc_msgSend)(
+			(id)self->handle, sel_registerName("boxType"));
+		```
+		```
+		#arch: aarch64_use_c
+		#platform: macos
+		return (int)((long(*)(id, SEL))objc_msgSend)(
+			(id)self->handle, sel_registerName("boxType"));
+		```
+		```
+		#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);
+		```
+		```
+		#arch: c
+		#platform: ios
+		/* TODO: iOS (see #init) */
+		```
+		```
+		#arch: aarch64_use_c
+		#platform: ios
+		/* TODO: iOS (see #init) */
+		```
+	}
+
+	// ── Control trait conformance ──
+	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/Sheet.nm

@@ -0,0 +1,329 @@
+/**
+ * A modal sheet attached to a window (the macOS "forms slide out of the
+ * title bar" presentation)
+ *
+ * An OWNING STRUCT (STRUCT_PLAN_3 Phase R, tranche 4 — the shape menu): the
+ * fields are platform handles, so the value is movable and its `#destroy`
+ * releases what they name. The constructor's `self` is the inline instance
+ * (the `.` accessor); methods keep the pointer form.
+ *
+ * The sheet is its own NSWindow presented attached to the host — so its
+ * contentView is just another layout root: `content_window` hands back a
+ * Window-shaped value whose contentView is the sheet's, and every control
+ * constructor (and `Container.layout`) accepts it like any window.
+ * `present`/`dismiss` are non-blocking (completion-handler form); iOS
+ * defers to UISheetPresentationController (TODO stubs; see GUI_PLAN
+ * Tier 1 #20).
+ **/
+pub mv struct Sheet : Control {
+	var uint64 handle = 0
+	var uint64 host = 0
+
+	pub func #init = (self, Window window, int width, int height) {
+		```
+		#arch: c
+		#platform: macos
+		unsigned long style = 1 | 2; // NSWindowStyleMaskTitled | Closable
+		id sheet = ((id(*)(id, SEL, double, double, double, double, unsigned long, unsigned long, BOOL))objc_msgSend)(
+			((id(*)(id, SEL))objc_msgSend)((id)objc_getClass("NSWindow"), sel_registerName("alloc")),
+			sel_registerName("initWithContentRect:styleMask:backing:defer:"),
+			0.0, 0.0, (double)width, (double)height,
+			style, 2, 0);
+		((void(*)(id, SEL, BOOL))objc_msgSend)(sheet, sel_registerName("setReleasedWhenClosed:"), 0);
+		id cv = ((id(*)(id, SEL))objc_msgSend)(sheet, sel_registerName("contentView"));
+		((void(*)(id, SEL, unsigned long))objc_msgSend)(cv, sel_registerName("setAutoresizingMask:"), 18UL);
+		((void(*)(id, SEL, BOOL))objc_msgSend)(cv, sel_registerName("setAutoresizesSubviews:"), 1);
+		self.handle = (uint64_t)sheet;
+		self.host = window->handle;
+		```
+		```
+		#arch: aarch64_use_c
+		#platform: macos
+		unsigned long style = 1 | 2; // NSWindowStyleMaskTitled | Closable
+		id sheet = ((id(*)(id, SEL, double, double, double, double, unsigned long, unsigned long, BOOL))objc_msgSend)(
+			((id(*)(id, SEL))objc_msgSend)((id)objc_getClass("NSWindow"), sel_registerName("alloc")),
+			sel_registerName("initWithContentRect:styleMask:backing:defer:"),
+			0.0, 0.0, (double)width, (double)height,
+			style, 2, 0);
+		((void(*)(id, SEL, BOOL))objc_msgSend)(sheet, sel_registerName("setReleasedWhenClosed:"), 0);
+		id cv = ((id(*)(id, SEL))objc_msgSend)(sheet, sel_registerName("contentView"));
+		((void(*)(id, SEL, unsigned long))objc_msgSend)(cv, sel_registerName("setAutoresizingMask:"), 18UL);
+		((void(*)(id, SEL, BOOL))objc_msgSend)(cv, sel_registerName("setAutoresizesSubviews:"), 1);
+		self->handle = (uint64_t)sheet;
+		self->host = window->handle;
+		```
+		```
+		#arch: c
+		#platform: ios
+		/* TODO: iOS — UISheetPresentationController (iOS 15+) needs a
+		 * presenting view controller (see GUI_PLAN Tier 1 #20; defer). */
+		```
+		```
+		#arch: aarch64_use_c
+		#platform: ios
+		/* TODO: iOS — UISheetPresentationController (iOS 15+) needs a
+		 * presenting view controller (see GUI_PLAN Tier 1 #20; defer). */
+		```
+	}
+
+	// A Window-shaped handle to the sheet's contentView: pass it to control
+	// constructors and `Container.layout` to host controls in the sheet.
+	// The value retains the sheet's window (+1), so its scope-exit
+	// `#destroy` releases its OWN reference and the Sheet's stays balanced
+	// — keep the Sheet alive at least as long as the returned value.
+	pub func content_window = (self, out Window) {
+		```
+		#arch: c
+		#platform: macos
+		extern void *_Window_traits[];
+		struct Window w;
+		w._vt = (void *)&_Window_traits;
+		w.handle = self->handle;
+		((id(*)(id, SEL))objc_msgSend)((id)self->handle, sel_registerName("retain"));
+		return w;
+		```
+		```
+		#arch: aarch64_use_c
+		#platform: macos
+		extern void *Window_traits;
+		struct Window w;
+		w._vt = (void *)&Window_traits;
+		w.handle = self->handle;
+		((id(*)(id, SEL))objc_msgSend)((id)self->handle, 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_title = (self, string title) {
+		```
+		#arch: c
+		#platform: macos
+		((void(*)(id, SEL, id))objc_msgSend)(
+			(id)self->handle, sel_registerName("setTitle:"),
+			((id(*)(id, SEL, const char*))objc_msgSend)(
+				(id)objc_getClass("NSString"), sel_registerName("stringWithUTF8String:"), title.ptr));
+		```
+		```
+		#arch: aarch64_use_c
+		#platform: macos
+		((void(*)(id, SEL, id))objc_msgSend)(
+			(id)self->handle, sel_registerName("setTitle:"),
+			((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 get_title = (self, out string) {
+		```
+		#arch: c
+		#platform: macos
+		id str = ((id(*)(id, SEL))objc_msgSend)(
+			(id)self->handle, sel_registerName("title"));
+		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)self->handle, sel_registerName("title"));
+		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 #init) */
+		return (nomen_string){ strdup(""), 0 };
+		```
+		```
+		#arch: aarch64_use_c
+		#platform: ios
+		/* TODO: iOS (see #init) */
+		return (nomen_string){ strdup(""), 0 };
+		```
+	}
+
+	// Slide the sheet out of the host window's title bar. Non-blocking: the
+	// sheet stays up while the manual loop keeps polling.
+	pub func present = (self) {
+		```
+		#arch: c
+		#platform: macos
+		((void(*)(id, SEL, id, id, id))objc_msgSend)(
+			(id)self->host, sel_registerName("beginSheet:completionHandler:"),
+			(id)self->handle, (id)0, (id)0);
+		```
+		```
+		#arch: aarch64_use_c
+		#platform: macos
+		((void(*)(id, SEL, id, id, id))objc_msgSend)(
+			(id)self->host, sel_registerName("beginSheet:completionHandler:"),
+			(id)self->handle, (id)0, (id)0);
+		```
+		```
+		#arch: c
+		#platform: ios
+		/* TODO: iOS (see #init) */
+		```
+		```
+		#arch: aarch64_use_c
+		#platform: ios
+		/* TODO: iOS (see #init) */
+		```
+	}
+
+	// Close the sheet (the host regains focus).
+	pub func dismiss = (self) {
+		```
+		#arch: c
+		#platform: macos
+		id app = ((id(*)(id, SEL))objc_msgSend)(
+			(id)objc_getClass("NSApplication"), sel_registerName("sharedApplication"));
+		((void(*)(id, SEL, id))objc_msgSend)(app, sel_registerName("endSheet:"), (id)self->handle);
+		((void(*)(id, SEL, id))objc_msgSend)((id)self->handle, sel_registerName("orderOut:"), (id)0);
+		```
+		```
+		#arch: aarch64_use_c
+		#platform: macos
+		id app = ((id(*)(id, SEL))objc_msgSend)(
+			(id)objc_getClass("NSApplication"), sel_registerName("sharedApplication"));
+		((void(*)(id, SEL, id))objc_msgSend)(app, sel_registerName("endSheet:"), (id)self->handle);
+		((void(*)(id, SEL, id))objc_msgSend)((id)self->handle, sel_registerName("orderOut:"), (id)0);
+		```
+		```
+		#arch: c
+		#platform: ios
+		/* TODO: iOS (see #init) */
+		```
+		```
+		#arch: aarch64_use_c
+		#platform: ios
+		/* TODO: iOS (see #init) */
+		```
+	}
+
+	// True while the sheet is attached to its host window.
+	pub func is_presented = (self, out bool) {
+		```
+		#arch: c
+		#platform: macos
+		id attached = ((id(*)(id, SEL))objc_msgSend)(
+			(id)self->host, sel_registerName("attachedSheet"));
+		return attached == (id)self->handle ? 1 : 0;
+		```
+		```
+		#arch: aarch64_use_c
+		#platform: macos
+		id attached = ((id(*)(id, SEL))objc_msgSend)(
+			(id)self->host, sel_registerName("attachedSheet"));
+		return attached == (id)self->handle ? 1 : 0;
+		```
+		```
+		#arch: c
+		#platform: ios
+		/* TODO: iOS (see #init) */
+		return 0;
+		```
+		```
+		#arch: aarch64_use_c
+		#platform: ios
+		/* TODO: iOS (see #init) */
+		return 0;
+		```
+	}
+
+	// ── Control trait conformance ──
+	// A sheet is window-coordinated like Alert: the layout engine never
+	// frames it (its own NSWindow carries the geometry).
+	pub func set_frame = (ref self, int x, int y, int width, int height) {
+		// No-op: the sheet's NSWindow carries the 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) {
+			id app = ((id(*)(id, SEL))objc_msgSend)(
+				(id)objc_getClass("NSApplication"), sel_registerName("sharedApplication"));
+			((void(*)(id, SEL, id))objc_msgSend)(app, sel_registerName("endSheet:"), (id)self->handle);
+			((void(*)(id, SEL, id))objc_msgSend)((id)self->handle, sel_registerName("orderOut:"), (id)0);
+			((void(*)(id, SEL))objc_msgSend)((id)self->handle, sel_registerName("release"));
+			self->handle = 0;
+		}
+		self->host = 0;
+		```
+		```
+		#arch: aarch64_use_c
+		#platform: macos
+		if (self->handle) {
+			id app = ((id(*)(id, SEL))objc_msgSend)(
+				(id)objc_getClass("NSApplication"), sel_registerName("sharedApplication"));
+			((void(*)(id, SEL, id))objc_msgSend)(app, sel_registerName("endSheet:"), (id)self->handle);
+			((void(*)(id, SEL, id))objc_msgSend)((id)self->handle, sel_registerName("orderOut:"), (id)0);
+			((void(*)(id, SEL))objc_msgSend)((id)self->handle, sel_registerName("release"));
+			self->handle = 0;
+		}
+		self->host = 0;
+		```
+		```
+		#arch: c
+		#platform: ios
+		/* TODO: iOS (see #init) */
+		```
+		```
+		#arch: aarch64_use_c
+		#platform: ios
+		/* TODO: iOS (see #init) */
+		```
+	}
+}