From: Lute Kamstra <lute@gnu.org>
Date: Tue, 26 Aug 2003 08:44:35 +0000 (+0000)
Subject: (Vgtk_version_string): New variable.
X-Git-Tag: ttn-vms-21-2-B4~8987
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8a16bd4f2b7b282e5b1ac19717de8ec8e96b44c0;p=emacs.git

(Vgtk_version_string): New variable.
(syms_of_xfns): DEFVAR_LISP it.  Provide gtk.
---

diff --git a/src/xfns.c b/src/xfns.c
index 439ddbfec2f..65747dbe1b9 100644
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -125,6 +125,14 @@ static Lisp_Object Vmotif_version_string;
 
 #endif /* USE_X_TOOLKIT */
 
+#ifdef USE_GTK
+
+/* GTK+ version info */
+
+static Lisp_Object Vgtk_version_string;
+
+#endif /* USE_GTK */
+
 #ifdef HAVE_X11R4
 #define MAXREQUEST(dpy) (XMaxRequestSize (dpy))
 #else
@@ -10899,6 +10907,19 @@ meaning don't clear the cache.  */);
 #endif /* USE_MOTIF */
 #endif /* USE_X_TOOLKIT */
 
+#ifdef USE_GTK
+  Fprovide (intern ("gtk"), Qnil);
+
+  DEFVAR_LISP ("gtk-version-string", &Vgtk_version_string,
+               doc: /* Version info for GTK+.  */);
+  {
+    char gtk_version[40];
+    g_snprintf (gtk_version, sizeof (gtk_version), "%u.%u.%u",
+                GTK_MAJOR_VERSION, GTK_MINOR_VERSION, GTK_MICRO_VERSION);
+    Vgtk_version_string = build_string (gtk_version);
+  }
+#endif /* USE_GTK */
+
   /* X window properties.  */
   defsubr (&Sx_change_window_property);
   defsubr (&Sx_delete_window_property);