diff options
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-x | perl-install/standalone/draksplash | 62 |
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; |