summaryrefslogtreecommitdiffstats
path: root/perl-install/Xconfig/test.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/Xconfig/test.pm')
-rw-r--r--perl-install/Xconfig/test.pm12
1 files changed, 6 insertions, 6 deletions
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));