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

   1 ;;; gtk-extra.el --- Import `GTK+ Extra' widgets into SXEmacs
   2
   3 ;; Copyright (C) 2000 Free Software Foundation
   4
   5 ;; Maintainer: William Perry <wmperry@gnu.org>
   6 ;; Keywords: extensions, dumped
   7
   8 ;; This file is part of SXEmacs.
   9
  10 ;; SXEmacs is free software: you can redistribute it and/or modify
  11 ;; it under the terms of the GNU General Public License as published by
  12 ;; the Free Software Foundation, either version 3 of the License, or
  13 ;; (at your option) any later version.
  14
  15 ;; SXEmacs is distributed in the hope that it will be useful,
  16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18 ;; GNU General Public License for more details.
  19
  20 ;; You should have received a copy of the GNU General Public License
  21 ;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
  22
  23 ;;; Synched up with: Not in FSF
  24
  25 ;;; Commentary:
  26
  27 ;; GTK+ Extra can be retrieved from http://magnet.fsu.edu/~feiguin/gtk
  28
  29 (eval-and-compile
  30   (require 'gtk-ffi))
  31
  32 (globally-declare-fboundp
  33  '(gtk-import-function-internal gtk-call-function))
  34
  35 ;;; gtkbordercombo.h
  36 (gtk-import-function GtkType gtk_border_combo_get_type)
  37 (gtk-import-function GtkWidget gtk_border_combo_new)
  38
  39 ;;; gtkcheckitem.h
  40 (gtk-import-function GtkType gtk_check_item_get_type)
  41 (gtk-import-function GtkWidget gtk_check_item_new)
  42 (gtk-import-function GtkWidget gtk_check_item_new_with_label
  43                      (GtkString . label))
  44
  45 ;;; gtkcolorcombo.h
  46 (gtk-import-function GtkType gtk_color_combo_get_type)
  47 (gtk-import-function GtkWidget gtk_color_combo_new)
  48 (gtk-import-function GtkWidget gtk_color_combo_new_with_values
  49                      (gint . nrows)
  50                      (gint . ncols)
  51                      (GtkArrayOfString . color_names))
  52 (gtk-import-function GtkString gtk_color_combo_get_color_at
  53                      (GtkColorCombo . combo)
  54                      (gint          . row)
  55                      (gint          . col))
  56 ;;;(gtk-import-function none gtk_color_combo_find_color
  57 ;;;                  (GtkColorCombo . combo)
  58 ;;;                  (GdkColor      . color)
  59 ;;;                  ((gint . out)  . row)
  60 ;;;                  ((gint . out)  . col))
  61
  62 ;;; gtkcombobox.h
  63 (gtk-import-function GtkType gtk_combobox_get_type)
  64 (gtk-import-function GtkWidget gtk_combobox_new)
  65 (gtk-import-function none gtk_combobox_hide_popdown_window)
  66
  67 ;;; gtkdirtree.h
  68 (gtk-import-function GtkType gtk_dir_tree_get_type)
  69 (gtk-import-function GtkWidget gtk_dir_tree_new)
  70 (gtk-import-function gint gtk_dir_tree_open_dir
  71                      (GtkDirTree . tree)
  72                      (GtkString  . path))
  73
  74 ;;; gtkfilelist.h
  75 (gtk-import-function GtkType gtk_file_list_get_type)
  76 (gtk-import-function GtkWidget gtk_file_list_new
  77                      (guint . icon_width)
  78                      (gint  . mode)
  79                      (GtkString . path))
  80 (gtk-import-function none gtk_file_list_set_filter
  81                      (GtkFileList . file_list)
  82                      (GtkString   . filter))
  83 (gtk-import-function none gtk_file_list_open_dir
  84                      (GtkFileList . file_list)
  85                      (GtkString   . path))
  86 (gtk-import-function GtkString gtk_file_list_get_path
  87                      (GtkFileList . file_list))
  88 (gtk-import-function GtkString gtk_file_list_get_filename
  89                      (GtkFileList . file_list))
  90
  91 ;;; gtkfontcombo.h
  92 (gtk-import-function GtkType gtk_font_combo_get_type)
  93 (gtk-import-function GtkWidget gtk_font_combo_new)
  94 (gtk-import-function none gtk_font_combo_select
  95                      (GtkFontCombo . font_combo)
  96                      (GtkString    . family)
  97                      (gboolean     . bold)
  98                      (gboolean     . italic)
  99                      (gint         . height))
 100 (gtk-import-function none gtk_font_combo_select_nth
 101                      (GtkFontCombo . font_combo)
 102                      (gint         . n)
 103                      (gboolean     . bold)
 104                      (gboolean     . italic)
 105                      (gint         . height))
 106
 107 ;;; gtkiconfilesel.h
 108 ;;; gtkiconlist.h
 109 ;;; gtkitementry.h
 110 ;;; gtkplot.h
 111 ;;; gtkplotcanvas.h
 112 ;;; gtkplotpc.h
 113 ;;; gtkplotprint.h
 114 ;;; gtkplotps.h
 115 ;;; gtkpsfont.h
 116 ;;; gtksheet.h
 117
 118 (provide 'gtk-extra)