From baaf473becfd78d1d54f42cfe6d8b5f1dbb2a006 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Thu, 6 Apr 2006 19:17:17 +0000
Subject: (setState) when "About..." is clicked, open a dialog rather than run
 a browser

---
 mdkapplet | 32 +++++++++++++++++++++++++++++++-
 1 file changed, 31 insertions(+), 1 deletion(-)

(limited to 'mdkapplet')

diff --git a/mdkapplet b/mdkapplet
index 6c822ed8..4807c2dc 100755
--- a/mdkapplet
+++ b/mdkapplet
@@ -468,7 +468,37 @@ sub setState {
 	$menu->append(gtksignal_connect(gtkshow(Gtk2::MenuItem->new_with_label($actions{$_}{name})), activate => $actions{$_}{launch}));
     }
     $menu->append(gtkshow(Gtk2::SeparatorMenuItem->new));
-    $menu->append(gtksignal_connect(gtkshow(Gtk2::MenuItem->new_with_label(N("About..."))), activate => sub { mdkonline::get_site($online_site) }));
+    $menu->append(gtksignal_connect(gtkshow(Gtk2::MenuItem->new_with_label(N("About..."))), activate => sub {
+                                        my $ver = 1; # automatically set from spec file
+                                        my $w = gtkset_name(Gtk2::AboutDialog->new, N("Mandriva Online %s"), $ver);
+                                        $w->set_version($ver);
+                                        $w->set_copyright(N("Copyright (C) %s by Mandriva", '2001-2006'));
+                                        my $url = $online_site;
+                                        $url =~ s/^https:/http:/;
+                                        $w->set_website($url);
+                                        #$w->set_license(formatAlaTeX(join("\n", cat_('/usr/share/common-licenses/GPL'))));
+                                        #$w->set_wrap_license(1);
+                                        $w->set_license(join('', cat_('/usr/share/common-licenses/GPL')));
+                                        $w->set_comments(N("Mandriva Online gives access to Mandriva web services."));
+                                        $w->set_website_label(N("Online WebSite"));
+                                        $w->set_authors('Thierry Vignaud <vignaud@mandriva.com>');
+                                        $w->show_all;
+                                        $w->run;
+                                        return 1;
+
+                                        my $dialog = gtkset_border_width(_create_dialog(N("Mandriva Online %s"), $ver), 5);
+                                        $dialog->action_area->pack_start(gtksignal_connect(Gtk2::Button->new(N("Close")), clicked => sub { $dialog->destroy }),
+                                                                         0,0,0);
+
+                                        gtkpack_($dialog->box,
+                                                 gtktext_insert(Gtk2::TextView->new,
+                                                                join("\n",
+                                                                     ,
+                                                                 )
+                                                            )
+                                             );
+             
+                                    }));
     $menu->append(gtksignal_connect(gtkset_active($checkme = Gtk2::CheckMenuItem->new_with_label(N("Always launch on startup")), shouldStart()), toggled => sub { setAutoStart(uc(bool2text($checkme->get_active))) }));
     $checkme->show;
     $menu->append(gtksignal_connect(gtkshow(Gtk2::MenuItem->new_with_label(N("Quit"))), activate => sub { mainQuit() }));
-- 
cgit v1.2.1