summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakbackup
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2002-11-20 15:29:53 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2002-11-20 15:29:53 +0000
commitb5c186ef80c1efa43235fa5a2864ffc6a6a1740d (patch)
treef00057138bc49b1e068123dcea88b6c1808733c6 /perl-install/standalone/drakbackup
parenteaf0112e5189bc96daa3d8a8ae9a78e76f580873 (diff)
downloaddrakx-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/drakbackup')
-rwxr-xr-xperl-install/standalone/drakbackup27
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 ################################################