Mercurial > emacs
view lisp/forms-pass.el @ 75100:d4a5d8d2cba2
(CG_SET_FILL_COLOR_MAYBE_WITH_CGCOLOR)
(CG_SET_FILL_COLOR_WITH_GC_FOREGROUND)
(CG_SET_FILL_COLOR_WITH_GC_BACKGROUND)
(CG_SET_STROKE_COLOR_MAYBE_WITH_CGCOLOR)
(CG_SET_STROKE_COLOR_WITH_GC_FOREGROUND): New macros.
(mac_cg_color_space_rgb) [USE_CG_DRAWING]: New variable.
(mac_cg_color_black) [USE_CG_DRAWING
&& MAC_OS_X_VERSION_MAX_ALLOWED >= 1030]: New variable.
(init_cg_color) [USE_CG_DRAWING]: New function.
(mac_draw_line, mac_draw_rectangle) [USE_CG_DRAWING]: Use
CG_SET_STROKE_COLOR_WITH_GC_FOREGROUND instead of CG_SET_STROKE_COLOR.
(mac_erase_rectangle, mac_clear_window, mac_draw_cg_image)
(mac_fill_rectangle, mac_draw_image_string_cg) [USE_CG_DRAWING]:
Use CG_SET_FILL_COLOR_WITH_GC_FOREGROUND or
CG_SET_FILL_COLOR_WITH_GC_BACKGROUND instead of CG_SET_FILL_COLOR.
(mac_draw_string_common) [MAC_OSX && USE_ATSUI]: Likewise.
(XCreateGC, XFreeGC, XSetForeground, XSetBackground) [USE_CG_DRAWING
&& MAC_OS_X_VERSION_MAX_ALLOWED >= 1030]: Use gc->cg_fore_color and/or
gc->cg_back_color.
(install_drag_handler, remove_drag_handler): Make extern.
(install_menu_target_item_handler): Add extern.
(install_window_handler): Call install_menu_target_item_handler.
[MAC_OS8] (main): Use MAC_EMACS_CREATOR_CODE instead of 'EMAx'.
(mac_initialize) [USE_CG_DRAWING]: Call init_cg_color.
author | YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp> |
---|---|
date | Fri, 05 Jan 2007 08:30:14 +0000 |
parents | 695cf19ef79e |
children | 375f2633d815 1e3a407766b9 |
line wrap: on
line source
;;; forms-pass.el --- passwd file demo for forms-mode -*- no-byte-compile: t -*- ;; This file is part of GNU Emacs. ;;; Commentary: ;; This demo visits your passwd file. ;;; Code: ;; use yp if present (or (file-exists-p (setq forms-file "/var/yp/src/passwd")) (setq forms-file "/etc/passwd")) (setq forms-read-only t) ; to make sure (setq forms-field-sep ":") (setq forms-number-of-fields 7) (setq forms-format-list (list "====== Visiting " forms-file " ======\n\n" "User : " 1 " Uid: " 3 " Gid: " 4 "\n\n" "Name : " 5 "\n\n" "Home : " 6 "\n\n" "Shell: " 7 "\n")) ;;; arch-tag: 74801012-1a2d-4173-b9e4-fcfa241e2305 ;;; forms-pass.el ends here