From 51bbfe6cfbb412c081c31d9cce722cea3c76c728 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Wed, 18 Dec 2002 16:12:08 +0000 Subject: XFdrake gtk+-2 --- perl-install/Xconfig/resolution_and_depth.pm | 28 ++++++++++++++-------------- perl-install/Xconfig/test.pm | 12 ++++++------ 2 files changed, 20 insertions(+), 20 deletions(-) (limited to 'perl-install/Xconfig') diff --git a/perl-install/Xconfig/resolution_and_depth.pm b/perl-install/Xconfig/resolution_and_depth.pm index f3d7769a3..14065b72b 100644 --- a/perl-install/Xconfig/resolution_and_depth.pm +++ b/perl-install/Xconfig/resolution_and_depth.pm @@ -205,13 +205,13 @@ sub choose_gtk { my %x_res2depth; push @{$x_res2depth{$_->{X}}}, $_->{Depth} foreach @resolutions; my %depth2x_res; push @{$depth2x_res{$_->{Depth}}}, $_->{X} foreach @resolutions; - require my_gtk; - my_gtk->import(qw(:helpers :wrappers)); - my $W = my_gtk->new(N("Resolution")); + require ugtk2; + ugtk2->import(qw(:create :helpers :wrappers)); + my $W = ugtk2->new(N("Resolution")); my %monitor_images_x_res = do { my @l = qw(640 800 1024 1152 1280 1400 1600 1920 2048); - my %h = map { $_ => [ gtkcreate_png("monitor-$_.png") ] } @l; + my %h = map { $_ => [ gtkcreate_img("monitor-$_.png") ] } @l; #- for the other, use the biggest smaller foreach my $x_res (uniq map { $_->{X} } @resolutions) { @@ -223,11 +223,11 @@ sub choose_gtk { my ($depth_combo, $x_res_combo); - my $pix_colors = gtkpng("colors"); + my $pix_colors = gtkcreate_img("colors"); my $set_chosen_Depth_image = sub { - $pix_colors->set(gtkcreate_png( + $pix_colors = gtkcreate_img( $chosen_Depth >= 24 ? "colors.png" : - $chosen_Depth >= 15 ? "colors16.png" : "colors8.png")); + $chosen_Depth >= 15 ? "colors16.png" : "colors8.png"); }; my $set_chosen_Depth = sub { @@ -247,7 +247,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 ? $pixmap_mo->set($image->[0], $image->[1]) : ($pixmap_mo = new Gtk::Pixmap($image->[0], $image->[1])); + $pixmap_mo = $image; }; $set_chosen_x_res->($chosen_x_res, $chosen_y_res); @@ -255,13 +255,13 @@ sub choose_gtk { gtkpack_($W->create_box_with_title(N("Choose the resolution and the color depth"), if_($card->{BoardName}, "(" . N("Graphics card: %s", $card->{BoardName}) . ")"), ), - 1, gtkpack2(new Gtk::VBox(0,0), - gtkpack2__(new Gtk::VBox(0, 15), + 1, gtkpack2(new Gtk2::VBox(0,0), + gtkpack2__(new Gtk2::VBox(0, 15), $pixmap_mo, - gtkpack2(new Gtk::HBox(0,0), + gtkpack2(new Gtk2::HBox(0,0), create_packtable({ col_spacings => 5, row_spacings => 5 }, - [ $x_res_combo = new Gtk::Combo, new Gtk::Label("") ], - [ $depth_combo = new Gtk::Combo, gtkadd(gtkset_shadow_type(new Gtk::Frame, 'etched_out'), $pix_colors) ], + [ $x_res_combo = new Gtk2::Combo, new Gtk2::Label("") ], + [ $depth_combo = new Gtk2::Combo, gtkadd(gtkset_shadow_type(new Gtk2::Frame, 'etched_out'), $pix_colors) ], ), ), ), @@ -272,7 +272,7 @@ sub choose_gtk { $depth_combo->set_use_arrows_always(1); $depth_combo->entry->set_editable(0); $depth_combo->set_popdown_strings(map { translate($depth2text{$_}) } ikeys %depth2x_res); - $depth_combo->entry->set_usize(220, 0); + $depth_combo->entry->set_size_request(220, 0); $depth_combo->entry->signal_connect(changed => sub { my %txt2depth = reverse %depth2text; my $s = $depth_combo->entry->get_text; diff --git a/perl-install/Xconfig/test.pm b/perl-install/Xconfig/test.pm index 154b4886f..939949e23 100644 --- a/perl-install/Xconfig/test.pm +++ b/perl-install/Xconfig/test.pm @@ -107,8 +107,8 @@ sub test { print $F q( BEGIN { $::no_ugtk_init = 1 } require lang; - require my_gtk; - my_gtk->import(qw(:wrappers)); #- help perl_checker + + ugtk2->import(qw(:wrappers)); #- help perl_checker use interactive::gtk; use run_program; use common; @@ -121,10 +121,10 @@ sub test { $ENV{DISPLAY} = ":9"; gtkset_background(200 * 257, 210 * 257, 210 * 257); - my ($h, $w) = Gtk::Gdk::Window->new_foreign(Gtk::Gdk->ROOT_WINDOW)->get_size; - $my_gtk::force_position = [ $w / 3, $h / 2.4 ]; - $my_gtk::force_focus = 1; - my $text = Gtk::Label->new; + my ($h, $w) = gtkroot()->get_size; + $ugtk2::force_position = [ $w / 3, $h / 2.4 ]; + $ugtk2::force_focus = 1; + my $text = Gtk2::Label->new; my $time = 12; Gtk->timeout_add(1000, sub { $text->set(N("Leaving in %d seconds", $time)); -- cgit v1.2.1