summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorGuillaume Cottenceau <gc@mandriva.com>2003-04-29 22:01:55 +0000
committerGuillaume Cottenceau <gc@mandriva.com>2003-04-29 22:01:55 +0000
commit325d1a2c5707ea0d5da5e25d7e4bcbd49c1922d9 (patch)
tree37c60ac47f4ab2d545d8c814bbc82c45e88aa2bc /perl-install
parent5d135cc4c88f09b3cf9a602f14dff32ab089dd2b (diff)
downloaddrakx-backup-do-not-use-325d1a2c5707ea0d5da5e25d7e4bcbd49c1922d9.tar
drakx-backup-do-not-use-325d1a2c5707ea0d5da5e25d7e4bcbd49c1922d9.tar.gz
drakx-backup-do-not-use-325d1a2c5707ea0d5da5e25d7e4bcbd49c1922d9.tar.bz2
drakx-backup-do-not-use-325d1a2c5707ea0d5da5e25d7e4bcbd49c1922d9.tar.xz
drakx-backup-do-not-use-325d1a2c5707ea0d5da5e25d7e4bcbd49c1922d9.zip
perl_checker can parse me at last
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/ugtk2.pm23
1 files changed, 3 insertions, 20 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index 4a069eb55..733bdd623 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -7,7 +7,7 @@ use vars qw(@ISA %EXPORT_TAGS @EXPORT_OK @icon_paths $force_center $force_focus
@ISA = qw(Exporter);
%EXPORT_TAGS = (
wrappers => [ qw(gtkadd gtkappend gtkappend_page gtkappend_text gtkappenditems gtkcombo_setpopdown_strings gtkdestroy
- gtkentry gtkexpand gtkflush gtkhide gtkinsert_text gtkmodify_font gtkmove gtkpack gtkpack2 gtkpack2_
+ gtkentry gtkexpand gtkflush gtkhide gtkmodify_font gtkmove gtkpack gtkpack2 gtkpack2_
gtkpack2__ gtkpack_ gtkpack__ gtkpowerpack gtkprepend_text gtkput gtkradio gtkresize gtkroot
gtkset_active gtkset_border_width gtkset_editable gtkset_justify gtkset_layout gtkset_markup
gtkset_modal gtkset_mousecursor gtkset_mousecursor_normal gtkset_mousecursor_wait gtkset_name
@@ -162,24 +162,6 @@ sub gtkcombo_setpopdown_strings {
$w;
}
-sub gtkinsert_text {
- my ($w, $text, $position) = @_;
- $w->insert_text($text, -1, $position);
- $w;
-}
-
-# compat with ugtk for gtk-1.2, don't use it
-sub gtkappend_text {
- my ($w, $s) = @_;
- gtkinsert_text($w, $s, -1);
-}
-
-# compat with ugtk for gtk-1.2, don't use it
-sub gtkprepend_text {
- my ($w, $s) = @_;
- gtkinsert_text($w, $s, 0);
-}
-
sub gtkset_mousecursor {
my ($type, $w) = @_;
($w || gtkroot())->set_cursor(my $c = Gtk2::Gdk::Cursor->new($type));
@@ -723,7 +705,8 @@ sub gtkset_background {
my $color = gtkcolor($r, $g, $b);
$gc->set_rgb_fg_color($color);
$root->set_background($color);
- $root->draw_rectangle($gc, 1, 0, 0, $root->get_size);
+ my ($w, $h) = $root->get_size;
+ $root->draw_rectangle($gc, 1, 0, 0, $w, $h);
$gc->unref;
}