agg-gui 0.2.0

//! `ScrollView` — scrolling container with egui-style scrollbars.
//!
//! Supports vertical, horizontal, or bidirectional scrolling.  The scrollbar
//! can be styled in detail (bar width, margins, fade, solid vs floating) via
//! [`ScrollBarStyle`] — set by value, by builder, or bound to an
//! `Rc<Cell<ScrollBarStyle>>` for live tweaking (used by the demo Appearance
//! tab).
//!
//! # Coordinate system
//! All local coordinates are Y-up.  `scroll_offset` is "how far the user has
//! scrolled down from the top" — `0` shows the TOP of the content,
//! `max_scroll_y` shows the BOTTOM.  Same convention for horizontal:
//! `h_scroll_offset = 0` shows the LEFT of the content.
//!
//! # Virtual rendering
//! `with_viewport_cell(Rc<Cell<Rect>>)` publishes the currently-visible
//! content-space rect each layout.  Children that want to cull off-viewport
//! work (e.g. painting 10k row labels) read this cell and limit their paint.

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

use crate::color::Color;
use crate::draw_ctx::DrawCtx;
use crate::event::{Event, EventResult, MouseButton};
use crate::geometry::{Point, Rect, Size};
use crate::layout_props::{HAnchor, Insets, VAnchor, WidgetBase};
use crate::widget::Widget;

use super::scrollbar::{
    paint_prepared_scrollbar, ScrollbarAxis, ScrollbarGeometry, ScrollbarOrientation,
    DEFAULT_GRAB_MARGIN,
};

/// How the scrollbar is shown.  Matches egui's `ScrollBarVisibility`.
///
/// Hover-only behaviour is controlled by [`ScrollBarKind::Floating`] on the
/// [`ScrollBarStyle`], not by this enum — a Floating bar with
/// `VisibleWhenNeeded` only appears on hover; a Solid bar with
/// `VisibleWhenNeeded` is always visible when content overflows.
#[derive(Clone, Copy, Debug, PartialEq, Eq)]
pub enum ScrollBarVisibility {
    /// Paint whenever content overflows, regardless of hover.
    AlwaysVisible,
    /// Paint when content overflows.  If the style is `Floating` the bar
    /// additionally hides until the cursor enters the hover zone.
    VisibleWhenNeeded,
    /// Never paint — wheel/drag still work, but no visual indicator.
    AlwaysHidden,
}

impl Default for ScrollBarVisibility {
    fn default() -> Self {
        Self::VisibleWhenNeeded
    }
}

/// Whether the bar reserves layout space (Solid) or floats over content (Floating).
#[derive(Clone, Copy, Debug, PartialEq, Eq)]
pub enum ScrollBarKind {
    Solid,
    Floating,
}

impl Default for ScrollBarKind {
    fn default() -> Self {
        Self::Floating
    }
}

/// Which pair of colours is used for the track vs thumb.
#[derive(Clone, Copy, Debug, PartialEq, Eq)]
pub enum ScrollBarColor {
    /// Track = neutral background; thumb = slightly brighter.  Default.
    Background,
    /// Track = transparent; thumb = accent-tinted foreground.
    Foreground,
}

impl Default for ScrollBarColor {
    fn default() -> Self {
        Self::Background
    }
}

