summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorSebastien Dupont <sdupont@mandriva.com>2001-12-08 00:59:19 +0000
committerSebastien Dupont <sdupont@mandriva.com>2001-12-08 00:59:19 +0000
commit2b5f8ed4364b6c06a74f29af47305223066f2e1e (patch)
treefa7afd3915540fc3144ea9e91afcb6bb840bd3a4 /perl-install
parentdfce22e4b443fab089a8893c2fc4bd55ae98bcf7 (diff)
downloaddrakx-2b5f8ed4364b6c06a74f29af47305223066f2e1e.tar
drakx-2b5f8ed4364b6c06a74f29af47305223066f2e1e.tar.gz
drakx-2b5f8ed4364b6c06a74f29af47305223066f2e1e.tar.bz2
drakx-2b5f8ed4364b6c06a74f29af47305223066f2e1e.tar.xz
drakx-2b5f8ed4364b6c06a74f29af47305223066f2e1e.zip
begin new wizard gi.
button position correction in restore mode
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakbackup93
1 files changed, 82 insertions, 11 deletions
diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup
index 023244eeb..9b1a3afab 100755
--- a/perl-install/standalone/drakbackup
+++ b/perl-install/standalone/drakbackup
@@ -432,7 +432,7 @@ sub filedialog {
$file_dialog->show();
}
-sub wizard {
+sub wizard_old {
my $backup_sys;
my $backup_user;
my $user;
@@ -1059,6 +1059,74 @@ sub advanced {
}
+
+sub wizard {
+ my $about_box;
+ my $book_open;
+ my $book_open_mask;
+ my $transparent;
+ my $book_closed;
+ my $book_closed_mask;
+ my $box_tmp;
+ my $choice_what_sys;
+ my $box2;
+ read_conf_file();
+
+
+ my ($pix_u_map, $pix_u_mask) = gtkcreate_png("backup_title");
+ my ($pix_l_map, $pix_l_mask) = gtkcreate_png("backup_left2");
+ my ($pix_r_map, $pix_r_mask) = gtkcreate_png("backup_bot2");
+
+ gtkpack($up_box,
+ $box = gtkpack_(new Gtk::VBox(0, 3),
+ 0, new Gtk::Pixmap($pix_u_map, $pix_u_mask),
+ 1, gtkpack_(new Gtk::HBox(0, 3),
+ 0, new Gtk::Pixmap($pix_l_map, $pix_l_mask),
+ 1, $advanced_box = gtkpack_(new Gtk::HBox(0, 15),
+ 1, $box2 = gtkpack_(new Gtk::HBox(0, 15),
+ 1, new Gtk::VBox(0, 5),
+ 1, gtkpack_(new Gtk::VBox(0, 15),
+ 1, new Gtk::VBox(0, 5),
+ 1, gtksignal_connect(my $button_options = new Gtk::Button(), clicked => sub {
+ $box2->destroy(); }),
+ 1, new Gtk::VBox(0, 5),
+ ),
+ 1, new Gtk::VBox(0, 5),
+ ),
+ ),
+ ),
+ 0, new Gtk::Pixmap($pix_r_map, $pix_r_mask),
+ 0, gtkpack_(new Gtk::HButtonBox,
+ 0, gtksignal_connect(new Gtk::Button(_(" Cancel ")), clicked =>
+ sub { ${$central_widget}->destroy(); interactive_mode(); }),
+ 0, gtksignal_connect(new Gtk::Button(_(" Help ")), clicked =>
+ sub { ${$central_widget}->destroy(); adv_help(\&$current_widget,$custom_help ); }),
+ 1, new Gtk::HBox(0, 1),
+ 0, gtksignal_connect(new Gtk::Button(_(" Previous ")), clicked =>
+ sub { ${$central_widget}->destroy(); $previous_widget->(); }),
+ 0, gtksignal_connect(new Gtk::Button(_(" Next ")), clicked =>
+ sub { ${$central_widget}->destroy(); save_conf_file(); $previous_widget->(); }),
+
+ ),
+ ),
+ );
+ $custom_help = "";
+ $central_widget = \$box2;
+ $current_widget = \&advanced_box;
+ $previous_widget =\&interactive_mode;
+ $up_box->show_all();
+}
+
+
+
+
+
+
+
+
+
+
+
sub advanced_bef {
my $notebook;
my $notebook_what;
@@ -1689,11 +1757,14 @@ sub restore {
0, gtkpng('backup_bot2'),
0, new Gtk::HSeparator,
0, gtkpack_(new Gtk::HBox(0, 0),
- 1, gtkpack_(gtkset_layout(new Gtk::HButtonBox, -start),
+ 1, gtkpack_(new Gtk::HButtonBox,
1, gtksignal_connect(new Gtk::Button(_(" Cancel ")), clicked => sub {
${$central_widget}->destroy(); interactive_mode(); }),
1, gtksignal_connect(new Gtk::Button(_(" Help ")), clicked => sub {
$retore_box->destroy(); restore_help();}),
+ 1, new Gtk::HBox(0, 0),
+ 1, gtksignal_connect(new Gtk::Button(_(" Next ")), clicked => sub {
+ $retore_box->destroy(); restore_help();}),
),
),
)
@@ -2080,15 +2151,15 @@ configuration file:
gtkpack($advanced_box,
$advanced_box_help = gtkpack_(new Gtk::VBox(0,10),
- 1, gtkpack_(new Gtk::HBox(0,0),
- 1, $text,
- 0, new Gtk::VScrollbar($text->vadj),
- ),
- 0, gtkadd(gtkset_layout(new Gtk::HButtonBox, -spread),
- gtksignal_connect(new Gtk::Button(_("OK")), clicked =>
- sub { ${$central_widget}->destroy(); $function->(); }),
- ),
- )
+ 1, gtkpack_(new Gtk::HBox(0,0),
+ 1, $text,
+ 0, new Gtk::VScrollbar($text->vadj),
+ ),
+ 0, gtkadd(gtkset_layout(new Gtk::HButtonBox, -spread),
+ gtksignal_connect(new Gtk::Button(_("OK")), clicked => sub {
+ ${$central_widget}->destroy(); $function->(); }),
+ ),
+ )
);
$central_widget = \$advanced_box_help;
$up_box->show_all();