summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
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