Commit 8a16bd4f authored by Lute Kamstra's avatar Lute Kamstra
Browse files

(Vgtk_version_string): New variable.

(syms_of_xfns): DEFVAR_LISP it.  Provide gtk.
parent ac7ec68c
......@@ -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);
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment