view release on metacpan or  search on metacpan

t/04widget-style.t  view on Meta::CPAN

#!/usr/bin/perl

use strict;
use warnings;

use Test::More;
use Test::Fatal;

use Tickit::Test;

use Tickit::Widget;

my $win = mk_window;

package StyledWidget;

use base qw( Tickit::Widget );
use Tickit::Style;

# Needs declarative code
BEGIN {
   style_definition base =>
      fg => 2,
      text => "Hello, world!",
      spacing => 1,
      marker => "[]",
      '<Enter>' => "activate";

   style_definition ':active' =>
      u => 1;

   style_reshape_keys qw( spacing );
   style_reshape_textwidth_keys qw( text );
   style_redraw_keys qw( marker );
}

use constant WIDGET_PEN_FROM_STYLE => 1;

sub cols  { 1 }
sub lines { 1 }

my $RENDERED;
sub render_to_rb { $RENDERED++ }

my $RESHAPED;
sub reshape { $RESHAPED++ }

my %style_changed_values;
sub on_style_changed_values
{
   shift;
   %style_changed_values = @_;
}

package StyledWidget::Subclass;
use base qw( StyledWidget );

package StyledWidget::StyledSubclass;
use base qw( StyledWidget );
use Tickit::Style -blank;

BEGIN {
   style_definition base =>
      fg => 7;
}

package StyledWidget::CopiedSubclass;