summaryrefslogtreecommitdiffstats
path: root/perl-install/Xconfig/test.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-01-02 23:55:57 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-01-02 23:55:57 +0000
commit39cb8b371411f618f180c8b776e7a86e7a4ab208 (patch)
tree7808c35eaeeb4c965b597fe32885908b84b9a295 /perl-install/Xconfig/test.pm
parentc35131e8208bc331051aabbaac1549a7843e41a9 (diff)
downloaddrakx-39cb8b371411f618f180c8b776e7a86e7a4ab208.tar
drakx-39cb8b371411f618f180c8b776e7a86e7a4ab208.tar.gz
drakx-39cb8b371411f618f180c8b776e7a86e7a4ab208.tar.bz2
drakx-39cb8b371411f618f180c8b776e7a86e7a4ab208.tar.xz
drakx-39cb8b371411f618f180c8b776e7a86e7a4ab208.zip
X test is now working :)
Diffstat (limited to 'perl-install/Xconfig/test.pm')
-rw-r--r--perl-install/Xconfig/test.pm5
1 files changed, 3 insertions, 2 deletions
diff --git a/perl-install/Xconfig/test.pm b/perl-install/Xconfig/test.pm
index 4ade65d83..08f73643a 100644
--- a/perl-install/Xconfig/test.pm
+++ b/perl-install/Xconfig/test.pm
@@ -108,7 +108,7 @@ sub test {
BEGIN { $::no_ugtk_init = 1 }
require lang;
require ugtk2; #- help perl_checker
- ugtk2->import(qw(:wrappers)); #- help perl_checker
+ ugtk2->import(qw(:wrappers :helpers)); #- help perl_checker
use interactive::gtk;
use run_program;
use common;
@@ -119,6 +119,7 @@ sub test {
lang::bindtextdomain();
$ENV{DISPLAY} = ":9";
+ Gtk2->init([]);
gtkset_background(200 * 257, 210 * 257, 210 * 257);
my ($h, $w) = gtkroot()->get_size;
@@ -126,7 +127,7 @@ sub test {
$ugtk2::force_focus = 1;
my $text = Gtk2::Label->new;
my $time = 12;
- Gtk->timeout_add(1000, sub {
+ Gtk2->timeout_add(1000, sub {
$text->set(N("Leaving in %d seconds", $time));
$time-- or Gtk->main_quit;
1;