Mercurial > emacs
changeset 52334:a721547105d6
(Vgtk_version_string): New variable.
(syms_of_xfns): DEFVAR_LISP it. Provide gtk.
| author | Lute Kamstra <lute@gnu.org> |
|---|---|
| date | Tue, 26 Aug 2003 08:44:35 +0000 |
| parents | b674b053fde8 |
| children | 2f148721b4f0 |
| files | src/xfns.c |
| diffstat | 1 files changed, 21 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/src/xfns.c Mon Aug 25 11:06:33 2003 +0000 +++ b/src/xfns.c Tue Aug 26 08:44:35 2003 +0000 @@ -125,6 +125,14 @@ #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 @@ #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);