/// Full scrollbar appearance configuration — mirrors egui's `style.spacing.scroll`.
#[derive(Clone, Copy, Debug, PartialEq)]
pub struct ScrollBarStyle {
    /// Width of the full-size bar in pixels.  This is the bar width when the
    /// user is hovering or interacting with it.
    pub bar_width: f64,
    /// Thin width shown when the bar is dormant (not hovered, not dragging).
    /// Matches egui's `floating_width`.  On hover the bar grows from this to
    /// [`Self::bar_width`].  Set equal to `bar_width` to disable the expand
    /// effect.  Only takes effect when smaller than `bar_width`.
    pub floating_width: f64,
    /// Minimum length of the draggable thumb.
    pub handle_min_length: f64,
    /// Space between the bar and the panel's outer edge.
    pub outer_margin: f64,
    /// Space between the bar and the content area.
    pub inner_margin: f64,
    /// Space between sibling content and the bar area (applied when `kind = Solid`
    /// and as a decorative inset when `Floating`).
    pub content_margin: f64,
    /// `true` = use one value for both axes; `false` = each axis may differ
    /// (we keep a single value here for brevity and apply it to both).
    pub margin_same: bool,
    /// Bar kind — Solid reserves space in layout, Floating overlays content.
    pub kind: ScrollBarKind,
    /// Which colour role the bar uses.
    pub color: ScrollBarColor,
    /// Alpha of the fade-out region along the scroll-axis edges, 0..1.
    pub fade_strength: f64,
    /// Length of the fade region in pixels at each end.
    pub fade_size: f64,
}

impl ScrollBarStyle {
    /// Interpolated bar width for a hover-animation parameter `t` in `[0, 1]`.
    /// `t = 0` returns [`Self::floating_width`] (dormant); `t = 1` returns
    /// [`Self::bar_width`] (fully expanded).  Clamps `floating_width` so it
    /// never exceeds `bar_width`, regardless of what the caller set.
    ///
    /// [`ScrollBarKind::Solid`] bars do not animate width — they always
    /// render at `bar_width` so the "Full bar width" setting takes immediate
    /// visible effect.  Only [`ScrollBarKind::Floating`] bars expand on hover.
    pub fn bar_width_at(&self, t: f64) -> f64 {
        if self.kind == ScrollBarKind::Solid {
            return self.bar_width;
        }
        let from = self.floating_width.min(self.bar_width);
        let t = t.clamp(0.0, 1.0);
        from + (self.bar_width - from) * t
    }
}

impl Default for ScrollBarStyle {
    fn default() -> Self {
        Self {
            bar_width: 10.0,
            floating_width: 2.0,
            handle_min_length: 12.0,
            outer_margin: 0.0,
            inner_margin: 4.0,
            content_margin: 0.0,
            margin_same: true,
            kind: ScrollBarKind::default(),
            color: ScrollBarColor::Foreground,
            fade_strength: 0.5,
            fade_size: 20.0,
        }
    }
}

impl ScrollBarStyle {
    /// Preset matching egui's `ScrollStyle::solid` — always-visible bar, solid
    /// layout, fills reserved space.  Solid bars don't expand on hover so
    /// `floating_width` equals `bar_width`.
    pub fn solid() -> Self {
        Self {
            bar_width: 6.0,
            floating_width: 2.0,
            handle_min_length: 12.0,
            outer_margin: 0.0,
            inner_margin: 4.0,
            content_margin: 0.0,
            margin_same: true,
            kind: ScrollBarKind::Solid,
            color: ScrollBarColor::Background,
            fade_strength: 0.5,
            fade_size: 20.0,
        }
    }
    /// Preset matching egui's `ScrollStyle::thin` — a narrow floating bar
    /// that's always visible at its thin width and expands to full width when
    /// hovered.  Callers should pair this with
    /// [`ScrollBarVisibility::AlwaysVisible`] so the dormant thin bar is
    /// rendered even when the cursor isn't over it (the appearance panel's
    /// preset button does this).
    pub fn thin() -> Self {
        Self {
            bar_width: 10.0,
            floating_width: 2.0,
            handle_min_length: 12.0,
            outer_margin: 0.0,
            inner_margin: 4.0,
            content_margin: 0.0,
            margin_same: true,
            kind: ScrollBarKind::Floating,
            color: ScrollBarColor::Background,
            fade_strength: 0.5,
            fade_size: 20.0,
        }
    }
    /// Preset matching egui's `ScrollStyle::floating` — wide floating overlay
    /// with fade gradient at the edges.
    pub fn floating() -> Self {
        Self::default()
    }
}

