frust-widgets 0.5.2

//! Padding layout container: insets a single child.
//!
//! [`PaddingView`]/[`PaddingWidget`] deflate the incoming constraints by the
//! [`EdgeInsets`], lay the child out in the reduced space, offset it by the
//! top-left insets, and report a size of `child + insets` (clamped to the
//! original constraints).

use frust_core::{
    BoxConstraints, BuildCtx, ChangeFlags, ChildPod, EventCtx, EventResult, InputEvent, LayoutCtx,
    PaintCtx, PaintScene, SemanticsCtx, View, Widget, any,
};
use kurbo::{Point, Size};

/// Per-edge inset amounts, in logical pixels.
///
/// Negative insets clamp to zero; intentional overflow/bleed is a decorated-box concern,
/// not Padding's.
#[derive(Clone, Copy, Debug, PartialEq)]
pub struct EdgeInsets {
    /// Inset from the left edge.
    pub left: f64,
    /// Inset from the top edge.
    pub top: f64,
    /// Inset from the right edge.
    pub right: f64,
    /// Inset from the bottom edge.
    pub bottom: f64,
}

impl EdgeInsets {
    /// Equal inset on all four edges.
    pub fn all(value: f64) -> Self {
        Self {
            left: value,
            top: value,
            right: value,
            bottom: value,
        }
    }

    /// Symmetric horizontal (`left == right`) and vertical (`top == bottom`) insets.
    pub fn symmetric(horizontal: f64, vertical: f64) -> Self {
        Self {
            left: horizontal,
            top: vertical,
            right: horizontal,
            bottom: vertical,
        }
    }

    /// Total horizontal inset (`left + right`).
    #[allow(dead_code)]
    fn horizontal(&self) -> f64 {
        self.left + self.right
    }

    /// Total vertical inset (`top + bottom`).
    #[allow(dead_code)]
    fn vertical(&self) -> f64 {
        self.top + self.bottom
    }
}

/// A declarative padding container. See the [module docs](self).
pub struct PaddingView<State: 'static> {
    insets: EdgeInsets,
    child: frust_core::AnyView<State>,
}

/// Inset `child` by `insets` on each edge.
#[allow(non_snake_case)]
pub fn Padding<State: 'static, V: View<State>>(insets: EdgeInsets, child: V) -> PaddingView<State> {
    PaddingView {
        insets,
        child: any(child),
    }
}

/// The retained widget for a [`PaddingView`].
pub struct PaddingWidget {
    insets: EdgeInsets,
    child: ChildPod,
}

impl<State: 'static> View<State> for PaddingView<State> {
    type Element = PaddingWidget;

    fn build(&self, ctx: &mut BuildCtx<'_>) -> PaddingWidget {
        PaddingWidget {
            insets: self.insets,
            child: crate::authoring::build_child(&self.child, ctx),
        }
    }

    fn rebuild(
        &self,
        prev: &Self,
        element: &mut PaddingWidget,
        ctx: &mut BuildCtx<'_>,
    ) -> ChangeFlags {
        let mut flags = ChangeFlags::NONE;
        if prev.insets != self.insets {
            element.insets = self.insets;
            flags |= ChangeFlags::LAYOUT;
        }
        flags |= crate::authoring::rebuild_child(&prev.child, &self.child, &mut element.child, ctx);
        flags
    }

    fn teardown(&self, element: &mut PaddingWidget, ctx: &mut BuildCtx<'_>) {
        crate::authoring::teardown_child(&self.child, &mut element.child, ctx);
    }
}

impl Widget for PaddingWidget {
    fn layout(&mut self, ctx: &mut LayoutCtx, bc: &BoxConstraints) -> Size {
        // Clamp insets to zero to prevent negative values from expanding child
        // constraints or placing the child at negative coordinates.
        let left = self.insets.left.max(0.0);
        let top = self.insets.top.max(0.0);
        let right = self.insets.right.max(0.0);
        let bottom = self.insets.bottom.max(0.0);
        let h = left + right;
        let v = top + bottom;
        // Deflate the constraints by the insets (never below zero — insets larger
        // than the available space collapse the child to nothing).
        let child_bc = BoxConstraints::new(
            Size::new(
                (bc.min().width - h).max(0.0),
                (bc.min().height - v).max(0.0),
            ),
            Size::new(
                (bc.max().width - h).max(0.0),
                (bc.max().height - v).max(0.0),
            ),
        );
        let child_size = self.child.layout_child(ctx, &child_bc);
        self.child.set_origin(Point::new(left, top));
        bc.constrain(Size::new(child_size.width + h, child_size.height + v))
    }

