summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2002-12-18 16:12:08 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2002-12-18 16:12:08 +0000
commit51bbfe6cfbb412c081c31d9cce722cea3c76c728 (patch)
treefb68fd8dc2f7fdd2a28e77af1b3c7fde8952990a /perl-install
parentfc66dc19f747b66204279dd55f2c3e7f378b695f (diff)
downloaddrakx-51bbfe6cfbb412c081c31d9cce722cea3c76c728.tar
drakx-51bbfe6cfbb412c081c31d9cce722cea3c76c728.tar.gz
drakx-51bbfe6cfbb412c081c31d9cce722cea3c76c728.tar.bz2
drakx-51bbfe6cfbb412c081c31d9cce722cea3c76c728.tar.xz
drakx-51bbfe6cfbb412c081c31d9cce722cea3c76c728.zip
XFdrake gtk+-2
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/Xconfig/resolution_and_depth.pm28
-rw-r--r--perl-install/Xconfig/test.pm12
2 files changed, 20 insertions, 20 deletions
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));