summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/draksplash62
1 files changed, 31 insertions, 31 deletions
diff --git a/perl-install/standalone/draksplash b/perl-install/standalone/draksplash
index 1455266b1..359568e6a 100755
--- a/perl-install/standalone/draksplash
+++ b/perl-install/standalone/draksplash
@@ -41,14 +41,14 @@ my %theme = ('name' => 'new_theme',
'w' => '800',
},
'boot_conf' => {
- 'tx' => 0 ,
- 'ty' => 0 ,
- 'tw' => 0 ,
- 'th' => 0 ,
- 'px' => 0 ,
- 'py' => 0 ,
- 'pw' => 0 ,
- 'ph' => 0 ,
+ 'tx' => 0,
+ 'ty' => 0,
+ 'tw' => 0,
+ 'th' => 0,
+ 'px' => 0,
+ 'py' => 0,
+ 'pw' => 0,
+ 'ph' => 0,
'pc' => '0x21459d',
},
'boot_img' => ''
@@ -78,7 +78,7 @@ my %first = ('frame' => Gtk2::Frame->new(N("first step creation")),
},
'combo' => {
'res' => ['800x600', '1024x768', '1280x1024'],
- 'name' => [ $theme{name} , giv_exist_thm() ]
+ 'name' => [ $theme{name}, giv_exist_thm() ]
},
extras => {
res => {
@@ -125,26 +125,26 @@ my %boot_conf_frame = ('frame' => Gtk2::Frame->new(N("Configure bootsplash pictu
'quiet' => N("Make kernel message quiet by default"),
},
},
- 'pos' => [ 'tx 1' ,
- 'ty 1' ,
- 'tw 1' ,
- 'th 1' ,
- 'px 1' ,
- 'py 1' ,
- 'pw 1' ,
- 'ph 1' ,
- 'pc' ,
+ 'pos' => [ 'tx 1',
+ 'ty 1',
+ 'tw 1',
+ 'th 1',
+ 'px 1',
+ 'py 1',
+ 'pw 1',
+ 'ph 1',
+ 'pc',
'logo',
'quiet',
'annul',
'prev',
- 'save' ,
+ 'save',
'kill',
],
);
#- var action is used to hide/show the correct frame
-my $VB2 = Gtk2::VBox->new(0,5);
-my $first_vbox = Gtk2::VBox->new(0,5);
+my $VB2 = Gtk2::VBox->new(0, 5);
+my $first_vbox = Gtk2::VBox->new(0, 5);
&mk_frame($VB2, \%first);
#****************************- Signal event actions
@@ -263,13 +263,13 @@ LOGO_CONSOLE='.$logo.'
# Make kernel message quiet by default.
QUIET='.$quiet;
output($globalconf_file, $globalconf_cont);
- output($cfg_file,$cfg_cont);
+ output($cfg_file, $cfg_cont);
}
#- Desc => read the current bootsplash theme configuration if exist
sub get_this_thm_res_conf() {
- member($first{widgets}{combo}{name}->entry->get_text , giv_exist_thm())
+ member($first{widgets}{combo}{name}->entry->get_text, giv_exist_thm())
and $theme{name} = $first{widgets}{combo}{name}->entry->get_text
and thm_in_this_res(1)
and read_boot_conf();
@@ -283,7 +283,7 @@ sub read_boot_conf {
my $line;
if (-f $theme{name}.'/cfg/bootsplash-'.$theme{res}{res}.'.cfg') {
local *CFG;
- open CFG , $theme{name}.'/cfg/bootsplash-'.$theme{res}{res}.'.cfg';
+ open CFG, $theme{name}.'/cfg/bootsplash-'.$theme{res}{res}.'.cfg';
while ($line = <CFG>) {
$line =~ m/^([a-z][a-z])=([^\n]+)/
and $theme{boot_conf}{$1} = $2;
@@ -354,7 +354,7 @@ sub show_act {
#- Desc => just add tooltips
#- Args => name of widget(str) and frame to work on it (\%hash)
sub tool_tip {
- my ($name , $ref) = @_;
+ my ($name, $ref) = @_;
foreach (keys %{$ref->{widget}}) {
$_ eq 'tooltip' and next;
if ($ref->{widget}{$_}{$name}) {
@@ -370,7 +370,7 @@ my %hboxes;
#- Args => $box(a Vbox widget to contain all widgets), \%frame (hash with complete definition of the frame)
#- Return=> all hash{widgets} are created and packed in $box
sub mk_frame {
- my ($box , $ref) = @_;
+ my ($box, $ref) = @_;
foreach my $pos (@{$ref->{pos}}) {
my $key = $1.'hb' if $pos =~ m/^(\w+)(\s+)?(\w+)?$/;
#- open a new hbox
@@ -425,12 +425,12 @@ sub dec2hex {
#- Desc => prepare and set all signal_connect for boot_frame widget
sub make_boot_frame() {
- my $VB = Gtk2::VBox->new(0,5);
+ my $VB = Gtk2::VBox->new(0, 5);
&mk_frame($VB, \%boot_conf_frame);
#- open a color choose box
$boot_conf_frame{widgets}{button}{pc}->signal_connect(clicked => sub {
my $color = gtkshow(Gtk2::ColorSelectionDialog->new(N("ProgressBar color selection")));
- my @rgb = map { hex($_)/255 } ($1 ,$2, $3) if $theme{boot_conf}{pc} =~ m/0x(.{2})(.{2})(.{2})/;
+ my @rgb = map { hex($_)/255 } ($1, $2, $3) if $theme{boot_conf}{pc} =~ m/0x(.{2})(.{2})(.{2})/;
$color->colorsel->set_current_color(Gtk2::Gdk::Color->new(@rgb));
$color->cancel_button->signal_connect(clicked => sub { $color->destroy });
$color->ok_button->signal_connect(clicked => sub {
@@ -462,7 +462,7 @@ sub make_boot_frame() {
my $prog_tl_y = $theme{boot_conf}{py};
my $prog_width = $theme{boot_conf}{pw};
my $prog_height = $theme{boot_conf}{ph};
- show_prev($txt_tl_x,$txt_tl_y,$txt_width,$txt_height,$prog_tl_x,$prog_tl_y,$prog_width,$prog_height);
+ show_prev($txt_tl_x, $txt_tl_y, $txt_width, $txt_height, $prog_tl_x, $prog_tl_y, $prog_width, $prog_height);
});
$boot_conf_frame{frame}->show_all;
# - check scales values are possibly correct
@@ -508,8 +508,8 @@ sub show_prev {
my ($w, $event) = @_;
my ($x, $y, $width, $height) = $event->area->values;
$prev_pic->render_to_drawable($w->window, $w->style->fg_gc('normal'), $x, $y, $x, $y, $width, $height, 'normal', 0, 0);
- $prev_canvas->window->draw_rectangle($prev_canvas->style->black_gc, $true,$txt_tl_x, $txt_tl_y,$txt_width,$txt_height);
- $prev_canvas->window->draw_rectangle($prev_canvas->style->black_gc, $true, $prog_tl_x,$prog_tl_y,$prog_width, $prog_height);
+ $prev_canvas->window->draw_rectangle($prev_canvas->style->black_gc, $true, $txt_tl_x, $txt_tl_y, $txt_width, $txt_height);
+ $prev_canvas->window->draw_rectangle($prev_canvas->style->black_gc, $true, $prog_tl_x, $prog_tl_y, $prog_width, $prog_height);
});
$prev_window->signal_connect(delete_event => \&kill_preview);
$prev_window->show_all;