summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-01-15 21:49:35 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-01-15 21:49:35 +0000
commit34538a4e612ca5f1bb8a6c745bbdd68572b41e7a (patch)
treee53022556e8c2ac43e8d22d6c27e5b4c504eddb0
parentbc00d490218b57c4a66d94570c4bb00bec115566 (diff)
downloaddrakx-34538a4e612ca5f1bb8a6c745bbdd68572b41e7a.tar
drakx-34538a4e612ca5f1bb8a6c745bbdd68572b41e7a.tar.gz
drakx-34538a4e612ca5f1bb8a6c745bbdd68572b41e7a.tar.bz2
drakx-34538a4e612ca5f1bb8a6c745bbdd68572b41e7a.tar.xz
drakx-34538a4e612ca5f1bb8a6c745bbdd68572b41e7a.zip
remove useless menu infrastucture
-rwxr-xr-xperl-install/standalone/drakups19
1 files changed, 1 insertions, 18 deletions
diff --git a/perl-install/standalone/drakups b/perl-install/standalone/drakups
index 169564cd3..7a264b32f 100755
--- a/perl-install/standalone/drakups
+++ b/perl-install/standalone/drakups
@@ -177,23 +177,6 @@ sub load_access_conf() {
#------------------------------------------------------------------
# misc gui data
-my $help = N("Help");
-my @menu_items =
- (
- [ N("/_File"), undef, undef, undef, '<Branch>' ],
- [ N("/_File").N("/_Quit"), N("<control>Q"), \&quit_global, undef, '<StockItem>', 'gtk-quit' ],
- [ $help, undef, undef, undef, '<Branch>' ],
- [ $help.N("/_Help"), undef, sub { unless (fork()) { exec("drakhelp --id harddrake") } }, undef, '<Item>' ],
- [ $help.N("/_Report Bug"), undef, sub { unless (fork()) { exec("drakbug --report drakups &") } }, undef, '<Item>' ],
- [ $help.N("/_About..."), undef, sub {
- create_dialog(N("About DrakUPS"),
-#-PO Do not alter the <span ..> and </span> tags
- N("This is DrakUPS, a Mandrake configuration tool for UPS devices.\n
-Author:</span> Thierry Vignaud &lt;tvignaud\@mandrakesoft.com&gt;\n\n"))
- }, undef, '<Item>'
- ]
- );
-
sub edit_row {
my ($model, $iter) = @_;
# create new item if needed (that is when adding a new one) at end of list
@@ -391,6 +374,6 @@ foreach my $i (@pages) {
#------------------------------------------------------------------
# let's start the show:
-$in->do_pkgs->ensure_is_installed('nut-server', '/usr/sbin/upsd');
+$in->do_pkgs->ensure_is_installed('nut-server', '/usr/sbin/upsd') if !$::testing;
$w->{rwindow}->show_all;
$w->main;