Mercurial > hg > xemacs-beta
view lisp/gdk.el @ 1365:02909207294a
[xemacs-hg @ 2003-03-20 13:19:56 by youngs]
2003-03-20 Steve Youngs <youngs@xemacs.org>
* menubar-items.el (default-menubar): Add a "Pre-Release Download
Sites" submenu to "Tools -> Packages" menu.
Filter the package download sites menus through
`menu-split-long-menu'.
* obsolete.el (pui-add-install-directory): New.
(package-get-download-menu): New.
* package-admin.el: (package-admin-add-single-file-package):
Removed.
(package-admin-get-install-dir): Don't rely on an installed
xemacs-base package to guess where a package needs to be installed
to.
(package-admin-get-manifest-file): Whitespace clean up.
(package-admin-check-manifest): Use `directory-sep-char' to
compute regexp.
Only search 'lisp' and 'man' directories to determine package
name.
Don't error is xemacs-base package isn't installed, just don't
sort the MANIFEST file and issue a warning.
(package-admin-add-binary-package): Whitespace clean up.
(package-admin-get-lispdir): Ditto.
(package-admin-delete-binary-package): Use `with-temp-buffer'
instead of creating a temporary buffer manually.
* package-get.el: (package-get-remote): Change custom type so that
only either a single directory or remote host:directory can be
selected.
(package-get-download-sites): Put the sites into alphabetical
order of country.
Make the description element be "Country (site)" instead of the
other way around.
(package-get-pre-release-download-sites): New.
(package-get-require-signed-base-updates): Default to t.
(package-get-download-menu): Removed.
(package-get-locate-file): Change to reflect new format of
'package-get-remote'.
(package-get-update-base-from-buffer): Whitespace clean up and
remove an unneccessary 'when'.
(package-get-interactive-package-query): Whitespace clean up.
(package-get-update-all): Ditto.
(package-get-all): Ditto.
(package-get-init-package): Ditto.
(package-get-info): New.
(package-get): Bring into line with new format of
'package-get-remote'.
Error if non-Mule XEmacsen try to install Mule packages.
Don't rely on a Mule package having 'mule-base' in its
"REQUIRES" to determine if it is a Mule package or not,
instead we test "CATEGORY".
Better handling of the situation where a partial package tarball
exists on the local hard drive from a previous interupted
download.
Clean up after a failed package install.
(package-get-set-version-prop): Removed.
(package-get-installedp): Whitespace clean up.
* package-ui.el: Whitespace clean up.
(pui-info-buffer): Make it a defcustom.
(pui-directory-exists): Removed.
(pui-package-dir-list): Removed.
(pui-add-install-directory): Removed.
(package-ui-download-menu): New.
(package-ui-pre-release-download-menu): New.
(pui-set-local-package-get-directory): New.
(pui-package-symbol-char): Whitespace clean up.
(pui-update-package-display): Ditto.
(pui-toggle-package): Ditto.
(pui-toggle-package-key): Ditto.
(pui-toggle-package-delete): Ditto.
(pui-toggle-package-delete-key): Ditto.
(pui-toggle-package-event): Ditto.
(pui-toggle-verbosity-redisplay): Ditto.
(pui-install-selected-packages): Ditto.
(pui-help-echo): Ditto.
(pui-display-info): Ditto.
(pui-list-packages): Ditto.
* packages.el: Whitespace clean up.
| author | youngs |
|---|---|
| date | Thu, 20 Mar 2003 13:19:59 +0000 |
| parents | 7039e6323819 |
| children | 308d34e9f07d |
line wrap: on
line source
;;; gdk.el --- Import GDK functions into XEmacs ;; Copyright (C) 2000 Free Software Foundation ;; Maintainer: William Perry <wmperry@gnu.org> ;; Keywords: extensions, dumped ;; This file is part of XEmacs. ;; XEmacs is free software; you can redistribute it and/or modify it ;; under the terms of the GNU General Public License as published by ;; the Free Software Foundation; either version 2, or (at your option) ;; any later version. ;; XEmacs is distributed in the hope that it will be useful, but ;; WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ;; General Public License for more details. ;; You should have received a copy of the GNU General Public License ;; along with XEmacs; see the file COPYING. If not, write to the Free ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA ;; 02111-1307, USA. ;;; Synched up with: Not in FSF ;;; Commentary: ;; This file is dumped with XEmacs. (eval-and-compile (require 'gtk-ffi)) (globally-declare-fboundp '(gtk-import-function-internal gtk-call-function)) (gtk-import-function nil gdk_set_show_events (gboolean . show_events)) (gtk-import-function nil gdk_set_use_xshm (gboolean . use_xshm)) (gtk-import-function GtkString gdk_get_display) (gtk-import-function nil gdk_flush) (gtk-import-function nil gdk_beep) (gtk-import-function nil gdk_key_repeat_disable) (gtk-import-function nil gdk_key_repeat_restore) (gtk-import-function gint gdk_visual_get_best_depth) (gtk-import-function GdkVisualType gdk_visual_get_best_type) (gtk-import-function GdkVisual gdk_visual_get_system) (gtk-import-function GdkVisual gdk_visual_get_best) (gtk-import-function GdkVisual gdk_visual_get_best_with_depth (gint . depth)) (gtk-import-function GdkVisual gdk_visual_get_best_with_type (GdkVisualType . visual_type)) (gtk-import-function GdkVisual gdk_visual_get_best_with_both (gint . depth) (GdkVisualType . visual_type)) (gtk-import-function gboolean gdk_window_is_visible (GdkWindow . window)) (gtk-import-function gboolean gdk_window_is_viewable (GdkWindow . window)) (gtk-import-function gboolean gdk_window_set_static_gravities (GdkWindow . window) (gboolean . use_static)) (gtk-import-function nil gdk_window_set_cursor (GdkWindow . window) (GdkCursor . cursor)) (gtk-import-function GdkVisual gdk_window_get_visual (GdkWindow . window)) (gtk-import-function GdkWindowType gdk_window_get_type (GdkWindow . window)) (gtk-import-function GdkWindow gdk_window_get_parent (GdkWindow . window)) (gtk-import-function GdkWindow gdk_window_get_toplevel (GdkWindow . window)) (gtk-import-function GdkEventMask gdk_window_get_events (GdkWindow . window)) (gtk-import-function none gdk_window_set_events (GdkWindow . window) (GdkEventMask . events)) (gtk-import-function none gdk_window_set_icon (GdkWindow . window) (GdkWindow . icon_window) (GdkPixmap . pixmap) (GdkBitmap . mask)) (gtk-import-function none gdk_window_set_icon_name (GdkWindow . window) (GtkString . name)) (gtk-import-function none gdk_window_set_group (GdkWindow . window) (GdkWindow . leader)) (gtk-import-function none gdk_window_set_decorations (GdkWindow . window) (GdkWMDecoration . decorations)) (gtk-import-function none gdk_window_set_functions (GdkWindow . window) (GdkWMFunction . functions)) ;; Cursors are handled by glyphs in XEmacs ;; GCs are handled by faces in XEmacs ;; Pixmaps are handled by glyphs in XEmacs ;; Images are handled by glyphs in XEmacs ;; Colors are handled natively by XEmacs ;; Fonts are handled natively by XEmacs (gtk-import-function none gdk_draw_point (GdkDrawable . drawable) (GdkGC . gc) (gint . x) (gint . y)) (gtk-import-function none gdk_draw_line (GdkDrawable . drawable) (GdkGC . gc) (gint . x1) (gint . y1) (gint . x2) (gint . y2)) (gtk-import-function none gdk_draw_rectangle (GdkDrawable . drawable) (GdkGC . gc) (gboolean . filled) (gint . x) (gint . y) (gint . width) (gint . height)) (gtk-import-function none gdk_draw_arc (GdkDrawable . drawable) (GdkGC . gc) (gboolean . filled) (gint . x) (gint . y) (gint . width) (gint . height) (gint . angle1) (gint . angle2)) (gtk-import-function none gdk_draw_string (GdkDrawable . drawable) (GdkFont . font) (GdkGC . gc) (gint . x) (gint . y) (GtkString . string)) (gtk-import-function none gdk_draw_text (GdkDrawable . drawable) (GdkFont . font) (GdkGC . gc) (gint . x) (gint . y) (GtkString . string) (gint . text_length)) (gtk-import-function none gdk_draw_pixmap (GdkDrawable . drawable) (GdkGC . gc) (GdkImage . image) (gint . xsrc) (gint . ysrc) (gint . xdest) (gint . ydest) (gint . width) (gint . height)) ;; Selections are handled natively by XEmacs (provide 'gdk)