diff options
| author | Guillaume Cottenceau <gc@mandriva.com> | 2003-08-08 10:18:43 +0000 |
|---|---|---|
| committer | Guillaume Cottenceau <gc@mandriva.com> | 2003-08-08 10:18:43 +0000 |
| commit | 050fe73a01652c92f0fc25213c4e9a2547a560b2 (patch) | |
| tree | 42161ef8501fbcb42ce04e2c6503b2859bd54879 /perl-install | |
| parent | 66006f206ae97e00523d56d0c55eb75a2803022b (diff) | |
| download | drakx-050fe73a01652c92f0fc25213c4e9a2547a560b2.tar drakx-050fe73a01652c92f0fc25213c4e9a2547a560b2.tar.gz drakx-050fe73a01652c92f0fc25213c4e9a2547a560b2.tar.bz2 drakx-050fe73a01652c92f0fc25213c4e9a2547a560b2.tar.xz drakx-050fe73a01652c92f0fc25213c4e9a2547a560b2.zip | |
add gtkset_alignment
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/ugtk2.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm index eafb260a5..3315fb191 100644 --- a/perl-install/ugtk2.pm +++ b/perl-install/ugtk2.pm @@ -9,7 +9,7 @@ use vars qw(@ISA %EXPORT_TAGS @EXPORT_OK @icon_paths $force_center $force_focus wrappers => [ qw(gtkadd gtkappend gtkappend_page gtkappenditems gtkcombo_setpopdown_strings gtkdestroy gtkentry gtkexpand gtkflush gtkhide gtkmodify_font gtkmove gtkpack gtkpack2 gtkpack2_ gtkpack2__ gtkpack_ gtkpack__ gtkpowerpack gtkput gtkradio gtkresize gtkroot - gtkset_active gtkset_border_width gtkset_editable gtkset_justify gtkset_layout gtkset_markup + gtkset_active gtkset_border_width gtkset_editable gtkset_justify gtkset_alignment gtkset_layout gtkset_markup gtkset_modal gtkset_mousecursor gtkset_mousecursor_normal gtkset_mousecursor_wait gtkset_name gtkset_property gtkset_relief gtkset_selectable gtkset_sensitive gtkset_shadow_type gtkset_size_request gtkset_text gtkset_tip gtkset_visibility gtksetstyle gtkshow gtksignal_connect gtksize gtktext_append @@ -76,6 +76,7 @@ sub gtkset_border_width { $_[0]->set_border_width($_[1]); $_[0] } sub gtkset_editable { $_[0]->set_editable($_[1]); $_[0] } sub gtkset_selectable { $_[0]->set_selectable($_[1]); $_[0] } sub gtkset_justify { $_[0]->set_justify($_[1]); $_[0] } +sub gtkset_alignment { $_[0]->set_alignment($_[1], $_[2]); $_[0] } sub gtkset_layout { $_[0]->set_layout($_[1]); $_[0] } sub gtkset_modal { $_[0]->set_modal($_[1]); $_[0] } sub gtkset_mousecursor_normal { gtkset_mousecursor('left-ptr', @_) } |