diff options
| author | Daouda Lo <daouda@mandriva.com> | 2002-12-17 09:52:18 +0000 |
|---|---|---|
| committer | Daouda Lo <daouda@mandriva.com> | 2002-12-17 09:52:18 +0000 |
| commit | 674985937ad2f567d3956303b9c5b7250e95d843 (patch) | |
| tree | 60f9fae0d830ac2efc068088a7bc1db12e170442 /perl-install | |
| parent | 8ec544fbcb2e6873a7c9be098a658f7d0d05f560 (diff) | |
| download | drakx-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.pm | 7 |
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])) |