summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-05-21 14:46:42 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-05-21 14:46:42 +0000
commit8aae2e0bfea63f97038a9e4730064507d6d35cb3 (patch)
treecedabebcd3d52ca9c6e5cff4e2c5160fc323d1a3 /perl-install/standalone
parent0d70c8f8622c7cb47963b8b8aa2aefc3a658cf69 (diff)
downloaddrakx-backup-do-not-use-8aae2e0bfea63f97038a9e4730064507d6d35cb3.tar
drakx-backup-do-not-use-8aae2e0bfea63f97038a9e4730064507d6d35cb3.tar.gz
drakx-backup-do-not-use-8aae2e0bfea63f97038a9e4730064507d6d35cb3.tar.bz2
drakx-backup-do-not-use-8aae2e0bfea63f97038a9e4730064507d6d35cb3.tar.xz
drakx-backup-do-not-use-8aae2e0bfea63f97038a9e4730064507d6d35cb3.zip
- help menu items are not checkable
- do not display spurious "/" on menu buttons when embedded - (strip_first_underscore) let speedup the regexp
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/harddrake216
1 files changed, 9 insertions, 7 deletions
diff --git a/perl-install/standalone/harddrake2 b/perl-install/standalone/harddrake2
index df653debc..927763ce1 100755
--- a/perl-install/standalone/harddrake2
+++ b/perl-install/standalone/harddrake2
@@ -103,7 +103,7 @@ my @menu_items =
[ join('', @{$menu_options{JAZZ_DETECTION}}), undef,
sub { $options{JAZZ_DETECTION} = $check_boxes{JAZZ_DETECTION}->active }, undef, '<CheckItem>' ],
[ $menus{help}, undef, undef, undef, '<Branch>' ],
- [ $menus{help}.N("/_Help"), undef, sub { unless (fork()) { exec("drakhelp Drakxtools-Guide.html/harddrake.html") } }, undef, '<CheckItem>' ],
+ [ $menus{help}.N("/_Help"), undef, sub { unless (fork()) { exec("drakhelp Drakxtools-Guide.html/harddrake.html") } }, undef, '<Item>' ],
[ $menus{help}.N("/_Fields description"), undef, sub {
if ($current_device) {
create_dialog(N("Harddrake help"),
@@ -113,15 +113,15 @@ my @menu_items =
create_dialog(N("Select a device !"), N("Once you've selected a device, you'll be able to see the device information in fields displayed on the right frame (\"Information\")"))
}
},
- undef, '<CheckItem>'
+ undef, '<Item>'
],
- [ $menus{help}.N("/_Report Bug"), undef, sub { unless (fork()) { exec("drakbug --report harddrake2 &") } }, undef, '<CheckItem>' ],
+ [ $menus{help}.N("/_Report Bug"), undef, sub { unless (fork()) { exec("drakbug --report harddrake2 &") } }, undef, '<Item>' ],
[ $menus{help}.N("/_About..."), undef, sub {
create_dialog(N("About Harddrake"),
N("This is HardDrake, a Mandrake hardware configuration tool.\nVersion: %s
Author: Thierry Vignaud <tvignaud\@mandrakesoft.com>\n\n", $harddrake::data::version) .
formatAlaTeX($::license));
- }, undef, '<CheckItem>'
+ }, undef, '<Item>'
]
);
@@ -179,8 +179,8 @@ $w->{window}->add(gtkpack_(0, Gtk2::VBox->new(0, 0),
),
0, $statusbar = Gtk2::Statusbar->new,
if_($::isEmbedded, 0, gtkpack(create_hbox(),
- gtksignal_connect(Gtk2::Button->new($menus{options}), 'event' => popup_menu($opt_menu), $menubar),
- gtksignal_connect(Gtk2::Button->new($menus{help}), 'event' => popup_menu($help_menu), $menubar),
+ gtksignal_connect(Gtk2::Button->new(N("Options")), 'event' => popup_menu($opt_menu), $menubar),
+ gtksignal_connect(Gtk2::Button->new(N("help")), 'event' => popup_menu($help_menu), $menubar),
gtksignal_connect(Gtk2::Button->new(N("Quit")),
'clicked' => \&quit_global),
),
@@ -349,9 +349,11 @@ sub show_hide {
sub strip_first_underscore {
- join '', map { s/([^_]*)_(.*)/$1$2/; $_ } @_;
+ join '', map { s/_//; $_ } @_;
}
+sub strip_first_slash { print "PROCESS \"$_\" => "; s!/!!; print "\"$_\"\n"; $_ }
+
sub rename_field {
my ($dev, $field, $new_field) = @_;
if ($dev->{$field}) {