diff options
| author | Damien Chaumette <dchaumette@mandriva.com> | 2004-04-23 13:04:46 +0000 |
|---|---|---|
| committer | Damien Chaumette <dchaumette@mandriva.com> | 2004-04-23 13:04:46 +0000 |
| commit | f603d7cc0fd45bff0389722e376460c6bab121a3 (patch) | |
| tree | 51854fbaf27124b4e6a6032c0105e7f09249e42c | |
| parent | 83acfb7351f88f6777e10b4c22b84acdb82e0b42 (diff) | |
| download | drakx-f603d7cc0fd45bff0389722e376460c6bab121a3.tar drakx-f603d7cc0fd45bff0389722e376460c6bab121a3.tar.gz drakx-f603d7cc0fd45bff0389722e376460c6bab121a3.tar.bz2 drakx-f603d7cc0fd45bff0389722e376460c6bab121a3.tar.xz drakx-f603d7cc0fd45bff0389722e376460c6bab121a3.zip | |
create frame with a border witdth (titi rulez)
| -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 |