# HG changeset patch
# User stephent
# Date 995460292 0
# Node ID ff9d7f21f8d0296b33311cf053f0a99b81a85a0d
# Parent  a6c89d799f00a943e789e757768bc0f2541e3372
[xemacs-hg @ 2001-07-18 12:44:51 by stephent]
define-specifier-tag 'gtk.

diff -r a6c89d799f00 -r ff9d7f21f8d0 lisp/ChangeLog
--- a/lisp/ChangeLog	Sun Jul 15 08:18:59 2001 +0000
+++ b/lisp/ChangeLog	Wed Jul 18 12:44:52 2001 +0000
@@ -1,3 +1,7 @@
+2001-07-18  Stephen J. Turnbull  <stephen@xemacs.org>
+
+	* specifier.el: define-specifier-tag 'gtk.
+
 2001-07-15  Adrian Aichner  <adrian@xemacs.org>
 
 	* about.el (about-personal-info): Fix word duplication typos.
diff -r a6c89d799f00 -r ff9d7f21f8d0 lisp/specifier.el
--- a/lisp/specifier.el	Sun Jul 15 08:18:59 2001 +0000
+++ b/lisp/specifier.el	Wed Jul 18 12:44:52 2001 +0000
@@ -600,6 +600,8 @@
 (or (valid-specifier-tag-p 'mswindows)
     (define-specifier-tag 'mswindows (lambda (dev)
 				       (eq (device-type dev) 'mswindows))))
+(or (valid-specifier-tag-p 'gtk)
+    (define-specifier-tag 'gtk (lambda (dev) (eq (device-type dev) 'gtk))))
 
 ;; Add special tag for use by initialization code.  Code that
 ;; sets up default specs should use this tag.  Code that needs to