// ── Global scroll style ─────────────────────────────────────────────────────
//
// Every `ScrollView` reads this value each layout unless the caller supplied
// an explicit `with_style(...)` or `with_style_cell(...)`.  The Appearance
// demo writes to this global so that "one slider affects every scroll bar in
// the application" — matching egui's `all_styles_mut` behaviour.

std::thread_local! {
    static CURRENT_SCROLL_STYLE:      Cell<ScrollBarStyle>      = Cell::new(ScrollBarStyle::default());
    static CURRENT_SCROLL_VISIBILITY: Cell<ScrollBarVisibility> = Cell::new(ScrollBarVisibility::VisibleWhenNeeded);
    static SCROLL_STYLE_EPOCH:        Cell<u64>                 = Cell::new(1);
}

/// Read the current global scroll-bar style.
pub fn current_scroll_style() -> ScrollBarStyle {
    CURRENT_SCROLL_STYLE.with(|c| c.get())
}

/// Replace the global scroll-bar style.  All subsequent `ScrollView` layouts
/// that don't have an explicit override pick this up.
pub fn set_scroll_style(s: ScrollBarStyle) {
    CURRENT_SCROLL_STYLE.with(|c| c.set(s));
    SCROLL_STYLE_EPOCH.with(|c| c.set(c.get().wrapping_add(1)));
    crate::animation::request_draw();
}

/// Read the current global scroll-bar visibility policy.
pub fn current_scroll_visibility() -> ScrollBarVisibility {
    CURRENT_SCROLL_VISIBILITY.with(|c| c.get())
}

/// Replace the global scroll-bar visibility policy.  Every `ScrollView` that
/// doesn't bind its own `with_bar_visibility_cell(...)` or call
/// `with_bar_visibility(...)` reads this value on each layout.
pub fn set_scroll_visibility(v: ScrollBarVisibility) {
    CURRENT_SCROLL_VISIBILITY.with(|c| c.set(v));
    SCROLL_STYLE_EPOCH.with(|c| c.set(c.get().wrapping_add(1)));
    crate::animation::request_draw();
}

fn current_scroll_style_epoch() -> u64 {
    SCROLL_STYLE_EPOCH.with(|c| c.get())
}

// ── Helpers ──────────────────────────────────────────────────────────────────

// ── Runtime constants ────────────────────────────────────────────────────────

/// Pixels at the right edge reserved for the parent window's resize grip.
const RIGHT_EDGE_GUARD: f64 = 4.0;
/// Pixels at the bottom edge reserved for the parent window's resize grip.
const BOTTOM_EDGE_GUARD: f64 = 4.0;

// ── Per-axis state (vertical or horizontal) ──────────────────────────────────
//
// The vertical and horizontal scroll axes share the same computation — we
// factor the state so both reuse `clamp_offset` / `thumb_metrics` logic.

pub struct ScrollView {
    bounds: Rect,
    children: Vec<Box<dyn Widget>>, // always 0 or 1
    base: WidgetBase,

    v: ScrollbarAxis,
    h: ScrollbarAxis,

    /// Keep the scrollbar glued to the bottom as content grows (while the
    /// user hasn't scrolled away from the end).
    stick_to_bottom: bool,
    was_at_bottom: bool,

    /// How to render the scrollbar.
    bar_visibility: ScrollBarVisibility,
    /// `true` when the caller supplied an explicit per-instance visibility via
    /// [`ScrollView::with_bar_visibility`].  When `false` and
    /// `visibility_cell` is unset, the global visibility from
    /// [`current_scroll_visibility`] is re-read each layout.
    visibility_explicit: bool,
    style: ScrollBarStyle,
    /// `true` when the caller supplied an explicit per-instance style via
    /// [`ScrollView::with_style`].  When `false` and `style_cell` is unset,
    /// the global style from [`current_scroll_style`] is re-read each layout.
    style_explicit: bool,

