2007-05-22 [wwp] 2.9.2cvs10

[claws.git] / src / gtk / gtkaspell.c

diff --git a/src/gtk/gtkaspell.c b/src/gtk/gtkaspell.c
index 8f564a31c4b2abae1d8afbac49222a1c9a057fb9..40bf9c4313b193dbd0da69dd139b6aa36a5931e2 100644 (file)
--- a/src/gtk/gtkaspell.c
+++ b/src/gtk/gtkaspell.c
@@ -2588,4 +2588,13 @@ static gint find_gtkaspeller(gconstpointer aa, gconstpointer bb)
 
        return 1;
 }
+
+gchar *gtkaspell_get_default_dictionary(GtkAspell *gtkaspell)
+{
+       if (gtkaspell && gtkaspell->gtkaspeller &&
+                       gtkaspell->gtkaspeller->dictionary)
+               return gtkaspell->gtkaspeller->dictionary->dictname;
+       else
+               return NULL;
+}
 #endif