Add list suite: sections, disclosure rows, swipe actions, scroll + visible-range events

.agents/skills/testing-lui-demos/SKILL.md

@@ -128,3 +128,18 @@ Gotchas:
   edge drops, but chip/strip targets are more reliable with an explicit
   `left_mouse_down` → several `mouse_move` steps → pause (`wait` ~0.7s,
   pane highlight/ghost visible) → `left_mouse_up` sequence.
+
+### Exercising new/ordinary element kinds end-to-end
+
+The split demo is the fastest vehicle even for non-split elements: scratch-edit
+`examples/split/model.ml` + `view.ml` (uncommitted) so `view` returns a plain
+`column` of the elements under test, add model fields/actions for any state you
+need to observe (e.g. a press counter rendered via `dyn`/`text` so event
+delivery is proven by an OCaml-rendered value, not just pixels), then rerun
+`build-app.sh` — it rebuilds `liblui_split.dylib` and the bundle. Revert with
+`git checkout` afterwards. `if_ ~test:(model_source >|= ...)` is the way to
+mount/unmount presence-driven kinds (dialog/sheet/file-preview).
+
+QuickLook panels (`file-preview`, `.quickLookPreview`) on macOS: the panel's
+close affordance is small/hover-only; **Escape** reliably closes it and drives
+the Dismiss binding. Clicking the panel title bar does nothing.

examples/components/ios-swiftui/Sources/LUIComponentsApp/LUIComponentsApp.swift

@@ -28,6 +28,8 @@ private func luiOCamlTextChanged(_ node: Int64, _ text: UnsafePointer<CChar>?) -
 private func luiOCamlSubmit(_ node: Int64) -> Int32
 @_silgen_name("lui_ocaml_dismiss")
 private func luiOCamlDismiss(_ node: Int64) -> Int32
+@_silgen_name("lui_ocaml_picked")
+private func luiOCamlPicked(_ node: Int64, _ payload: UnsafePointer<CChar>) -> Int32
 @_silgen_name("lui_ocaml_double_press")
 private func luiOCamlDoublePress(_ node: Int64) -> Int32
 @_silgen_name("lui_ocaml_toggle_changed")
@@ -73,6 +75,8 @@ private final class GalleryHost {
                 text.withCString { _ = luiOCamlTextChanged(Int64(node), $0) }
             case let .submit(node): _ = luiOCamlSubmit(Int64(node))
             case let .dismiss(node): _ = luiOCamlDismiss(Int64(node))
+            case let .picked(node, payload):
+                payload.withCString { _ = luiOCamlPicked(Int64(node), $0) }
             case let .doublePress(node): _ = luiOCamlDoublePress(Int64(node))
             case let .toggleChanged(node, checked):
                 _ = luiOCamlToggleChanged(Int64(node), checked ? 1 : 0)

examples/components/native/components_bridge.ml

@@ -80,6 +80,8 @@ let submit node = dispatch (Submit node)
 
 let dismiss node = dispatch (Dismiss node)
 
+let picked node payload = dispatch (Picked (node, payload))
+
 let double_press node = dispatch (DoublePress node)
 
 let toggle_changed node checked = dispatch (ToggleChanged (node, checked))
@@ -104,6 +106,7 @@ let register prefix =
   register (prefix ^ "_text_changed") text_changed;
   register (prefix ^ "_submit") submit;
   register (prefix ^ "_dismiss") dismiss;
+  register (prefix ^ "_picked") picked;
   register (prefix ^ "_double_press") double_press;
   register (prefix ^ "_toggle_changed") toggle_changed;
   register (prefix ^ "_radio_changed") radio_changed;

examples/gallery/view.ml

@@ -455,6 +455,69 @@ let card_section model_source : t =
         ]
     ]
 
