From f603d7cc0fd45bff0389722e376460c6bab121a3 Mon Sep 17 00:00:00 2001 From: Damien Chaumette Date: Fri, 23 Apr 2004 13:04:46 +0000 Subject: create frame with a border witdth (titi rulez) --- perl-install/ugtk2.pm | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'perl-install/ugtk2.pm') 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 -- cgit v1.2.1