diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2003-01-02 23:55:57 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2003-01-02 23:55:57 +0000 |
| commit | 39cb8b371411f618f180c8b776e7a86e7a4ab208 (patch) | |
| tree | 7808c35eaeeb4c965b597fe32885908b84b9a295 /perl-install/Xconfig/test.pm | |
| parent | c35131e8208bc331051aabbaac1549a7843e41a9 (diff) | |
| download | drakx-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.pm | 5 |
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; |