    // ── External cell bindings ──
    offset_cell: Option<Rc<Cell<f64>>>,
    max_scroll_cell: Option<Rc<Cell<f64>>>,
    h_offset_cell: Option<Rc<Cell<f64>>>,
    h_max_scroll_cell: Option<Rc<Cell<f64>>>,
    visibility_cell: Option<Rc<Cell<ScrollBarVisibility>>>,
    style_cell: Option<Rc<Cell<ScrollBarStyle>>>,
    /// Visible viewport rect in content-space Y-up coordinates, written each
    /// layout.  Children doing virtual rendering read this cell.
    viewport_cell: Option<Rc<Cell<Rect>>>,
    painted_style_epoch: Cell<u64>,

    /// Optional override for the edge-fade gradient colour.  When unset we
    /// use `Visuals::window_fill`, which is correct for the **default**
    /// case where the scroll view sits directly on a window.
    ///
    /// **TRAP:** when the `ScrollView` sits on top of a custom-coloured
    /// container (e.g. a `FlexColumn::with_panel_bg()` panel, a
    /// `Container::with_background(...)` card, a debug visualiser, or
    /// any non-window background), the default fade looks like a bright
    /// white halo against your panel.  Set this to the actual ancestor
    /// background colour in that case.  See
    /// [`ScrollView::with_fade_color`].
    fade_color: Option<Color>,

    middle_dragging: bool,
    middle_start_world: Point,
    middle_start_v_offset: f64,
    middle_start_h_offset: f64,
}

impl ScrollView {
    pub fn new(content: Box<dyn Widget>) -> Self {
        Self {
            bounds: Rect::default(),
            children: vec![content],
            base: WidgetBase::new(),
            v: ScrollbarAxis {
                enabled: true,
                ..ScrollbarAxis::default()
            },
            h: ScrollbarAxis::default(),
            stick_to_bottom: false,
            was_at_bottom: false,
            bar_visibility: current_scroll_visibility(),
            visibility_explicit: false,
            style: current_scroll_style(),
            style_explicit: false,
            offset_cell: None,
            max_scroll_cell: None,
            h_offset_cell: None,
            h_max_scroll_cell: None,
            visibility_cell: None,
            style_cell: None,
            viewport_cell: None,
            painted_style_epoch: Cell::new(0),
            middle_dragging: false,
            middle_start_world: Point::ORIGIN,
            middle_start_v_offset: 0.0,
            middle_start_h_offset: 0.0,
            fade_color: None,
        }
    }

    /// Override the edge-fade colour the scrollbar gutter blends to.
    ///
    /// **READ THIS BEFORE PLACING A `ScrollView` ON ANY CUSTOM
    /// BACKGROUND.**  The default fade colour is `Visuals::window_fill`
    /// (the colour behind a plain window).  If the `ScrollView` sits
    /// inside a `FlexColumn::with_panel_bg`, a coloured `Container`,
    /// inside a tab body with a custom fill, or anywhere else where the
    /// pixels behind the scrollbar are NOT `window_fill`, the fade
    /// gradient will paint a bright halo of the WRONG colour because it
    /// blends to the default rather than what's actually behind it.
    ///
    /// Pass the visible ancestor background here so the fade dissolves
    /// invisibly into the panel.  Common idioms:
    ///
    /// ```ignore
    /// // Sits on a panel:
    /// ScrollView::new(child).with_fade_color(ctx.visuals().panel_fill)
    /// // Sits on a coloured Container:
    /// ScrollView::new(child).with_fade_color(my_container_bg)
    /// ```
    pub fn with_fade_color(mut self, c: Color) -> Self {
        self.fade_color = Some(c);
        self
    }

    // ── Axis enable ───────────────────────────────────────────────────────────

    pub fn horizontal(mut self, enabled: bool) -> Self {
        self.h.enabled = enabled;
        self
    }
    pub fn vertical(mut self, enabled: bool) -> Self {
        self.v.enabled = enabled;
        self
    }

