diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2002-11-20 15:29:53 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2002-11-20 15:29:53 +0000 |
| commit | b5c186ef80c1efa43235fa5a2864ffc6a6a1740d (patch) | |
| tree | f00057138bc49b1e068123dcea88b6c1808733c6 /perl-install/standalone | |
| parent | eaf0112e5189bc96daa3d8a8ae9a78e76f580873 (diff) | |
| download | drakx-backup-do-not-use-b5c186ef80c1efa43235fa5a2864ffc6a6a1740d.tar drakx-backup-do-not-use-b5c186ef80c1efa43235fa5a2864ffc6a6a1740d.tar.gz drakx-backup-do-not-use-b5c186ef80c1efa43235fa5a2864ffc6a6a1740d.tar.bz2 drakx-backup-do-not-use-b5c186ef80c1efa43235fa5a2864ffc6a6a1740d.tar.xz drakx-backup-do-not-use-b5c186ef80c1efa43235fa5a2864ffc6a6a1740d.zip | |
message_noconf_box() and message_underdevel() were quite
identical. let consolidate them
Diffstat (limited to 'perl-install/standalone')
| -rwxr-xr-x | perl-install/standalone/drakbackup | 27 |
1 files changed, 8 insertions, 19 deletions
diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup index 050ef9590..50fbdc4bf 100755 --- a/perl-install/standalone/drakbackup +++ b/perl-install/standalone/drakbackup @@ -4318,7 +4318,9 @@ sub message_noselect_what_box { $up_box->show_all(); } -sub message_noconf_box { +sub message_common_box_2 { + my ($label, $restore_main) = @_; + $box2->destroy(); my ($pix_warn_map, $pix_warn_mask) = gtkcreate_png('warning'); @@ -4334,29 +4336,16 @@ sub message_noconf_box { 1, new Gtk::VBox(0, 5), ), ); - button_box_restore_main(); + button_box_restore_main() if $restore_main; $central_widget = \$box2; $up_box->show_all(); } +sub message_noconf_box { + message_common_box_2(N("No configuration file found \nplease click Wizard or Advanced."), 1); +} sub message_underdevel { - $box2->destroy(); - my ($pix_warn_map, $pix_warn_mask) = gtkcreate_png('warning'); - - gtkadd($advanced_box, - $box2 = gtkpack_(new Gtk::HBox(0, 15), - 1, new Gtk::VBox(0, 5), - 1, gtkpack(new Gtk::HBox(0, 15), - new Gtk::VBox(0, 5), - new Gtk::Pixmap($pix_warn_map, $pix_warn_mask), - N("Under Devel ... please wait."), - new Gtk::VBox(0, 5), - ), - 1, new Gtk::VBox(0, 5), - ), - ); - $central_widget = \$box2; - $up_box->show_all(); + message_common_box_2(N("Under Devel ... please wait.")); } ################################################ BUILD_BACKUP ################################################ |