perl_checker fixes, make mode optionnal in load_image

1 files changed, 8 insertions, 3 deletions

diff --git a/perl-install/standalone/draksplash b/perl-install/standalone/draksplash
index 884572cff..db1a20aaa 100755
--- a/perl-install/standalone/draksplash
+++ b/perl-install/standalone/draksplash
@@ -134,7 +134,7 @@ sub set_theme {
 	#- do not resize and move the window again if size hasn't changed
 	if ($w != $old_scroll_w || $h !=  $old_scroll_h) {
 	    $scroll->set_size_request($w, $h);
-	    $preview_window->shrink_topwindow();
+	    $preview_window->shrink_topwindow;
 	    $preview_window->{window}->move(0, 0);
 	    ($old_scroll_w, $old_scroll_h) = ($w, $h);
 	}
@@ -148,7 +148,12 @@ sub save_theme() {
 }
 
 sub load_image {
-    my ($img, $mode) = @_;
+    my ($img, $o_mode) = @_;
+    my $mode = $o_mode;
+    unless ($mode) {
+	$mode = 0;
+	@image_pixbuf = ();
+    }
     $image_pixbuf[$mode] = Gtk2::Gdk::Pixbuf->new_from_file($img);
     $image_pixbuf[$mode] = $image_pixbuf[$mode]->scale_simple($theme{res_w}, $theme{res_h}, 'hyper');
     $image_pixbuf[1-$mode] or $image_pixbuf[1-$mode] = $image_pixbuf[$mode];
@@ -248,7 +253,7 @@ sub create_image_area() {
 sub image_expose {
     my ($widget) = @_;
     my $window = $widget->window;
-    $window->draw_pixbuf($widget->style->white_gc, $image_pixbuf[$current_mode>0], 0, 0, 0, 0, -1, -1, 'none', 0, 0) if $image_pixbuf[$current_mode>0];
+    $window->draw_pixbuf($widget->style->white_gc, $image_pixbuf[$current_mode > 0], 0, 0, 0, 0, -1, -1, 'none', 0, 0) if $image_pixbuf[$current_mode > 0];
     if ($current_mode == 0) { #- silent
 	$window->draw_rectangle($widget->style->white_gc, 1, @{$theme{conf}}{'px', 'py', 'pw', 'ph'});
     } else { #- verbose or console