summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorDaouda Lo <daouda@mandriva.com>2002-12-17 09:52:18 +0000
committerDaouda Lo <daouda@mandriva.com>2002-12-17 09:52:18 +0000
commit674985937ad2f567d3956303b9c5b7250e95d843 (patch)
tree60f9fae0d830ac2efc068088a7bc1db12e170442 /perl-install
parent8ec544fbcb2e6873a7c9be098a658f7d0d05f560 (diff)
downloaddrakx-674985937ad2f567d3956303b9c5b7250e95d843.tar
drakx-674985937ad2f567d3956303b9c5b7250e95d843.tar.gz
drakx-674985937ad2f567d3956303b9c5b7250e95d843.tar.bz2
drakx-674985937ad2f567d3956303b9c5b7250e95d843.tar.xz
drakx-674985937ad2f567d3956303b9c5b7250e95d843.zip
- add gtkappend_page function (for gui building wizard)
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/ugtk2.pm7
1 files changed, 7 insertions, 0 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index 152d4eaa6..2d0ec3789 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -106,6 +106,13 @@ sub gtkappenditems {
$w
}
+# append page to a notebook
+sub gtkappend_page {
+ my $w = shift;
+ $w->append_page(@_);
+ $w
+}
+
sub gtkbuttonset {
gtkdestroy($_[0]->child);
gtkadd($_[0], gtkshow($_[1]))