diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2002-12-18 16:12:08 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2002-12-18 16:12:08 +0000 |
| commit | 51bbfe6cfbb412c081c31d9cce722cea3c76c728 (patch) | |
| tree | fb68fd8dc2f7fdd2a28e77af1b3c7fde8952990a /perl-install/Xconfig/test.pm | |
| parent | fc66dc19f747b66204279dd55f2c3e7f378b695f (diff) | |
| download | drakx-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/Xconfig/test.pm')
| -rw-r--r-- | perl-install/Xconfig/test.pm | 12 |
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)); |