nomen-lang 0.7.1 → 0.9.0

package/core/System/Controls/TextBox.nm

@@ -6,9 +6,14 @@
  * `#destroy` releases what the handle names. The constructor's `self` is
  * the inline instance (the `.` accessor); methods keep the pointer form.
  **/
-pub mv struct TextBox : Control {
+pub mv struct TextBox: Control {
 	var uint64 handle = 0
 
+	// 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) {
 		```
 		#arch: c
@@ -35,6 +40,10 @@ pub mv struct TextBox : Control {
 			(id)window->handle, sel_registerName("contentView"));
 		((void(*)(id, SEL, id))objc_msgSend)(
 			contentView, sel_registerName("addSubview:"), field);
+		// NSTextField sends its action on the USER commit (Return) — arm it
+		// so on_submit drains fire (programmatic set_text stays silent).
+		extern void nomen_control_arm_submits(unsigned long long);
+		nomen_control_arm_submits((unsigned long long)field);
 		self.handle = (uint64_t)field;
 		```
 		```
@@ -62,6 +71,8 @@ pub mv struct TextBox : Control {
 			(id)window->handle, sel_registerName("contentView"));
 		((void(*)(id, SEL, id))objc_msgSend)(
 			contentView, sel_registerName("addSubview:"), field);
+		extern void nomen_control_arm_submits(unsigned long long) __asm__("nomen_control_arm_submits");
+		nomen_control_arm_submits((unsigned long long)field);
 		self->handle = (uint64_t)field;
 		```
 		```
@@ -166,6 +177,73 @@ pub mv struct TextBox : Control {
 		```
 	}
 
+	// The placeholder: gray hint text shown while the field is empty. Unlike
+	// set_text, it is not the field's value — get_text still reports "" until
+	// the user types.
+	pub func set_placeholder = (self, string text) {
+		```
+		#arch: c
+		#platform: macos
+		((void(*)(id, SEL, id))objc_msgSend)(
+			(id)self->handle, sel_registerName("setPlaceholderString:"),
+			((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)self->handle, sel_registerName("setPlaceholderString:"),
+			((id(*)(id, SEL, const char*))objc_msgSend)(
+				(id)objc_getClass("NSString"), sel_registerName("stringWithUTF8String:"), text.ptr));
+		```
+		```
+		#arch: c
+		#platform: ios
+		((void(*)(id, SEL, id))objc_msgSend)(
+			(id)self->handle, sel_registerName("setPlaceholder:"),
+			((id(*)(id, SEL, const char*))objc_msgSend)(
+				(id)objc_getClass("NSString"), sel_registerName("stringWithUTF8String:"), text.ptr));
+		```
+		```
+		#arch: aarch64_use_c
+		#platform: ios
+		((void(*)(id, SEL, id))objc_msgSend)(
+			(id)self->handle, sel_registerName("setPlaceholder:"),
+			((id(*)(id, SEL, const char*))objc_msgSend)(
+				(id)objc_getClass("NSString"), sel_registerName("stringWithUTF8String:"), text.ptr));
+		```
+	}
+
+	// ── Event drains (docs/HANDLERS.md): the on_click / on_focus / on_blur /
+	// on_input desugars poll these per frame — one method per event, the
+	// naming convention is the contract. Arming and native plumbing live
+	// inside the drains.
+
+	// Click edge (the gesture recognizer arms this view — see
+	// nomen_window_clicks_init; arming is idempotent per handle).
+	pub func take_click = (self, out bool) {
+		nomen_window_clicks_init(self.handle)
+		return nomen_control_take_click(self.handle)
+	}
+
+	// Focus edge: true the frame this control GAINED first-responder status.
+	pub func take_focus = (self, out bool) {
+		return nomen_control_take_focus(self.handle)
+	}
+
+	// Blur edge: true the frame this control LOST first-responder status.
+	pub func take_blur = (self, out bool) {
+		return nomen_control_take_blur(self.handle)
+	}
+
+	// Text-input edge: true when the control's text changed since the last
+	// drain (the field editor writes through to stringValue while typing —
+	// each keystroke is one edge). First drain baselines silently.
+	pub func take_input = (self, out bool) {
+		return nomen_control_take_input(self.handle)
+	}
+
 	pub func get_text = (self, out string) {
 		```
 		#arch: c
@@ -198,13 +276,46 @@ pub mv struct TextBox : Control {
 		#arch: aarch64_use_c
 		#platform: ios
 		id str = ((id(*)(id, SEL))objc_msgSend)(
-			(id)self->handle, sel_registerName("text.ptr"));
+			(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) };
 		```
 	}
 
+	// The on_submit desugar's drain (docs/HANDLERS.md tier 2): true when
+	// the user committed this field (Return) since the last drain — the
+	// record is consumed, one commit fires an arm exactly once.
+	// User-driven only (the field's action; programmatic set_text stays
+	// silent). The handler body reads the committed text through
+	// get_text().
+	pub func take_submit = (self, out bool) {
+		```
+		#arch: c
+		#platform: macos
+		extern long nomen_submit_take(unsigned long long);
+		return (long)nomen_submit_take((unsigned long long)self->handle);
+		```
+		```
+		#arch: aarch64_use_c
+		#platform: macos
+		extern long nomen_submit_take(unsigned long long);
+		return (long)nomen_submit_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;
+		```
+	}
+
 	// ── Control trait conformance ──
 	pub func intrinsic_size = (self, out Size) {
 		var [w, h] = native_intrinsic(self.handle)

package/core/System/Controls/TextView.nm

@@ -0,0 +1,329 @@
+/**
+ * A multiline editable text surface
+ *
+ * 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.
+ *
+ * Sized explicitly by the container (`add(handle, w, h, …)`): a native text
+ * view has no useful intrinsic size (it scrolls its own document), so the
+ * Control-trait measure reports what the platform offers and clamps to the
+ * constraints like every other leaf.
+ **/
+pub mv struct TextView: Control {
+	var uint64 handle = 0
+
+	// 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) {
+		```
+		#arch: c
+		#platform: macos
+		id tv = ((id(*)(id, SEL, CGRect))objc_msgSend)(
+			((id(*)(id, SEL))objc_msgSend)((id)objc_getClass("NSTextView"), sel_registerName("alloc")),
+			sel_registerName("initWithFrame:"),
+			((CGRect(*)(double, double, double, double))CGRectMake)(0, 0, 200, 80));
+		((void(*)(id, SEL, BOOL))objc_msgSend)(tv, sel_registerName("setEditable:"), 1);
+		((void(*)(id, SEL, BOOL))objc_msgSend)(tv, sel_registerName("setSelectable:"), 1);
+		((void(*)(id, SEL, BOOL))objc_msgSend)(tv, sel_registerName("setRichText:"), 0);
+		((void(*)(id, SEL, BOOL))objc_msgSend)(
+			tv, sel_registerName("setUsesFindBar:"), 1);
+		// The NSTextView default is the small (12pt) system font; match the
+		// 13pt standard control size every field control uses.
+		((void(*)(id, SEL, id))objc_msgSend)(
+			tv, sel_registerName("setFont:"),
+			((id(*)(id, SEL, CGFloat))objc_msgSend)(
+				(id)objc_getClass("NSFont"), sel_registerName("systemFontOfSize:"),
+				((CGFloat(*)(id, SEL))objc_msgSend)(
+					(id)objc_getClass("NSFont"), sel_registerName("systemFontSize"))));
+		((void(*)(id, SEL, id))objc_msgSend)(
+			tv, sel_registerName("setString:"),
+			((id(*)(id, SEL, const char*))objc_msgSend)(
+				(id)objc_getClass("NSString"), sel_registerName("stringWithUTF8String:"), ""));
+		id contentView = ((id(*)(id, SEL))objc_msgSend)(
+			(id)window->handle, sel_registerName("contentView"));
+		((void(*)(id, SEL, id))objc_msgSend)(
+			contentView, sel_registerName("addSubview:"), tv);
+		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("NSTextView"), sel_registerName("alloc")),
+			sel_registerName("initWithFrame:"),
+			((CGRect(*)(double, double, double, double))CGRectMake)(0, 0, 200, 80));
+		((void(*)(id, SEL, BOOL))objc_msgSend)(tv, sel_registerName("setEditable:"), 1);
+		((void(*)(id, SEL, BOOL))objc_msgSend)(tv, sel_registerName("setSelectable:"), 1);
+		((void(*)(id, SEL, BOOL))objc_msgSend)(tv, sel_registerName("setRichText:"), 0);
+		((void(*)(id, SEL, BOOL))objc_msgSend)(
+			tv, sel_registerName("setUsesFindBar:"), 1);
+		// The NSTextView default is the small (12pt) system font; match the
+		// 13pt standard control size every field control uses.
+		((void(*)(id, SEL, id))objc_msgSend)(
+			tv, sel_registerName("setFont:"),
+			((id(*)(id, SEL, CGFloat))objc_msgSend)(
+				(id)objc_getClass("NSFont"), sel_registerName("systemFontOfSize:"),
+				((CGFloat(*)(id, SEL))objc_msgSend)(
+					(id)objc_getClass("NSFont"), sel_registerName("systemFontSize"))));
+		((void(*)(id, SEL, id))objc_msgSend)(
+			tv, sel_registerName("setString:"),
+			((id(*)(id, SEL, const char*))objc_msgSend)(
+				(id)objc_getClass("NSString"), sel_registerName("stringWithUTF8String:"), ""));
+		id contentView = ((id(*)(id, SEL))objc_msgSend)(
+			(id)window->handle, sel_registerName("contentView"));
+		((void(*)(id, SEL, id))objc_msgSend)(
+			contentView, sel_registerName("addSubview:"), tv);
+		self->handle = (uint64_t)tv;
+		```
+		```
+		#arch: c
+		#platform: ios
+		id tv = ((id(*)(id, SEL, CGRect))objc_msgSend)(
+			((id(*)(id, SEL))objc_msgSend)((id)objc_getClass("UITextView"), sel_registerName("alloc")),
+			sel_registerName("initWithFrame:"),
+			((CGRect(*)(double, double, double, double))CGRectMake)(0, 0, 200, 80));
+		((void(*)(id, SEL, BOOL))objc_msgSend)(tv, sel_registerName("setEditable:"), 1);
+		((void(*)(id, SEL, BOOL))objc_msgSend)(tv, sel_registerName("setSelectable:"), 1);
+		id parentView = ((id(*)(id, SEL))objc_msgSend)(
+			((id(*)(id, SEL))objc_msgSend)(
+				(id)window->handle, sel_registerName("rootViewController")),
+			sel_registerName("view"));
+		((void(*)(id, SEL, id))objc_msgSend)(
+			parentView, sel_registerName("addSubview:"), tv);
+		self.handle = (uint64_t)tv;
+		```
+		```
+		#arch: aarch64_use_c
+		#platform: ios
+		id tv = ((id(*)(id, SEL, CGRect))objc_msgSend)(
+			((id(*)(id, SEL))objc_msgSend)((id)objc_getClass("UITextView"), sel_registerName("alloc")),
+			sel_registerName("initWithFrame:"),
+			((CGRect(*)(double, double, double, double))CGRectMake)(0, 0, 200, 80));
+		((void(*)(id, SEL, BOOL))objc_msgSend)(tv, sel_registerName("setEditable:"), 1);
+		((void(*)(id, SEL, BOOL))objc_msgSend)(tv, sel_registerName("setSelectable:"), 1);
+		id parentView = ((id(*)(id, SEL))objc_msgSend)(
+			((id(*)(id, SEL))objc_msgSend)(
+				(id)window->handle, sel_registerName("rootViewController")),
+			sel_registerName("view"));
+		((void(*)(id, SEL, id))objc_msgSend)(
+			parentView, sel_registerName("addSubview:"), tv);
+		self->handle = (uint64_t)tv;
+		```
+	}
+
+	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
+		((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: ios
+		((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));
+		```
+	}
+
+	pub func set_text = (self, string text) {
+		```
+		#arch: c
+		#platform: macos
+		((void(*)(id, SEL, id))objc_msgSend)(
+			(id)self->handle, sel_registerName("setString:"),
+			((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)self->handle, sel_registerName("setString:"),
+			((id(*)(id, SEL, const char*))objc_msgSend)(
+				(id)objc_getClass("NSString"), sel_registerName("stringWithUTF8String:"), text.ptr));
+		```
+		```
+		#arch: c
+		#platform: ios
+		((void(*)(id, SEL, id))objc_msgSend)(
+			(id)self->handle, sel_registerName("setText:"),
+			((id(*)(id, SEL, const char*))objc_msgSend)(
+				(id)objc_getClass("NSString"), sel_registerName("stringWithUTF8String:"), text.ptr));
+		```
+		```
+		#arch: aarch64_use_c
+		#platform: ios
+		((void(*)(id, SEL, id))objc_msgSend)(
+			(id)self->handle, sel_registerName("setText:"),
+			((id(*)(id, SEL, const char*))objc_msgSend)(
+				(id)objc_getClass("NSString"), sel_registerName("stringWithUTF8String:"), text.ptr));
+		```
+	}
+
+	// The placeholder: gray hint text shown while the view is empty. Unlike
+	// set_text, it is not the view's value — get_text still reports "" until
+	// the user types. AppKit has no public NSTextView placeholder API, so this
+	// goes through the key-value-coded "placeholderString" the view supports;
+	// UITextView has none at all (a delegate-drawn overlay would be needed).
+	pub func set_placeholder = (self, string text) {
+		```
+		#arch: c
+		#platform: macos
+		id value = ((id(*)(id, SEL, const char*))objc_msgSend)(
+			(id)objc_getClass("NSString"), sel_registerName("stringWithUTF8String:"), text.ptr);
+		id key = ((id(*)(id, SEL, const char*))objc_msgSend)(
+			(id)objc_getClass("NSString"), sel_registerName("stringWithUTF8String:"),
+			"placeholderString");
+		((void(*)(id, SEL, id, id))objc_msgSend)(
+			(id)self->handle, sel_registerName("setValue:forKey:"), value, key);
+		```
+		```
+		#arch: aarch64_use_c
+		#platform: macos
+		id value = ((id(*)(id, SEL, const char*))objc_msgSend)(
+			(id)objc_getClass("NSString"), sel_registerName("stringWithUTF8String:"), text.ptr);
+		id key = ((id(*)(id, SEL, const char*))objc_msgSend)(
+			(id)objc_getClass("NSString"), sel_registerName("stringWithUTF8String:"),
+			"placeholderString");
+		((void(*)(id, SEL, id, id))objc_msgSend)(
+			(id)self->handle, sel_registerName("setValue:forKey:"), value, key);
+		```
+		```
+		#arch: c
+		#platform: ios
+		/* TODO: iOS — UITextView has no placeholder; needs a delegate-drawn
+		 * overlay (see GUI_PLAN Tier 3). */
+		```
+		```
+		#arch: aarch64_use_c
+		#platform: ios
+		/* TODO: iOS (see #init) */
+		```
+	}
+
+	pub func get_text = (self, out string) {
+		```
+		#arch: c
+		#platform: macos
+		id str = ((id(*)(id, SEL))objc_msgSend)(
+			(id)self->handle, sel_registerName("string"));
+		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("string"));
+		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) };
+		```
+	}
+
+	// ── 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
+		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: ios
+		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;
+		}
+		```
+	}
+}