diff options
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/drakfloppy | 32 |
1 files changed, 18 insertions, 14 deletions
diff --git a/perl-install/standalone/drakfloppy b/perl-install/standalone/drakfloppy index 568fa25e6..559b07a9a 100755 --- a/perl-install/standalone/drakfloppy +++ b/perl-install/standalone/drakfloppy @@ -119,17 +119,11 @@ my $expert_pane = new Gtk::HPaned(); $expert_pane->set_handle_size(10); $expert_pane->set_gutter_size(8); -my $expert_button = new Gtk::Button(N("Expert Mode")); +my $expert_button = new Gtk::Button(""); $expert_button->signal_connect(clicked => sub { - if ($expert_mode) { - $expert_mod_frame->hide(); - $expert_button_frame->hide() - } else { - $expert_mod_frame->show(); - $expert_button_frame->show(); - } - $expert_mode = !$expert_mode; - }); + $expert_mode = !$expert_mode; + toggle_expert_button(); +}); my $expert_button_vbox = new Gtk::VBox(0, 5); my $expert_button_hbox = new Gtk::HBox(0, 5); @@ -221,15 +215,25 @@ $global_vbox->pack_start($fin_hbox, 0, 0, 0); $window->{window}->add($global_vbox); $window->{rwindow}->show_all(); -if (!$expert_mode) { - $expert_mod_frame->hide(); - $expert_button_frame->hide(); -} +toggle_expert_button(); + $window->main; my_gtk->exit(0); +sub toggle_expert_button { + if ($expert_mode) { + $expert_mod_frame->show(); + $expert_button_frame->show(); + $expert_button->child->set(N("Normal Mode")); + } else { + $expert_mod_frame->hide(); + $expert_button_frame->hide(); + $expert_button->child->set(N("Expert Mode")); + } +} + #------------------------------------------------------------- # tree functions #------------------------------------------------------------- |