summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorDamien Chaumette <dchaumette@mandriva.com>2004-04-23 13:04:46 +0000
committerDamien Chaumette <dchaumette@mandriva.com>2004-04-23 13:04:46 +0000
commitf603d7cc0fd45bff0389722e376460c6bab121a3 (patch)
tree51854fbaf27124b4e6a6032c0105e7f09249e42c /perl-install
parent83acfb7351f88f6777e10b4c22b84acdb82e0b42 (diff)
downloaddrakx-backup-do-not-use-f603d7cc0fd45bff0389722e376460c6bab121a3.tar
drakx-backup-do-not-use-f603d7cc0fd45bff0389722e376460c6bab121a3.tar.gz
drakx-backup-do-not-use-f603d7cc0fd45bff0389722e376460c6bab121a3.tar.bz2
drakx-backup-do-not-use-f603d7cc0fd45bff0389722e376460c6bab121a3.tar.xz
drakx-backup-do-not-use-f603d7cc0fd45bff0389722e376460c6bab121a3.zip
create frame with a border witdth (titi rulez)
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/ugtk2.pm7
1 files changed, 6 insertions, 1 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index 5dfa7a9c1..d5756b3b9 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -24,7 +24,7 @@ $::o = { locale => lang::read() } if !$::isInstall;
create => [ qw(create_adjustment create_box_with_title create_dialog create_factory_menu create_factory_popup_menu
create_hbox create_hpaned create_menu create_notebook create_okcancel create_packtable
- create_scrolled_window create_vbox create_vpaned _create_dialog ) ],
+ create_scrolled_window create_vbox create_vpaned _create_dialog gtkcreate_frame) ],
ask => [ qw(ask_browse_tree_info ask_browse_tree_info_given_widgets ask_dir ask_from_entry ask_okcancel ask_warn
ask_yesorno ) ],
@@ -571,6 +571,11 @@ sub create_hpaned {
_setup_paned(Gtk2::HPaned->new, @_);
}
+sub gtkcreate_frame {
+ my ($label) = @_;
+ gtkset_border_width(Gtk2::Frame->new($label), 5);
+}
+
# -=-=---=-=---=-=---=-=---=-=---=-=---=-=---=-=---=-=---=-=---=-=---=-=---
# helpers