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