    fn paint(&mut self, ctx: &mut PaintCtx, scene: &mut dyn PaintScene) {
        self.child.paint_child(ctx, scene);
    }

    fn event(&mut self, ctx: &mut EventCtx, event: &InputEvent) -> EventResult {
        crate::authoring::route_event_single(&mut self.child, ctx, event)
    }

    fn semantics(&self, ctx: &mut SemanticsCtx) {
        // Transparent inset wrapper: forward to the single child.
        self.child.semantics_child(ctx);
    }

    crate::authoring::visit_children!(child);
}

#[cfg(test)]
mod tests {
    use super::*;
    use crate::test_support::leaf;
    use frust_core::{BuildCtx, PointerButton, PointerEvent, PointerPhase};
    use std::any::Any;

    fn build<S: 'static>(view: &PaddingView<S>) -> PaddingWidget {
        let mut counter = 0u64;
        view.build(&mut BuildCtx::new(&mut counter))
    }

    #[test]
    fn adds_insets_around_child() {
        // 40x20 child, insets (l=5, t=10, r=15, b=20) → size 60x50, child at (5,10).
        let view: PaddingView<()> = Padding(
            EdgeInsets {
                left: 5.0,
                top: 10.0,
                right: 15.0,
                bottom: 20.0,
            },
            leaf(40.0, 20.0),
        );
        let mut w = build(&view);
        let mut lctx = LayoutCtx::new();
        let size = w.layout(&mut lctx, &BoxConstraints::loose(Size::new(500.0, 500.0)));
        assert_eq!(size, Size::new(60.0, 50.0));
        assert_eq!(w.child.origin(), Point::new(5.0, 10.0));
        assert_eq!(w.child.size(), Size::new(40.0, 20.0));
    }

    #[test]
    fn clamps_when_insets_exceed_max() {
        // Uniform 100px inset but only 50x50 available: the child collapses to
        // zero and the padding's own size clamps back to the 50x50 max.
        let view: PaddingView<()> = Padding(EdgeInsets::all(100.0), leaf(30.0, 30.0));
        let mut w = build(&view);
        let mut lctx = LayoutCtx::new();
        let size = w.layout(&mut lctx, &BoxConstraints::loose(Size::new(50.0, 50.0)));
        assert_eq!(w.child.size(), Size::ZERO);
        assert_eq!(size, Size::new(50.0, 50.0));
    }

    #[test]
    fn negative_insets_clamp_to_zero() {
        // Negative insets should behave identically to zero insets: the child size
        // stays the same and is placed at the origin.
        let view_negative: PaddingView<()> = Padding(
            EdgeInsets {
                left: -5.0,
                top: -10.0,
                right: -15.0,
                bottom: -20.0,
            },
            leaf(40.0, 20.0),
        );
        let view_zero: PaddingView<()> = Padding(EdgeInsets::all(0.0), leaf(40.0, 20.0));

        let mut w_negative = build(&view_negative);
        let mut w_zero = build(&view_zero);
        let mut lctx = LayoutCtx::new();

        let size_negative =
            w_negative.layout(&mut lctx, &BoxConstraints::loose(Size::new(500.0, 500.0)));
        let size_zero = w_zero.layout(&mut lctx, &BoxConstraints::loose(Size::new(500.0, 500.0)));

        assert_eq!(
            size_negative, size_zero,
            "negative and zero insets should produce the same size"
        );
        assert_eq!(
            w_negative.child.origin(),
            w_zero.child.origin(),
            "negative and zero insets should place child at the same origin"
        );
        assert_eq!(
            w_negative.child.size(),
            w_zero.child.size(),
            "negative and zero insets should give child the same size"
        );
    }

    // -- Capture routing (review R1: a captured child must keep receiving
    // events regardless of hit geometry, not just while the point is still
    // over it) --

    #[derive(Default)]
    struct Counter {
        presses: u32,
    }

    fn pointer_ev(phase: PointerPhase, x: f64, y: f64) -> InputEvent {
        InputEvent::Pointer(PointerEvent {
            phase,
            position: Point::new(x, y),
            button: PointerButton::Primary,
        })
    }

    /// Build a `Padding(Button)`, laid out under generous constraints so the
    /// child has real geometry to hit-test/capture against.
    fn button_padding(insets: EdgeInsets) -> PaddingWidget {
        let view: PaddingView<Counter> = Padding(
            insets,
            crate::button::<Counter, _>("go", |s: &mut Counter| s.presses += 1),
        );
        let mut w = build(&view);
        let mut text_ctx = frust_text::TextContext::new();
        let mut lctx = LayoutCtx::with_text_context(&mut text_ctx);
        w.layout(&mut lctx, &BoxConstraints::loose(Size::new(500.0, 500.0)));
        w
    }

    fn dispatch<S: 'static>(
        w: &mut PaddingWidget,
        state: &mut S,
        event: &InputEvent,
    ) -> EventResult {
        let state_any: &mut dyn Any = state;
        let mut ctx = EventCtx::new(state_any, Point::ZERO, Size::new(500.0, 500.0));
        w.event(&mut ctx, event)
    }

    #[test]
    fn captured_button_receives_move_and_up_outside_its_bounds() {
        let mut w = button_padding(EdgeInsets::all(10.0));
        let mut state = Counter::default();
        let origin = w.child.origin();
        let size = w.child.size();
        assert!(
            size.width > 0.0 && size.height > 0.0,
            "button should have real geometry from layout"
        );

        let inside = Point::new(origin.x + 2.0, origin.y + 2.0);
        assert_eq!(
            dispatch(
                &mut w,
                &mut state,
                &pointer_ev(PointerPhase::Down, inside.x, inside.y)
            ),
            EventResult::Handled
        );
        assert!(w.child.is_active(), "down captures the pointer");

        // Move far outside the child's bounds — must still reach the child
        // because it holds the capture, not because the point is over it.
        let outside = Point::new(
            origin.x + size.width + 100.0,
            origin.y + size.height + 100.0,
        );
        assert_eq!(
            dispatch(
                &mut w,
                &mut state,
                &pointer_ev(PointerPhase::Move, outside.x, outside.y)
            ),
            EventResult::Handled,
            "a captured Move outside the child's bounds must still route to it"
        );

        assert_eq!(
            dispatch(
                &mut w,
                &mut state,
                &pointer_ev(PointerPhase::Up, outside.x, outside.y)
            ),
            EventResult::Handled,
            "the capturing Up must still route to the child even though it's outside"
        );
        assert_eq!(
            state.presses, 0,
            "up outside the button must not fire on_press"
        );
        assert!(!w.child.is_active(), "capture releases on Up");
    }

    #[test]
    fn captured_button_fires_on_move_back_inside_then_up() {
        let mut w = button_padding(EdgeInsets::all(10.0));
        let mut state = Counter::default();
        let origin = w.child.origin();
        let size = w.child.size();

        let inside = Point::new(origin.x + 2.0, origin.y + 2.0);
        dispatch(
            &mut w,
            &mut state,
            &pointer_ev(PointerPhase::Down, inside.x, inside.y),
        );

        let outside = Point::new(origin.x + size.width + 100.0, origin.y);
        dispatch(
            &mut w,
            &mut state,
            &pointer_ev(PointerPhase::Move, outside.x, outside.y),
        );

        let back_inside = Point::new(origin.x + 4.0, origin.y + 4.0);
        dispatch(
            &mut w,
            &mut state,
            &pointer_ev(PointerPhase::Move, back_inside.x, back_inside.y),
        );

        dispatch(
            &mut w,
            &mut state,
            &pointer_ev(PointerPhase::Up, back_inside.x, back_inside.y),
        );
        assert_eq!(state.presses, 1, "up back inside must fire on_press");
    }

    #[test]
    fn captured_slider_move_outside_insets_still_reports_value() {
        // Padding(Slider) with insets: the inset margin is space the padding
        // owns but the child does not — a captured drag that strays into it
        // must still reach the slider.
        #[derive(Default)]
        struct Val {
            changes: u32,
        }

        let view: PaddingView<Val> = Padding(
            EdgeInsets::all(20.0),
            crate::slider::<Val, _>(0.0, |s: &mut Val, _v: f64| s.changes += 1),
        );
        let mut w = build(&view);
        let mut lctx = LayoutCtx::new(); // Slider's layout needs no text context.
        w.layout(&mut lctx, &BoxConstraints::loose(Size::new(500.0, 500.0)));
        let origin = w.child.origin();

        let mut state = Val::default();
        dispatch(
            &mut w,
            &mut state,
            &pointer_ev(PointerPhase::Down, origin.x + 10.0, origin.y + 5.0),
        );
        assert_eq!(state.changes, 1);
        assert!(w.child.is_active());

        // A captured Move landing inside the inset margin (outside the child's
        // origin.x) must still fire on_change.
        let outside = Point::new(5.0, origin.y + 5.0);
        assert!(
            !w.child.contains(outside),
            "sanity: the point is outside the child"
        );
        assert_eq!(
            dispatch(
                &mut w,
                &mut state,
                &pointer_ev(PointerPhase::Move, outside.x, outside.y)
            ),
            EventResult::Handled
        );
        assert_eq!(
            state.changes, 2,
            "captured Move outside the child must still fire on_change"
        );
    }

    #[test]
    fn active_clears_on_up_so_a_later_down_elsewhere_is_not_routed() {
        let mut w = button_padding(EdgeInsets::all(10.0));
        let mut state = Counter::default();
        let origin = w.child.origin();

        let inside = Point::new(origin.x + 2.0, origin.y + 2.0);
        dispatch(
            &mut w,
            &mut state,
            &pointer_ev(PointerPhase::Down, inside.x, inside.y),
        );
        dispatch(
            &mut w,
            &mut state,
            &pointer_ev(PointerPhase::Up, inside.x, inside.y),
        );
        assert!(!w.child.is_active(), "capture releases on Up");

        // A Down far away, outside the child's bounds, must now be ignored —
        // not routed to the (no-longer-active) child.
        assert_eq!(
            dispatch(
                &mut w,
                &mut state,
                &pointer_ev(PointerPhase::Down, 400.0, 400.0)
            ),
            EventResult::Ignored
        );
    }

    // -- Type-swap capture clearing: `rebuild_child` must
    // clear a stale capture on an AnyView type swap the same way
    // `rebuild_children` does for `Flex`/`Stack`, or a captured single child's
    // fresh replacement wrongly keeps routing after the swap --

    use std::cell::Cell;
    use std::rc::Rc;

    const CHILD_W: f64 = 50.0;
    const CHILD_H: f64 = 20.0;

    /// A child that captures the pointer on `Down` and fires its id into the
    /// `Vec<u32>` app state on an up-inside.
    struct Captor {
        id: u32,
    }
    struct CaptorWidget {
        id: u32,
        armed: bool,
    }

    impl View<Vec<u32>> for Captor {
        type Element = CaptorWidget;
        fn build(&self, _ctx: &mut BuildCtx<'_>) -> CaptorWidget {
            CaptorWidget {
                id: self.id,
                armed: false,
            }
        }
        fn rebuild(
            &self,
            _prev: &Self,
            element: &mut CaptorWidget,
            _ctx: &mut BuildCtx<'_>,
        ) -> ChangeFlags {
            element.id = self.id;
            ChangeFlags::NONE
        }
    }

    impl Widget for CaptorWidget {
        fn layout(&mut self, _ctx: &mut LayoutCtx, bc: &BoxConstraints) -> Size {
            bc.constrain(Size::new(CHILD_W, CHILD_H))
        }
        fn paint(&mut self, _ctx: &mut PaintCtx, _scene: &mut dyn PaintScene) {}
        fn event(&mut self, ctx: &mut EventCtx, event: &InputEvent) -> EventResult {
            let InputEvent::Pointer(p) = event else {
                return EventResult::Ignored;
            };
            match p.phase {
                PointerPhase::Down => {
                    self.armed = true;
                    ctx.capture_pointer();
                    EventResult::Handled
                }
                PointerPhase::Move => EventResult::Handled,
                PointerPhase::Up => {
                    if self.armed {
                        ctx.state_mut::<Vec<u32>>().push(self.id);
                    }
                    self.armed = false;
                    EventResult::Handled
                }
                PointerPhase::Cancel => {
                    self.armed = false;
                    EventResult::Handled
                }
            }
        }
    }

    /// A child that records into a shared cell that it saw *any* event — used
    /// to prove a freshly type-swapped widget receives nothing.
    struct Recorder {
        seen: Rc<Cell<u32>>,
    }
    struct RecorderWidget {
        seen: Rc<Cell<u32>>,
    }

    impl View<Vec<u32>> for Recorder {
        type Element = RecorderWidget;
        fn build(&self, _ctx: &mut BuildCtx<'_>) -> RecorderWidget {
            RecorderWidget {
                seen: self.seen.clone(),
            }
        }
        fn rebuild(
            &self,
            _prev: &Self,
            _element: &mut RecorderWidget,
            _ctx: &mut BuildCtx<'_>,
        ) -> ChangeFlags {
            ChangeFlags::NONE
        }
    }

    impl Widget for RecorderWidget {
        fn layout(&mut self, _ctx: &mut LayoutCtx, bc: &BoxConstraints) -> Size {
            bc.constrain(Size::new(CHILD_W, CHILD_H))
        }
        fn paint(&mut self, _ctx: &mut PaintCtx, _scene: &mut dyn PaintScene) {}
        fn event(&mut self, _ctx: &mut EventCtx, _event: &InputEvent) -> EventResult {
            self.seen.set(self.seen.get() + 1);
            EventResult::Handled
        }
    }

    #[test]
    fn type_swap_at_captured_child_stops_gutter_misrouting() {
        // Full geometry scenario: Padding(captor) with real insets; a Down
        // inside the child arms/captures it; a rebuild swaps the child's
        // concrete type; then a Down landing in the padding's GUTTER (inside
        // the padding's own bounds, outside the fresh child's bounds) must
        // reach nothing — the stale `active` flag must not have survived the
        // swap to bypass `contains()` and misroute the gutter Down into the
        // fresh (unrelated) widget.
        let insets = EdgeInsets::all(20.0);
        let prev: PaddingView<Vec<u32>> = Padding(insets, Captor { id: 0 });
        let mut counter = 0u64;
        let mut w = prev.build(&mut BuildCtx::new(&mut counter));
        let mut lctx = LayoutCtx::new();
        w.layout(&mut lctx, &BoxConstraints::loose(Size::new(500.0, 500.0)));

        let mut log: Vec<u32> = Vec::new();
        let origin = w.child.origin();
        let inside = Point::new(origin.x + 5.0, origin.y + 5.0);
        dispatch(
            &mut w,
            &mut log,
            &pointer_ev(PointerPhase::Down, inside.x, inside.y),
        );
        assert!(
            w.child.is_active(),
            "down inside the child arms/captures it"
        );

        // Rebuild: swap the child's concrete type (Captor -> Recorder).
        let seen = Rc::new(Cell::new(0u32));
        let swapped: PaddingView<Vec<u32>> = Padding(insets, Recorder { seen: seen.clone() });
        swapped.rebuild(&prev, &mut w, &mut BuildCtx::new(&mut counter));
        w.layout(&mut lctx, &BoxConstraints::loose(Size::new(500.0, 500.0)));
        assert!(
            !w.child.is_active(),
            "the type swap must clear the stale capture"
        );

        // A Down landing in the gutter — inside the padding's own bounds,
        // outside the fresh child's — must be ignored entirely.
        let gutter = Point::new(5.0, 5.0);
        assert!(
            !w.child.contains(gutter),
            "sanity: the gutter point is outside the child"
        );
        let result = dispatch(
            &mut w,
            &mut log,
            &pointer_ev(PointerPhase::Down, gutter.x, gutter.y),
        );
        assert_eq!(
            result,
            EventResult::Ignored,
            "a gutter Down must not be routed anywhere"
        );
        assert_eq!(
            seen.get(),
            0,
            "the fresh widget must receive nothing from the stale-capture path"
        );
    }
}