summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakfloppy
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-02-25 07:47:16 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-02-25 07:47:16 +0000
commit2be82a8ee053bf34e4d162b9906fe2bd46a79218 (patch)
tree8d1723d14997bb6b053ab241aa7f4e89930e9385 /perl-install/standalone/drakfloppy
parent75520aa584c25d4c66ca620256561964d7dc7be0 (diff)
downloaddrakx-backup-do-not-use-2be82a8ee053bf34e4d162b9906fe2bd46a79218.tar
drakx-backup-do-not-use-2be82a8ee053bf34e4d162b9906fe2bd46a79218.tar.gz
drakx-backup-do-not-use-2be82a8ee053bf34e4d162b9906fe2bd46a79218.tar.bz2
drakx-backup-do-not-use-2be82a8ee053bf34e4d162b9906fe2bd46a79218.tar.xz
drakx-backup-do-not-use-2be82a8ee053bf34e4d162b9906fe2bd46a79218.zip
fix #???? : switch the "expert mode" toggle button label regarding the current
mode (beginner or expert)
Diffstat (limited to 'perl-install/standalone/drakfloppy')
-rwxr-xr-xperl-install/standalone/drakfloppy32
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
#-------------------------------------------------------------