From 8d109d783a3df6a0082cae3f23ddfe2b1c15a224 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 21 Feb 2003 14:04:06 +0000 Subject: fix setting the image & colors in resolution chooser --- perl-install/Xconfig/resolution_and_depth.pm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'perl-install/Xconfig/resolution_and_depth.pm') diff --git a/perl-install/Xconfig/resolution_and_depth.pm b/perl-install/Xconfig/resolution_and_depth.pm index 4bbb2fad1..45608e1f5 100644 --- a/perl-install/Xconfig/resolution_and_depth.pm +++ b/perl-install/Xconfig/resolution_and_depth.pm @@ -213,7 +213,7 @@ sub choose_gtk { my %monitor_images_x_res = do { my @l = qw(640 800 1024 1152 1280 1400 1600 1920 2048); - my %h = map { $_ => gtkcreate_img("monitor-$_.png") } @l; + my %h = map { $_ => ugtk2::_find_imgfile("monitor-$_.png") } @l; #- for the other, use the biggest smaller foreach my $x_res (uniq map { $_->{X} } @resolutions) { @@ -225,11 +225,11 @@ sub choose_gtk { my ($depth_combo, $x_res_combo); - my $pix_colors = gtkcreate_img("colors"); + my $pix_colors = Gtk2::Image->new; my $set_chosen_Depth_image = sub { - $pix_colors = gtkcreate_img( + $pix_colors->set_from_file(ugtk2::_find_imgfile( $chosen_Depth >= 24 ? "colors.png" : - $chosen_Depth >= 15 ? "colors16.png" : "colors8.png"); + $chosen_Depth >= 15 ? "colors16.png" : "colors8.png")); }; my $set_chosen_Depth = sub { @@ -238,7 +238,7 @@ sub choose_gtk { $set_chosen_Depth_image->(); }; - my $pixmap_mo; + my $pixmap_mo = Gtk2::Image->new; my $set_chosen_x_res = sub { $chosen_x_res = $_[0]; if ($_[1]) { @@ -249,7 +249,7 @@ sub choose_gtk { $chosen_y_res = $one->{Y}; } my $image = $monitor_images_x_res{$chosen_x_res} or internal_error("no image for resolution $chosen_x_res"); - $pixmap_mo = $image; + $pixmap_mo->set_from_file($image); }; $set_chosen_x_res->($chosen_x_res, $chosen_y_res); -- cgit v1.2.1