#!/usr/bin/perl

use strict;
use warnings;
use utf8;

use Test::More;

use Tickit::Test;

use Tickit::Widget::Button;

my $root = mk_window;

my $win = $root->make_sub( 0, 0, 3, 14 );

my $clicked = 0;
my $button = Tickit::Widget::Button->new(
   label => "Click me",
   on_click => sub { $clicked++ },
);

ok( defined $button, 'defined $button' );

is( $button->label, "Click me", '$button->label' );
is( $button->align,  0.5,       '$button->align' );
is( $button->valign, 0.5,       '$button->valign' );

$button->set_window( $win );

flush_tickit;

is_display( [ [TEXT("┌────────────┐",fg=>0,bg=>4)],
              [TEXT("│> Click me <│",fg=>0,bg=>4)],
              [TEXT("└────────────┘",fg=>0,bg=>4)] ],
            'Display initially' );

{
   $button->set_style( linetype => "double" );

   flush_tickit;

   is_display( [ [TEXT("╔════════════╗",fg=>0,bg=>4)],
                 [TEXT("║> Click me <║",fg=>0,bg=>4)],
                 [TEXT("╚════════════╝",fg=>0,bg=>4)] ],
               'Display with linetype "double"' );

   $button->set_style( linetype => undef );
}

pressmouse( press => 1, 1, 10 );

flush_tickit;

is_display( [ [TEXT("┌────────────┐",fg=>0,bg=>4,rv=>1)],
              [TEXT("│>>Click me<<│",fg=>0,bg=>4,rv=>1)],
              [TEXT("└────────────┘",fg=>0,bg=>4,rv=>1)] ],
            'Display after focus' );

is( $clicked, 0, '$clicked before mouse release' );

pressmouse( release => 1, 1, 10 );

flush_tickit;

is_display( [ [TEXT("┌────────────┐",fg=>0,bg=>4)],
              [TEXT("│>>Click me<<│",fg=>0,bg=>4)],
              [TEXT("└────────────┘",fg=>0,bg=>4)] ],
            'Display after mouse release' );

is( $clicked, 1, '$clicked after mouse release' );

presskey( key => "Enter" );

flush_tickit;

is( $clicked, 2, '$clicked after <Enter> key' );

{
   my $button_without_border = Tickit::Widget::Button->new(
      label => "My label",
      style => { linetype => "none" },
   );

   is( $button_without_border->lines, 1, '->lines without border' );
   is( $button_without_border->cols,  12, '->cols without border' );
}

done_testing;