summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/draksplash
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone/draksplash')
-rwxr-xr-xperl-install/standalone/draksplash11
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