cgit.sxemacs.org Git - sxemacs/blob - lisp/gtk-glyphs.el

   1 ;;; gtk-glyphs.el --- Support for glyphs in Gtk
   2
   3 ;; Copyright (C) 1994, 1997 Free Software Foundation, Inc.
   4
   5 ;; Author: Kirill M. Katsnelson <kkm@kis.ru>
   6 ;; Maintainer: XEmacs Development Team
   7 ;; Keywords: extensions, internal, dumped
   8
   9 ;; This file is part of SXEmacs.
  10
  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.
  15
  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.
  20
  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/>.
  23
  24 ;;; Synched up with: Not in FSF.
  25
  26 ;;; Commentary:
  27
  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.
  32
  33 ;; This file is dumped with SXEmacs.
  34
  35 ;;; Code:
  36
  37 (progn
  38   (if (featurep 'gtk)
  39       (set-console-type-image-conversion-list
  40        'gtk
  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"
  51                                      [jpeg :data nil] 2)))
  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")
  58                           'global 'gtk)
  59          (set-glyph-image sxemacs-logo
  60                           (concat "../etc/"
  61                                   (if emacs-beta-version
  62                                       "sxemacs-beta.xpm"
  63                                     "sxemacs.xpm"))
  64                           'global 'gtk))
  65         (t
  66          (set-glyph-image sxemacs-logo
  67                           "XEmacs <insert spiffy graphic logo here>"
  68                           'global 'gtk)))
  69   (set-glyph-image octal-escape-glyph "\\")
  70   (set-glyph-image control-arrow-glyph "^")
  71   (set-glyph-image invisible-text-glyph " ...")
  72   )
  73
  74 ;;; gtk-glyphs.el ends here