+let inset_rows n =
+  List.init n (fun i ->
+      card ~padding:12
+        [ text ~value:(Printf.sprintf "Inset demo row %d" (i + 1)) [] ])
+
+let edge_inset_section model_source send : t =
+  let checked = model_source >|= Model.checked in
+  section "Edge Inset"
+    [ switch_ ~text:"Show pinned bar" ~checked:(reactive checked)
+        ~on_toggle:(on_toggle send (fun v -> Model.SetChecked v)) []
+    ; edge_inset ~edge:`top ~background:"bar" ~max_width:560 ~height:240
+        ~visible:(reactive checked)
+        [ scroll ~height:200 [ list ~gap:8 ~cross:`stretch (inset_rows 12) ]
+        ; row ~padding:8 ~gap:8 ~cross:`center
+            [ text ~value:"Pinned top bar" []
+            ; spacer []
+            ; text ~value:"edge-inset · top" ~foreground:"muted-foreground" []
+            ]
+        ]
+    ; edge_inset ~edge:`bottom ~background:"bar" ~max_width:560 ~height:180
+        [ scroll ~height:150 [ list ~gap:8 ~cross:`stretch (inset_rows 10) ]
+        ; row ~padding:8 ~gap:8 ~cross:`center
+            [ text ~value:"Pinned bottom bar" []
+            ; spacer []
+            ; text ~value:"edge-inset · bottom" ~foreground:"muted-foreground" []
+            ]
+        ]
+    ]
+
+let overlay_section : t =
+  section "Overlay"
+    [ overlay ~max_width:560
+        [ card ~width:560 ~height:160 ~padding:16
+            [ column ~gap:8
+                [ text ~value:"Base card — this content sizes the overlay" []
+                ; paragraph
+                    ~value:"Floating children do not shift this layout." []
+                ]
+            ]
+        ; align `top_trailing
+            (card ~padding:8 [ text ~value:"Float · top-trailing" [] ])
+        ; align `bottom_leading
+            (card ~padding:8 [ text ~value:"Float · bottom-leading" [] ])
+        ]
+    ]
+
+let view_that_fits_section : t =
+  section "View That Fits"
+    [ paragraph
+        ~value:"Widen the window for the expanded layout; shrink it below ~700pt wide for the compact fallback."
+        []
+    ; view_that_fits
+        [ card ~width:640 ~padding:16
+            [ row ~gap:8 ~cross:`center
+                [ text ~value:"EXPANDED — wide layout" []
+                ; spacer []
+                ; text ~value:"640pt" ~foreground:"muted-foreground" []
+                ]
+            ]
+        ; text ~value:"COMPACT — narrow fallback" ~foreground:"accent" []
+        ]
+    ]
+
 let alert_section : t =
   section "Alert"
     [ alert ~text:"Sync paused" ~variant:`secondary
@@ -1577,6 +1640,9 @@ let view context model_source send : t =
     ; row_section
     ; column_section
     ; grid_section
+    ; edge_inset_section model_source send
+    ; overlay_section
+    ; view_that_fits_section
     ; text_section
     ; spacer_section
     ; toggle_button_section model_source send

examples/markdown/macos-appkit/Sources/LUIMarkdown/main.swift

@@ -11,6 +11,8 @@ private typealias StopFunction = @convention(c) () -> Int32
 private typealias NodeFunction = @convention(c) (Int64) -> Int32
 private typealias TextChangedFunction =
     @convention(c) (Int64, UnsafePointer<CChar>?) -> Int32
+private typealias PickedFunction =
+    @convention(c) (Int64, UnsafePointer<CChar>?) -> Int32
 private typealias ToggleChangedFunction = @convention(c) (Int64, Int32) -> Int32
 private typealias SliderChangedFunction = @convention(c) (Int64, Double) -> Int32
 private typealias ExtensionEventFunction =
@@ -38,6 +40,7 @@ private final class NativeMarkdownRuntime {
     private let textChangedFunction: TextChangedFunction
     private let submitFunction: NodeFunction
     private let dismissFunction: NodeFunction
+    private let pickedFunction: PickedFunction
     private let doublePressFunction: NodeFunction
     private let toggleChangedFunction: ToggleChangedFunction
     private let radioChangedFunction: NodeFunction
@@ -57,6 +60,7 @@ private final class NativeMarkdownRuntime {
         textChangedFunction = try Self.load("lui_ocaml_text_changed", from: handle)
         submitFunction = try Self.load("lui_ocaml_submit", from: handle)
         dismissFunction = try Self.load("lui_ocaml_dismiss", from: handle)
+        pickedFunction = try Self.load("lui_ocaml_picked", from: handle)
         doublePressFunction = try Self.load("lui_ocaml_double_press", from: handle)
         toggleChangedFunction = try Self.load("lui_ocaml_toggle_changed", from: handle)
         radioChangedFunction = try Self.load("lui_ocaml_radio_changed", from: handle)
@@ -86,6 +90,12 @@ private final class NativeMarkdownRuntime {
 
     func submit(node: Int) { _ = submitFunction(Int64(node)) }
     func dismiss(node: Int) { _ = dismissFunction(Int64(node)) }
+
+    func picked(node: Int, payload: String) {
+        payload.withCString { source in
+            _ = pickedFunction(Int64(node), source)
+        }
+    }
     func doublePress(node: Int) { _ = doublePressFunction(Int64(node)) }
 
     func toggleChanged(node: Int, checked: Bool) {
@@ -166,6 +176,8 @@ private final class MarkdownHost: NSObject, NSApplicationDelegate, NSWindowDeleg
                     self?.runtime?.sliderChanged(node: node, value: value)
                 case let .dismiss(node):
                     self?.runtime?.dismiss(node: node)
+                case let .picked(node, payload):
+                    self?.runtime?.picked(node: node, payload: payload)
                 case let .doublePress(node):
                     self?.runtime?.doublePress(node: node)
                 case let .appear(node):

examples/markdown/native/markdown_bridge.ml

@@ -72,6 +72,8 @@ let submit node = dispatch (Submit node)
 
 let dismiss node = dispatch (Dismiss node)
 
+let picked node payload = dispatch (Picked (node, payload))
+
 let double_press node = dispatch (DoublePress node)
 
 let toggle_changed node checked = dispatch (ToggleChanged (node, checked))
@@ -106,6 +108,7 @@ let () =
   Callback.register "lui_ocaml_text_changed" text_changed;
   Callback.register "lui_ocaml_submit" submit;
   Callback.register "lui_ocaml_dismiss" dismiss;
+  Callback.register "lui_ocaml_picked" picked;
   Callback.register "lui_ocaml_double_press" double_press;
   Callback.register "lui_ocaml_toggle_changed" toggle_changed;
   Callback.register "lui_ocaml_radio_changed" radio_changed;

examples/split/macos-appkit/Sources/LUISplitDemo/main.swift

@@ -15,6 +15,8 @@ private typealias TextChangedFunction =
     @convention(c) (Int64, UnsafePointer<CChar>?) -> Int32
 private typealias SubmitFunction = @convention(c) (Int64) -> Int32
 private typealias DismissFunction = @convention(c) (Int64) -> Int32
+private typealias PickedFunction =
+    @convention(c) (Int64, UnsafePointer<CChar>?) -> Int32
 private typealias DoublePressFunction = @convention(c) (Int64) -> Int32
 private typealias ToggleChangedFunction = @convention(c) (Int64, Int32) -> Int32
 private typealias RadioChangedFunction = @convention(c) (Int64) -> Int32
@@ -83,6 +85,7 @@ private final class NativeSplitRuntime {
     private let textChangedFunction: TextChangedFunction
     private let submitFunction: SubmitFunction
     private let dismissFunction: DismissFunction
+    private let pickedFunction: PickedFunction
     private let doublePressFunction: DoublePressFunction
     private let toggleChangedFunction: ToggleChangedFunction
     private let radioChangedFunction: RadioChangedFunction
@@ -102,6 +105,7 @@ private final class NativeSplitRuntime {
         textChangedFunction = try Self.load("lui_ocaml_text_changed", from: handle)
         submitFunction = try Self.load("lui_ocaml_submit", from: handle)
         dismissFunction = try Self.load("lui_ocaml_dismiss", from: handle)
+        pickedFunction = try Self.load("lui_ocaml_picked", from: handle)
         doublePressFunction = try Self.load("lui_ocaml_double_press", from: handle)
         toggleChangedFunction = try Self.load("lui_ocaml_toggle_changed", from: handle)
         radioChangedFunction = try Self.load("lui_ocaml_radio_changed", from: handle)
@@ -135,6 +139,12 @@ private final class NativeSplitRuntime {
 
     func dismiss(node: Int) { _ = dismissFunction(Int64(node)) }
 
+    func picked(node: Int, payload: String) {
+        payload.withCString { source in
+            _ = pickedFunction(Int64(node), source)
+        }
+    }
+
     func doublePress(node: Int) { _ = doublePressFunction(Int64(node)) }
 
     func toggleChanged(node: Int, checked: Bool) {
@@ -237,6 +247,8 @@ private final class SplitDemoHost: NSObject, NSApplicationDelegate, NSWindowDele
                     self?.runtime?.sliderChanged(node: node, value: value)
                 case let .dismiss(node):
                     self?.runtime?.dismiss(node: node)
+                case let .picked(node, payload):
+                    self?.runtime?.picked(node: node, payload: payload)
                 case let .doublePress(node):
                     self?.runtime?.doublePress(node: node)
                 case let .`extension`(node, identifier, name, values):

examples/split/native/split_bridge.ml

@@ -72,6 +72,8 @@ let submit node = dispatch (Submit node)
 
 let dismiss node = dispatch (Dismiss node)
 
+let picked node payload = dispatch (Picked (node, payload))
+
 let double_press node = dispatch (DoublePress node)
 
 let toggle_changed node checked = dispatch (ToggleChanged (node, checked))
@@ -106,6 +108,7 @@ let () =
   Callback.register "lui_ocaml_text_changed" text_changed;
   Callback.register "lui_ocaml_submit" submit;
   Callback.register "lui_ocaml_dismiss" dismiss;
+  Callback.register "lui_ocaml_picked" picked;
   Callback.register "lui_ocaml_double_press" double_press;
   Callback.register "lui_ocaml_toggle_changed" toggle_changed;
   Callback.register "lui_ocaml_radio_changed" radio_changed;

examples/todos/macos-appkit/Sources/LUITodos/main.swift

@@ -14,6 +14,8 @@ private typealias TextChangedFunction =
     @convention(c) (Int64, UnsafePointer<CChar>?) -> Int32
 private typealias SubmitFunction = @convention(c) (Int64) -> Int32
 private typealias DismissFunction = @convention(c) (Int64) -> Int32
+private typealias PickedFunction =
+    @convention(c) (Int64, UnsafePointer<CChar>?) -> Int32
 private typealias DoublePressFunction = @convention(c) (Int64) -> Int32
 private typealias ToggleChangedFunction = @convention(c) (Int64, Int32) -> Int32
 private typealias RadioChangedFunction = @convention(c) (Int64) -> Int32
@@ -39,6 +41,7 @@ private final class NativeTodosRuntime {
     private let textChangedFunction: TextChangedFunction
     private let submitFunction: SubmitFunction
     private let dismissFunction: DismissFunction
+    private let pickedFunction: PickedFunction
     private let doublePressFunction: DoublePressFunction
     private let toggleChangedFunction: ToggleChangedFunction
     private let radioChangedFunction: RadioChangedFunction
@@ -56,6 +59,7 @@ private final class NativeTodosRuntime {
         textChangedFunction = try Self.load("lui_ocaml_text_changed", from: handle)
         submitFunction = try Self.load("lui_ocaml_submit", from: handle)
         dismissFunction = try Self.load("lui_ocaml_dismiss", from: handle)
+        pickedFunction = try Self.load("lui_ocaml_picked", from: handle)
         doublePressFunction = try Self.load("lui_ocaml_double_press", from: handle)
         toggleChangedFunction = try Self.load("lui_ocaml_toggle_changed", from: handle)
         radioChangedFunction = try Self.load("lui_ocaml_radio_changed", from: handle)
@@ -94,6 +98,12 @@ private final class NativeTodosRuntime {
         _ = dismissFunction(Int64(node))
     }
 
+    func picked(node: Int, payload: String) {
+        payload.withCString { source in
+            _ = pickedFunction(Int64(node), source)
+        }
+    }
+
     func doublePress(node: Int) {
         _ = doublePressFunction(Int64(node))
     }
@@ -161,6 +171,8 @@ private final class TodosHost: NSObject, NSApplicationDelegate, NSWindowDelegate
                     self?.runtime?.sliderChanged(node: node, value: value)
                 case let .dismiss(node):
                     self?.runtime?.dismiss(node: node)
+                case let .picked(node, payload):
+                    self?.runtime?.picked(node: node, payload: payload)
                 case let .doublePress(node):
                     self?.runtime?.doublePress(node: node)
                 }

examples/todos/native/todos_bridge.ml

@@ -71,6 +71,8 @@ let submit node = dispatch (Submit node)
 
 let dismiss node = dispatch (Dismiss node)
 
+let picked node payload = dispatch (Picked (node, payload))
+
 let double_press node = dispatch (DoublePress node)
 
 let toggle_changed node checked = dispatch (ToggleChanged (node, checked))
@@ -94,6 +96,7 @@ let () =
   Callback.register "lui_ocaml_text_changed" text_changed;
   Callback.register "lui_ocaml_submit" submit;
   Callback.register "lui_ocaml_dismiss" dismiss;
+  Callback.register "lui_ocaml_picked" picked;
   Callback.register "lui_ocaml_double_press" double_press;
   Callback.register "lui_ocaml_toggle_changed" toggle_changed;
   Callback.register "lui_ocaml_radio_changed" radio_changed;