summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2001-06-11 16:04:00 +0000
committerdamien <damien@mandriva.com>2001-06-11 16:04:00 +0000
commit92d21c6111281d64ec280d60825af296b794c3ca (patch)
treede58341e5094d518bb0b5518f240600eaa9e50c2
parent9081484aaf892c5c2f3a980a3a116a21d2ea4220 (diff)
downloaddrakx-92d21c6111281d64ec280d60825af296b794c3ca.tar
drakx-92d21c6111281d64ec280d60825af296b794c3ca.tar.gz
drakx-92d21c6111281d64ec280d60825af296b794c3ca.tar.bz2
drakx-92d21c6111281d64ec280d60825af296b794c3ca.tar.xz
drakx-92d21c6111281d64ec280d60825af296b794c3ca.zip
added gtkset_layout
-rw-r--r--perl-install/my_gtk.pm7
1 files changed, 6 insertions, 1 deletions
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index a4eaa7583..82472840a 100644
--- a/perl-install/my_gtk.pm
+++ b/perl-install/my_gtk.pm
@@ -10,7 +10,7 @@ use vars qw(@ISA %EXPORT_TAGS @EXPORT_OK $border);
@ISA = qw(Exporter);
%EXPORT_TAGS = (
helpers => [ qw(create_okcancel 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__ gtksetstyle gtkset_tip gtkappenditems gtkappend gtkset_shadow_type gtkadd gtkput gtktext_insert gtkset_usize gtksize gtkset_justify gtkset_active gtkset_modal gtkset_border_width gtkmove gtkshow gtkhide gtkdestroy gtkset_mousecursor gtkset_mousecursor_normal gtkset_mousecursor_wait gtkset_background gtkset_default_fontset gtkctree_children gtkxpm gtkpng gtkcreate_xpm gtkcreate_png) ],
+ wrappers => [ qw(gtksignal_connect gtkradio gtkpack gtkpack_ gtkpack__ gtkpack2 gtkpack3 gtkpack2_ gtkpack2__ gtksetstyle gtkset_tip gtkappenditems gtkappend gtkset_shadow_type gtkset_layout gtkadd gtkput gtktext_insert gtkset_usize gtksize gtkset_justify gtkset_active gtkset_modal gtkset_border_width gtkmove gtkshow gtkhide gtkdestroy gtkset_mousecursor gtkset_mousecursor_normal gtkset_mousecursor_wait gtkset_background gtkset_default_fontset gtkctree_children gtkxpm gtkpng gtkcreate_xpm gtkcreate_png) ],
ask => [ qw(ask_warn ask_okcancel ask_yesorno ask_from_entry ask_file) ],
);
$EXPORT_TAGS{all} = [ map { @$_ } values %EXPORT_TAGS ];
@@ -245,6 +245,11 @@ sub gtkset_shadow_type {
$_[0];
}
+sub gtkset_layout {
+ $_[0]->set_layout($_[1]);
+ $_[0];
+}
+
sub gtkadd($@) {
my $w = shift;
foreach (@_) {