Selkie.git | xt/snapshots/ | 33-viewported-cardlist-row-scroll.raku

---

use lib 'lib';
use Selkie::Test::Snapshot;
use Selkie::Widget::ViewportedCardList;
use Selkie::Widget::Border;
use Selkie::Widget::Text;
use Selkie::Sizing;

my $cards = Selkie::Widget::ViewportedCardList.new(sizing => Sizing.flex);

for <alpha beta gamma> -> $label {
    my $text   = Selkie::Widget::Text.new(text => $label, sizing => Sizing.flex);
    my $border = Selkie::Widget::Border.new(sizing => Sizing.flex);
    $border.set-content($text);
    $cards.add-item($text, root => $border, height => 3, :$border);
}

$cards.scroll-to(2);
print render-to-string($cards, rows => 5, cols => 22);