diff options
Diffstat (limited to 'perl-install/ugtk2.pm')
| -rw-r--r-- | perl-install/ugtk2.pm | 21 |
1 files changed, 14 insertions, 7 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm index 462b25c7f..a628ded3d 100644 --- a/perl-install/ugtk2.pm +++ b/perl-install/ugtk2.pm @@ -21,7 +21,7 @@ use vars qw(@ISA %EXPORT_TAGS @EXPORT_OK @icon_paths $force_center $force_focus 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 destroy_window ) ], + create_scrolled_window create_vbox create_vpaned destroy_window _create_dialog ) ], ask => [ qw(ask_browse_tree_info ask_browse_tree_info_given_widgets ask_dir ask_from_entry ask_okcancel ask_warn ask_yesorno ) ], @@ -355,16 +355,24 @@ sub create_box_with_title { } } +sub _create_dialog { + my ($title, $o_options) = @_; + my $dialog = Gtk2::Dialog->new; + $dialog->signal_connect(delete_event => sub { Gtk2->main_quit }); + $dialog->set_title($title); + $dialog->set_position('center-on-parent'); # center-on-parent doesn't work + $dialog->set_size_request(-1, 400) if !$o_options->{small}; + $dialog->set_modal(1); + $dialog; +} + + # drakfloppy / drakfont / harddrake2 sub create_dialog { my ($title, $label, $o_options) = @_; my $ret = 0; - my $dialog = Gtk2::Dialog->new; - $dialog->signal_connect(delete_event => sub { Gtk2->main_quit }); - $dialog->set_title($title); + my $dialog = _create_dialog($title, $o_options); $dialog->set_border_width(10); - $dialog->set_position('center-on-parent'); # center-on-parent doesn't work - $dialog->set_size_request(-1, 400); my $text = $o_options->{use_markup} ? gtkset_markup(Gtk2::Label->new(), $label) : Gtk2::Label->new($label); $dialog->vbox->pack_start(create_scrolled_window($text, [ 'never', 'automatic' ]), 1, 1, 0); $text->set_line_wrap(1); @@ -383,7 +391,6 @@ sub create_dialog { } $dialog->show_all; - $dialog->set_modal(1); Gtk2->main; $ret; } |