Mercurial > hg > xemacs-beta

view lisp/gtk-extra.el @ 5656:e9c3fe82127d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Co-operate with the byte-optimizer in the bytecomp.el labels implementation. lisp/ChangeLog addition: 2012-05-05 Aidan Kehoe <kehoea@parhasard.net> Co-operate with the byte-optimizer in the bytecomp.el labels implementation, don't work against it. * byte-optimize.el: * byte-optimize.el (byte-compile-inline-expand): Call #'byte-compile-unfold-lambda explicitly here, don't assume that the byte-optimizer will do it. * byte-optimize.el (byte-compile-unfold-lambda): Call #'byte-optimize-body on the body, don't just mapcar #'byte-optimize-form along it. * byte-optimize.el (byte-optimize-lambda): New. Optimize a lambda form. * byte-optimize.el (byte-optimize-form-code-walker): Descend lambda expressions, defun, and defmacro, relevant for lexically-oriented operators like #'labels. * byte-optimize.el (byte-optimize-body): Only return a non-eq object if we've actually optimized something * bytecomp.el (byte-compile-initial-macro-environment): In the labels implementation, work with the byte optimizer, not against it; warn when labels are defined but not used, automatically inline labels that are used only once. * bytecomp.el (byte-recompile-directory): No need to wrap #'byte-compile-report-error in a lambda with #'call-with-condition-handler here. * bytecomp.el (byte-compile-form): Don't inline compiled-function objects, they're probably labels. * bytecomp.el (byte-compile-funcall): No longer inline lambdas, trust the byte optimizer to have done it properly, even for labels. * cl-extra.el (cl-macroexpand-all): Treat labels established by the byte compiler distinctly from those established by cl-macs.el. * cl-macs.el (cl-do-proclaim): Treat labels established by the byte compiler distinctly from those established by cl-macs.el. * gui.el (make-gui-button): When referring to the #'gui-button-action label, quote it using function, otherwise there's a warning from the byte compiler.
author Aidan Kehoe <kehoea@parhasard.net>
date Sat, 05 May 2012 20:48:24 +0100
parents 308d34e9f07d
children
line wrap: on
line source

;;; gtk-extra.el --- Import `GTK+ Extra' widgets 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 3 of the License, 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.  If not, see <http://www.gnu.org/licenses/>.

;;; Synched up with: Not in FSF

;;; Commentary:

;; GTK+ Extra can be retrieved from http://magnet.fsu.edu/~feiguin/gtk

(eval-and-compile
  (require 'gtk-ffi))

(globally-declare-fboundp
 '(gtk-import-function-internal gtk-call-function))

;;; gtkbordercombo.h
(gtk-import-function GtkType gtk_border_combo_get_type)
(gtk-import-function GtkWidget gtk_border_combo_new)

;;; gtkcheckitem.h
(gtk-import-function GtkType gtk_check_item_get_type)
(gtk-import-function GtkWidget gtk_check_item_new)
(gtk-import-function GtkWidget gtk_check_item_new_with_label
		     (GtkString . label))

;;; gtkcolorcombo.h
(gtk-import-function GtkType gtk_color_combo_get_type)
(gtk-import-function GtkWidget gtk_color_combo_new)
(gtk-import-function GtkWidget gtk_color_combo_new_with_values
		     (gint . nrows)
		     (gint . ncols)
		     (GtkArrayOfString . color_names))
(gtk-import-function GtkString gtk_color_combo_get_color_at
		     (GtkColorCombo . combo)
		     (gint          . row)
		     (gint          . col))
;;;(gtk-import-function none gtk_color_combo_find_color
;;;		     (GtkColorCombo . combo)
;;;		     (GdkColor      . color)
;;;		     ((gint . out)  . row)
;;;		     ((gint . out)  . col))

;;; gtkcombobox.h
(gtk-import-function GtkType gtk_combobox_get_type)
(gtk-import-function GtkWidget gtk_combobox_new)
(gtk-import-function none gtk_combobox_hide_popdown_window)

;;; gtkdirtree.h
(gtk-import-function GtkType gtk_dir_tree_get_type)
(gtk-import-function GtkWidget gtk_dir_tree_new)
(gtk-import-function gint gtk_dir_tree_open_dir
		     (GtkDirTree . tree)
		     (GtkString  . path))

;;; gtkfilelist.h
(gtk-import-function GtkType gtk_file_list_get_type)
(gtk-import-function GtkWidget gtk_file_list_new
		     (guint . icon_width)
		     (gint  . mode)
		     (GtkString . path))
(gtk-import-function none gtk_file_list_set_filter
		     (GtkFileList . file_list)
		     (GtkString   . filter))
(gtk-import-function none gtk_file_list_open_dir
		     (GtkFileList . file_list)
		     (GtkString   . path))
(gtk-import-function GtkString gtk_file_list_get_path
		     (GtkFileList . file_list))
(gtk-import-function GtkString gtk_file_list_get_filename
		     (GtkFileList . file_list))

;;; gtkfontcombo.h
(gtk-import-function GtkType gtk_font_combo_get_type)
(gtk-import-function GtkWidget gtk_font_combo_new)
(gtk-import-function none gtk_font_combo_select
		     (GtkFontCombo . font_combo)
		     (GtkString    . family)
		     (gboolean     . bold)
		     (gboolean     . italic)
		     (gint         . height))
(gtk-import-function none gtk_font_combo_select_nth
		     (GtkFontCombo . font_combo)
		     (gint         . n)
		     (gboolean     . bold)
		     (gboolean     . italic)
		     (gint         . height))

;;; gtkiconfilesel.h
;;; gtkiconlist.h
;;; gtkitementry.h
;;; gtkplot.h
;;; gtkplotcanvas.h
;;; gtkplotpc.h
;;; gtkplotprint.h
;;; gtkplotps.h
;;; gtkpsfont.h
;;; gtksheet.h

(provide 'gtk-extra)