lib/Tails/Persistence/Role/SetupStep.pm

   1 =head1 NAME
   2
   3 Tails::Persistence::Role::SetupStep - role for persistence setup steps
   4
   5 =cut
   6
   7 package Tails::Persistence::Role::SetupStep;
   8
   9 use 5.10.0;
  10 use strictures 2;
  11 use autodie qw(:all);
  12
  13 use Glib qw{TRUE FALSE};
  14 use Gtk3 qw{-init};
  15
  16 use Locale::gettext;
  17 use POSIX;
  18 setlocale(LC_MESSAGES, "");
  19 textdomain("tails-persistence-setup");
  20
  21 use Moo::Role;
  22 use MooX::late;
  23 use namespace::clean;
  24
  25 with 'Tails::Role::HasEncoding';
  26 with 'Tails::Persistence::Role::HasStatusArea';
  27
  28 requires '_build_main_box';
  29 requires 'go_button_pressed';
  30
  31
  32 =head1 ATTRIBUTES
  33
  34 =cut
  35
  36 has 'name' => (
  37     required => 1,
  38     is       => 'ro',
  39     isa      => 'Str',
  40 );
  41
  42 has 'main_box' => (
  43     lazy_build => 1,
  44     is         => 'rw',
  45     isa        => 'Gtk3::VBox',
  46 );
  47
  48 foreach (qw{title subtitle description}) {
  49     has $_ => (
  50         lazy_build => 1,
  51         is         => 'rw',
  52         isa        => 'Gtk3::Label',
  53     );
  54 }
  55
  56 has 'go_button'   => (
  57     lazy_build => 1,
  58     is         => 'rw',
  59     isa        => 'Gtk3::Button',
  60 );
  61 foreach (qw{go_callback success_callback}) {
  62     has $_ => (
  63         required => 1,
  64         is       => 'ro',
  65         isa      => 'CodeRef',
  66     );
  67 }
  68
  69 foreach (qw{drive_vendor drive_model}) {
  70     has $_ => (
  71         required => 1,
  72         is       => 'ro',
  73         isa      => 'Str',
  74     );
  75 }
  76
  77
  78 =head1 CONSTRUCTORS
  79
  80 =cut
  81
  82 sub _build_title {
  83     my $self = shift;
  84
  85     my $label = Gtk3::Label->new('');
  86     $label->set_alignment(0.0, 0.5);
  87     my $attrlist  = Pango::AttrList->new;
  88     $attrlist->insert($_)
  89         foreach ( Pango::AttrScale->new(1.3),Pango::AttrWeight->new('bold') );
  90     $label->set_attributes($attrlist);
  91     $label->set_padding(10, 10);
  92
  93     return $label;
  94 }
  95
  96 sub _build_subtitle {
  97     my $self = shift;
  98
  99     my $label = Gtk3::Label->new('');
 100     $label->set_alignment(0.0, 0.5);
 101     my $attrlist  = Pango::AttrList->new;
 102     $attrlist->insert($_)
 103         foreach ( Pango::AttrScale->new(1.1),Pango::AttrWeight->new('bold') );
 104     $label->set_attributes($attrlist);
 105     $label->set_padding(10, 10);
 106     $label->set_line_wrap(TRUE);
 107     $label->set_line_wrap_mode('word');
 108     $label->set_single_line_mode(FALSE);
 109
 110     return $label;
 111 }
 112
 113 sub _build_description {
 114     my $self = shift;
 115
 116     my $label = Gtk3::Label->new('');
 117     $label->set_alignment(0.0, 0.5);
 118     $label->set_padding(10, 10);
 119     $label->set_line_wrap(TRUE);
 120     $label->set_line_wrap_mode('word');
 121     $label->set_single_line_mode(FALSE);
 122
 123     return $label;
 124 }
 125
 126 sub _build_go_button {
 127     my $self = shift;
 128
 129     my $button = Gtk3::Button->new;
 130     $button->set_sensitive(FALSE);
 131     $button->set_can_default(TRUE);
 132     $button->signal_connect('clicked', sub { $self->go_button_pressed });
 133
 134     return $button;
 135 }
 136
 137 no Moo::Role;
 138 1;