diff options
author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-01-15 21:49:35 +0000 |
---|---|---|
committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-01-15 21:49:35 +0000 |
commit | 34538a4e612ca5f1bb8a6c745bbdd68572b41e7a (patch) | |
tree | e53022556e8c2ac43e8d22d6c27e5b4c504eddb0 /perl-install | |
parent | bc00d490218b57c4a66d94570c4bb00bec115566 (diff) | |
download | drakx-backup-do-not-use-34538a4e612ca5f1bb8a6c745bbdd68572b41e7a.tar drakx-backup-do-not-use-34538a4e612ca5f1bb8a6c745bbdd68572b41e7a.tar.gz drakx-backup-do-not-use-34538a4e612ca5f1bb8a6c745bbdd68572b41e7a.tar.bz2 drakx-backup-do-not-use-34538a4e612ca5f1bb8a6c745bbdd68572b41e7a.tar.xz drakx-backup-do-not-use-34538a4e612ca5f1bb8a6c745bbdd68572b41e7a.zip |
remove useless menu infrastucture
Diffstat (limited to 'perl-install')
-rwxr-xr-x | perl-install/standalone/drakups | 19 |
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 <tvignaud\@mandrakesoft.com>\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; |