diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2002-08-12 11:55:08 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2002-08-12 11:55:08 +0000 |
| commit | ed0afbf70683e3446712d9783924f97d2268232e (patch) | |
| tree | 00b195c2a7cb8caf70e5fc043cfc997c39f03e40 /perl-install/ugtk.pm | |
| parent | 503d2237e1a1e7560e69382ef3103c30984beffd (diff) | |
| download | drakx-backup-do-not-use-ed0afbf70683e3446712d9783924f97d2268232e.tar drakx-backup-do-not-use-ed0afbf70683e3446712d9783924f97d2268232e.tar.gz drakx-backup-do-not-use-ed0afbf70683e3446712d9783924f97d2268232e.tar.bz2 drakx-backup-do-not-use-ed0afbf70683e3446712d9783924f97d2268232e.tar.xz drakx-backup-do-not-use-ed0afbf70683e3446712d9783924f97d2268232e.zip | |
- ugtk::gtkexpand : new function
- harddrake::ui : uses it
Diffstat (limited to 'perl-install/ugtk.pm')
| -rw-r--r-- | perl-install/ugtk.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/ugtk.pm b/perl-install/ugtk.pm index 25e274440..0da69e483 100644 --- a/perl-install/ugtk.pm +++ b/perl-install/ugtk.pm @@ -7,7 +7,7 @@ use vars qw(@ISA %EXPORT_TAGS @EXPORT_OK $border); @ISA = qw(Exporter); %EXPORT_TAGS = ( helpers => [ qw(createScrolledWindow create_menu create_notebook create_packtable create_hbox create_vbox create_adjustment create_box_with_title create_treeitem) ], - wrappers => [ qw(gtksignal_connect gtkradio gtkpack gtkpack_ gtkpack__ gtkpack2 gtkpack3 gtkpack2_ gtkpack2__ gtkpowerpack gtkcombo_setpopdown_strings gtkset_editable gtksetstyle gtkset_text gtkset_tip gtkappenditems gtkappend gtkset_shadow_type gtkset_layout gtkset_relief gtkadd gtkput gtktext_insert gtkset_usize gtksize gtkset_justify gtkset_active gtkset_sensitive gtkset_modal gtkset_border_width gtkmove gtkresize gtkshow gtkhide gtkdestroy gtkflush gtkcolor gtkset_mousecursor gtkset_mousecursor_normal gtkset_mousecursor_wait gtkset_background gtkset_default_fontset gtkctree_children gtkxpm gtkpng create_pix_text get_text_coord fill_tiled gtkicons_labels_widget write_on_pixmap gtkcreate_xpm gtkcreate_png gtkbuttonset gtkroot gtkentry) ], + wrappers => [ qw(gtksignal_connect gtkradio gtkpack gtkpack_ gtkpack__ gtkpack2 gtkpack3 gtkpack2_ gtkpack2__ gtkpowerpack gtkcombo_setpopdown_strings gtkset_editable gtksetstyle gtkset_text gtkset_tip gtkappenditems gtkappend gtkset_shadow_type gtkset_layout gtkset_relief gtkadd gtkexpand gtkput gtktext_insert gtkset_usize gtksize gtkset_justify gtkset_active gtkset_sensitive gtkset_modal gtkset_border_width gtkmove gtkresize gtkshow gtkhide gtkdestroy gtkflush gtkcolor gtkset_mousecursor gtkset_mousecursor_normal gtkset_mousecursor_wait gtkset_background gtkset_default_fontset gtkctree_children gtkxpm gtkpng create_pix_text get_text_coord fill_tiled gtkicons_labels_widget write_on_pixmap gtkcreate_xpm gtkcreate_png gtkbuttonset gtkroot gtkentry) ], various => [ qw(add2notebook add_icon_path n_line_size) ], ); $EXPORT_TAGS{all} = [ map { @$_ } values %EXPORT_TAGS ]; @@ -72,6 +72,7 @@ sub gtkset_style { $_[0]->set_style($_[1]); $_[0] } sub gtkset_usize { $_[0]->set_usize($_[1],$_[2]); $_[0] } sub gtkshow { $_[0]->show; $_[0] } sub gtksize { $_[0]->size($_[1],$_[2]); $_[0] } +sub gtkexpand { $_[0]->expand; $_[0] } sub gdkpixmap { my ($f, $w) = @_; |