1 ;;; gtk-glyphs.el --- Support for glyphs in Gtk
3 ;; Copyright (C) 1994, 1997 Free Software Foundation, Inc.
5 ;; Author: Kirill M. Katsnelson <kkm@kis.ru>
6 ;; Maintainer: XEmacs Development Team
7 ;; Keywords: extensions, internal, dumped
9 ;; This file is part of SXEmacs.
11 ;; SXEmacs is free software: you can redistribute it and/or modify
12 ;; it under the terms of the GNU General Public License as published by
13 ;; the Free Software Foundation, either version 3 of the License, or
14 ;; (at your option) any later version.
16 ;; SXEmacs is distributed in the hope that it will be useful,
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19 ;; GNU General Public License for more details.
21 ;; You should have received a copy of the GNU General Public License
22 ;; along with this program. If not, see <http://www.gnu.org/licenses/>.
24 ;;; Synched up with: Not in FSF.
28 ;; This file contains temporary definitions for 'gtk glyphs.
29 ;; Since there currently is no image support, the glyps are defined
30 ;; TTY-style. This file has to be removed or reworked completely
31 ;; when we have images.
33 ;; This file is dumped with SXEmacs.
39 (set-console-type-image-conversion-list
41 `(,@(if (featurep 'xpm) '((#r"\.xpm\'" [xpm :file nil] 2)))
42 (#r"\.xbm\'" [xbm :file nil] 2)
43 ,@(if (featurep 'xpm) '((#r"\`/\* XPM \*/" [xpm :data nil] 2)))
44 ,@(if (featurep 'xface) '(("\\`X-Face:" [xface :data nil] 2)))
45 ,@(if (featurep 'gif) '((#r"\.gif\'" [gif :file nil] 2)
46 ("\\`GIF8[79]" [gif :data nil] 2)))
47 ,@(if (featurep 'jpeg) '((#r"\.jpe?g\'" [jpeg :file nil] 2)))
48 ;; all of the JFIF-format JPEG's that I've seen begin with
49 ;; the following. I have no idea if this is standard.
50 ,@(if (featurep 'jpeg) '(("\\`\377\330\377\340\000\020JFIF"
52 ,@(if (featurep 'png) '((#r"\.png\'" [png :file nil] 2)))
53 ,@(if (featurep 'png) '(("\\`\211PNG" [png :data nil] 2)))
54 ("" [autodetect :data nil] 2))))
55 (cond ((featurep 'xpm)
56 (set-glyph-image frame-icon-glyph
57 (concat "../etc/" "xemacs-icon3.xpm")
59 (set-glyph-image sxemacs-logo
61 (if emacs-beta-version
66 (set-glyph-image sxemacs-logo
67 "XEmacs <insert spiffy graphic logo here>"
69 (set-glyph-image octal-escape-glyph "\\")
70 (set-glyph-image control-arrow-glyph "^")
71 (set-glyph-image invisible-text-glyph " ...")
74 ;;; gtk-glyphs.el ends here