    // ── Scroll offset API (vertical for back-compat) ─────────────────────────

    pub fn scroll_offset(&self) -> f64 {
        self.v.offset
    }

    pub fn set_scroll_offset(&mut self, offset: f64) {
        self.v.offset = offset;
        if let Some(c) = &self.offset_cell {
            c.set(offset);
        }
    }

    pub fn max_scroll_value(&self) -> f64 {
        self.v.max_scroll(self.bounds.height)
    }

    pub fn with_offset_cell(mut self, cell: Rc<Cell<f64>>) -> Self {
        self.offset_cell = Some(cell);
        self
    }

    pub fn with_max_scroll_cell(mut self, cell: Rc<Cell<f64>>) -> Self {
        self.max_scroll_cell = Some(cell);
        self
    }

    pub fn with_h_offset_cell(mut self, cell: Rc<Cell<f64>>) -> Self {
        self.h_offset_cell = Some(cell);
        self
    }

    pub fn with_h_max_scroll_cell(mut self, cell: Rc<Cell<f64>>) -> Self {
        self.h_max_scroll_cell = Some(cell);
        self
    }

    pub fn with_stick_to_bottom(mut self, stick: bool) -> Self {
        self.stick_to_bottom = stick;
        self
    }

    pub fn with_bar_visibility(mut self, v: ScrollBarVisibility) -> Self {
        self.bar_visibility = v;
        self.visibility_explicit = true;
        self
    }

    pub fn set_bar_visibility(&mut self, v: ScrollBarVisibility) {
        self.bar_visibility = v;
        self.visibility_explicit = true;
    }

    pub fn with_bar_visibility_cell(mut self, cell: Rc<Cell<ScrollBarVisibility>>) -> Self {
        self.visibility_cell = Some(cell);
        self
    }

    pub fn with_style(mut self, s: ScrollBarStyle) -> Self {
        self.style = s;
        self.style_explicit = true;
        self
    }

    pub fn with_style_cell(mut self, cell: Rc<Cell<ScrollBarStyle>>) -> Self {
        self.style_cell = Some(cell);
        self
    }

    /// Bind a cell that receives the visible content-space viewport rect.
    pub fn with_viewport_cell(mut self, cell: Rc<Cell<Rect>>) -> Self {
        self.viewport_cell = Some(cell);
        self
    }

    // ── Geometry helpers ──────────────────────────────────────────────────────

    fn viewport(&self) -> (f64, f64) {
        // Viewport inside the widget AFTER reserving space for Solid bars.
        let (reserve_x, reserve_y) = self.bar_reserve();
        let w = (self.bounds.width - reserve_x).max(0.0);
        let h = (self.bounds.height - reserve_y).max(0.0);
        (w, h)
    }

    /// Horizontal/vertical space reserved for Solid scrollbars (0 for Floating).
    fn bar_reserve(&self) -> (f64, f64) {
        if self.style.kind != ScrollBarKind::Solid {
            return (0.0, 0.0);
        }
        let span = self.style.bar_width + self.style.outer_margin + self.style.inner_margin;
        let rx = if self.h.enabled && self.h.content > self.bounds.width {
            0.0
        } else {
            0.0
        };
        // We reserve vertical bar width on the right when vertical scrolling
        // is potentially active (has content overflow).
        let need_v = self.v.enabled && self.v.content > self.bounds.height - self.h_bar_thickness();
        let need_h = self.h.enabled && self.h.content > self.bounds.width - self.v_bar_thickness();
        let rx = rx + if need_v { span } else { 0.0 };
        let ry = if need_h { span } else { 0.0 };
        (rx, ry)
    }

