diff options
| -rw-r--r-- | perl-install/ugtk2.pm | 7 |
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 |