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/test.pm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'perl-install/Xconfig/test.pm') 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