    /// Just the bar width + margins (not conditional on overflow).  Used for
    /// hover-zone/paint placement when visibility says "AlwaysVisible".
    fn v_bar_thickness(&self) -> f64 {
        self.style.bar_width + self.style.outer_margin + self.style.inner_margin
    }
    fn h_bar_thickness(&self) -> f64 {
        self.style.bar_width + self.style.outer_margin + self.style.inner_margin
    }

    /// Right-edge X (exclusive) of the vertical scroll bar in local space.
    fn v_bar_right(&self) -> f64 {
        self.bounds.width - RIGHT_EDGE_GUARD - self.style.outer_margin
    }
    /// Bottom-edge Y (exclusive, Y-up) of the horizontal bar — i.e. the lower
    /// edge of the bar stripe, which in Y-up = `outer_margin + BOTTOM_EDGE_GUARD`.
    fn h_bar_bottom(&self) -> f64 {
        BOTTOM_EDGE_GUARD + self.style.outer_margin
    }

    /// Vertical track range [lo, hi] in Y-up.  Accounts for the horizontal bar
    /// reserving a sliver at the bottom when both axes scroll.
    fn v_track_range(&self) -> (f64, f64) {
        let (_, reserve_y) = self.bar_reserve();
        let lo = self.style.inner_margin + reserve_y;
        let hi = (self.bounds.height - self.style.inner_margin).max(lo);
        (lo, hi)
    }

    fn h_track_range(&self) -> (f64, f64) {
        let (reserve_x, _) = self.bar_reserve();
        let lo = self.style.inner_margin;
        let hi = (self.bounds.width - self.style.inner_margin - reserve_x).max(lo);
        (lo, hi)
    }

    fn v_scrollbar_geometry(&self) -> ScrollbarGeometry {
        let (lo, hi) = self.v_track_range();
        ScrollbarGeometry {
            orientation: ScrollbarOrientation::Vertical,
            track_start: lo,
            track_end: hi,
            cross_end: self.v_bar_right(),
            hit_margin: DEFAULT_GRAB_MARGIN,
        }
    }

    fn h_scrollbar_geometry(&self) -> ScrollbarGeometry {
        let (lo, hi) = self.h_track_range();
        ScrollbarGeometry {
            orientation: ScrollbarOrientation::Horizontal,
            track_start: lo,
            track_end: hi,
            cross_end: self.h_bar_bottom(),
            hit_margin: DEFAULT_GRAB_MARGIN,
        }
    }

    fn pos_in_v_hover(&self, pos: Point) -> bool {
        self.v
            .pos_in_hover(pos, self.style, self.v_scrollbar_geometry())
    }

    fn pos_in_h_hover(&self, pos: Point) -> bool {
        self.h
            .pos_in_hover(pos, self.style, self.h_scrollbar_geometry())
    }

    fn clamp_offsets(&mut self) {
        let (vw, vh) = self.viewport();
        self.v.clamp_offset(vh);
        self.h.clamp_offset(vw);
    }

    fn publish_offsets(&self) {
        if let Some(c) = &self.offset_cell {
            c.set(self.v.offset);
        }
        if let Some(c) = &self.h_offset_cell {
            c.set(self.h.offset);
        }
    }

    // ── Layout property forwarding ────────────────────────────────────────────

    pub fn with_margin(mut self, m: Insets) -> Self {
        self.base.margin = m;
        self
    }
    pub fn with_h_anchor(mut self, h: HAnchor) -> Self {
        self.base.h_anchor = h;
        self
    }
    pub fn with_v_anchor(mut self, v: VAnchor) -> Self {
        self.base.v_anchor = v;
        self
    }
    pub fn with_min_size(mut self, s: Size) -> Self {
        self.base.min_size = s;
        self
    }
    pub fn with_max_size(mut self, s: Size) -> Self {
        self.base.max_size = s;
        self
    }

    // ── Visibility helper ────────────────────────────────────────────────────

    fn scrollbar_animation_active(&self) -> bool {
        self.v.animation_active() || self.h.animation_active()
    }
}

mod widget_impl;