[PATCH] A website for Nautius

[Luca Ferretti <elle uca libero it>]

Hi everyone.

Here is a patch[1] to support the "open link/email" feature in
GtkAboutDialog. The patch adds a button to open the page
http://www.gnome.org/projects/nautilus/ (well, I suppose it should
exist...)

O course before apply this patch we need to point to a real web
homepage. Any info?

I did this patch because I'm planning to change the Italian translation
of "translation-credit" string from something like

        Mantainer:
          Luca Ferretti <email>
        Thanks to:
          Pier Luigi Fiorini
          Christopher R. Gabriel
          TP people
        
to a more complex

        Mantainer:
          Luca Ferretti <email>
        Thanks to:
          Pier Luigi Fiorini
          Christopher R. Gabriel
          TP people
        
        For more info about GNOME Translation Project visit http://...
        To contact Italian GNOME Team please visit
        http://www.it.gnome.org
        To report a bug about Nautilus translation open a bug on
        http://bugzilla.gnome.org adding a CC notify to Nautilus
        translator
        
I'm planning to propose this scheme to other Italian translators.

So, if there is no interest to a Nautilus homepage, please remove
website and website-location properties, but apply the patch.


PS It seems there is no notification of clicks (the pointer don't change
in hourglass): do you think this have to be managed in nautilus code, or
I could open a bug against GtkAboutDialog widget?

[1] inspired by gtk-demo and epiphany code

diff -Naur /home/luca/Progetti/Programmi/cvs/GNOME_HEAD/nautilus/src/nautilus-window-menus.c nautilus/src/nautilus-window-menus.c
--- /home/luca/Progetti/Programmi/cvs/GNOME_HEAD/nautilus/src/nautilus-window-menus.c	2005-06-05 14:19:08.000000000 +0200
+++ nautilus/src/nautilus-window-menus.c	2005-06-07 20:20:14.650230848 +0200
@@ -358,6 +358,26 @@
 }
 
 static void
+open_link (GtkAboutDialog *about_dialog,
+	   const gchar    *link,
+	   gpointer        data)
+{
+	gnome_vfs_url_show (link);
+}
+
+static void
+open_email (GtkAboutDialog *about_dialog,
+	    const char     *base_address,
+	    gpointer       data)
+{
+        char *address;
+
+        address = g_strdup_printf ("mailto:%s";, base_address);
+        gnome_vfs_url_show (address);
+        g_free (address);
+}
+
+static void
 action_about_nautilus_callback (GtkAction *action,
 				gpointer user_data)
 {
@@ -432,6 +452,9 @@
 		 * box to give credit to the translator(s).
 		 */
 
+		gtk_about_dialog_set_email_hook (open_email, NULL, NULL);
+		gtk_about_dialog_set_url_hook (open_link, NULL, NULL);
+
 		logo_path = nautilus_pixmap_file ("nautilus-launch-icon.png");
 		logo = NULL;
 		if (logo_path != NULL) {
@@ -452,6 +475,8 @@
 			      "documenters", documenters,
 			      "translator-credits", _("translator-credits"),
 			      "logo", logo,
+			      "website", "http://www.gnome.org/projects/nautilus/";,
+			      "website-label", _("Visit the Nautilus homepage"),
 			      NULL);
 		
 		if (logo != NULL) {