1 ;; Common Lisp bindings for GTK+ v2.0.x
2 ;; Copyright (C) 1999-2001 Espen S. Johnsen <espen@users.sourceforge.org>
4 ;; This library is free software; you can redistribute it and/or
5 ;; modify it under the terms of the GNU Lesser General Public
6 ;; License as published by the Free Software Foundation; either
7 ;; version 2 of the License, or (at your option) any later version.
9 ;; This library is distributed in the hope that it will be useful,
10 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
11 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
12 ;; Lesser General Public License for more details.
14 ;; You should have received a copy of the GNU Lesser General Public
15 ;; License along with this library; if not, write to the Free Software
16 ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
18 ;; $Id: gtktypes.lisp,v 1.13 2002-03-24 15:42:17 espen Exp $
23 (defclass requisition (boxed)
26 :accessor requisition-width
31 :accessor requisition-height
34 (:metaclass boxed-class)
35 (:alien-name "GtkTypeRequisition"))
37 (defclass allocation (struct)
40 :accessor allocation-width
45 :accessor allocation-width
50 :accessor allocation-width
55 :accessor allocation-height
58 (:metaclass proxy-class))
60 (defclass border (boxed)
68 :accessor border-right
78 :accessor border-bottom
81 (:metaclass boxed-class)
82 (:alien-name "GtkTypeBorder"))
84 (defclass adjustment (%object)
87 :accessor adjustment-lower
92 :accessor adjustment-upper
95 (%value ; to get the offset right
100 :accessor adjustment-step-increment
101 :initarg :step-increment
105 :accessor adjustment-page-increment
106 :initarg :page-increment
110 :accessor adjustment-page-size
115 :getter "gtk_adjustment_get_value"
116 :setter "gtk_adjustment_set_value"
117 :accessor adjustment-value
120 (:metaclass gobject-class)
121 (:alien-name "GtkAdjustment"))
125 (define-types-by-introspection "Gtk"
127 ("GtkObject" :ignore t)
128 ("GtkRequisition" :ignore t)
129 ("GtkBorder" :ignore t)
130 ("GtkAdjustment" :ignore t)
137 :allocation :instance
138 :accessor widget-child-slots
139 :type container-child)
142 :getter "gtk_widget_get_parent_window"
143 :setter "gtk_widget_set_parent_window"
144 :accessor widget-parent-window
148 :getter "gtk_widget_get_window"
149 :reader widget-window
153 :getter "gtk_widget_get_state"
154 :setter "gtk_widget_set_state"
155 :accessor widget-state
160 :getter "gtk_widget_get_colormap"
161 :setter "gtk_widget_set_colormap"
163 :accessor widget-colormap
167 :getter "gtk_widget_get_visual"
168 :reader widget-visual
172 :getter "gtk_widget_get_direction"
173 :setter "gtk_widget_set_direction"
174 :accessor widget-direction
176 :type text-direction)
179 :getter "gtk_widget_get_composite_name"
180 :setter "gtk_widget_set_composite_name"
181 :accessor widget-composite-name
182 :initarg :composite-name
186 :getter "gtk_widget_get_settings"
187 :accessor widget-settings
191 :getter "gtk_widget_get_child_visible"
192 :setter "gtk_widget_set_child_visible"
193 :accessor widget-child-visible-p
194 :initarg :child-visible
203 :getter container-children
204 :setter (setf container-children))
207 :getter "gtk_container_get_focus_child"
208 :setter "gtk_container_set_focus_child"
209 :accessor container-focus-child
210 :initarg :focus-child
214 :getter container-focus-chain
215 :setter (setf container-focus-chain))
218 :getter "gtk_container_get_focus_hadjustment"
219 :setter "gtk_container_set_focus_hadjustment"
220 :accessor container-focus-hadjustment
221 :initarg :focus-hadjustment
225 :getter "gtk_container_get_focus_vadjustment"
226 :setter "gtk_container_set_focus_vadjustment"
227 :accessor container-focus-vadjustment
228 :initarg :focus-vadjustment
235 :getter "gtk_bin_get_child"
236 :setter (setf bin-child)
244 :getter "gtk_tooltips_get_enabled"
245 :setter (setf tooltips-enabled-p)
246 :reader tooltips-enabled-p
254 :getter "gtk_option_menu_get_menu"
255 :setter (setf option-menu-menu)
256 :reader option-menu-menu
261 :getter "gtk_option_menu_get_history"
262 :setter "gtk_option_menu_set_history"
263 :accessor option-menu-history
265 :type unsigned-int)))
271 :setter menu-item-label
276 :getter "gtk_menu_item_get_submenu"
277 :setter (setf menu-item-submenu)
278 :reader menu-item-submenu
283 :getter "gtk_menu_item_get_placement"
284 :setter "_gtk_menu_item_set_placement" ; why underscore?
285 :accessor menu-item-placement
287 :type submenu-placement)
290 :getter "gtk_menu_item_get_show_submenu"
291 :setter "gtk_menu_item_set_show_submenu"
292 :accessor menu-item-submenu-indicator-p
293 :initarg :submenu-indicator
296 ("GtkColorSelectionDialog"
300 :reader color-selection-dialog-colorsel
304 :reader color-selection-dialog-ok-button
308 :reader color-selection-dialog-cancel-button
312 :reader color-selection-dialog-help-button
319 :reader scrolled-window-hscrollbar
323 :reader scrolled-window-vscrollbar
331 :setter (setf paned-child1)
337 :setter (setf paned-child2)
345 :getter "gtk_menu_get_accel_group"
346 :setter "gtk_menu_set_accel_group"
347 :accessor menu-accel-group
348 :initarg :accel-group
352 :getter "gtk_menu_get_active"
353 :setter (setf menu-active)
359 :getter "gtk_menu_get_tearoff_state"
360 :setter "gtk_menu_set_tearoff_state"
361 :accessor menu-tornoff-p
369 :getter "gtk_toolbar_get_tooltips"
370 :setter "gtk_toolbar_set_tooltips"
371 :accessor toolbar-tooltips-p
376 :getter "gtk_toolbar_get_icon_size"
377 :setter "gtk_toolbar_set_icon_size"
378 :accessor toolbar-icon-size
386 :getter "gtk_ruler_get_metric"
387 :setter "gtk_ruler_set_metric"
388 :accessor ruler-metric
394 ; deprecated properties
395 ((bar-style :ignore t)
396 (adjustment :ignore t)
397 (activity-step :ignore t)
398 (activity-blocks :ignore t)
399 (discrete-blocks :ignore t)))
405 :getter "gtk_table_get_default_col_spacing"
406 :setter "gtk_table_set_col_spacings"
407 :initarg :column-spacing
411 :getter "gtk_table_get_default_row_spacing"
412 :setter "gtk_table_set_row_spacings"
413 :initarg :row-spacing
414 :type unsigned-int)))
420 :getter "gtk_dialog_get_vbox"
421 :reader dialog-main-area
425 :getter "gtk_dialog_get_action_area"
426 :reader dialog-action-area
433 :getter "gtk_combo_get_entry"
441 :getter "gtk_radio_button_get_group"
442 :reader radio-button-group
443 :type (static (gslist widget)))))
449 :getter "gtk_radio_menu_item_get_group"
450 :reader radio-menu-item-group
451 :type (static (gslist widget)))))
457 :getter "gtk_file_selection_get_action_area"
458 :reader file-selection-action-area
462 :getter "gtk_file_selection_get_ok_button"
463 :reader file-selection-ok-button
467 :getter "gtk_file_selection_get_cancel_button"
468 :reader file-selection-cancel-button
474 :getter "gtk_layout_get_bin_window"
475 :reader layout-bin-window
479 ("GtkFundamentalType" :ignore t)
480 ("GtkArgFlags" :ignore t)
483 ;; Deprecated widgets
484 ("GtkCList" :ignore-prefix t)
485 ("GtkCTree" :ignore-prefix t)
486 ("GtkList" :ignore-prefix t)
487 ("GtkTree" :ignore t)
488 ("GtkTreeItem" :ignore t)
489 ("GtkText" :ignore-prefix t :except ("GtkTextDirection"))
490 ("GtkPacker" :ignore-prefix t)
491 ("GtkPixmap" :ignore t)
492 ("GtkPreview" :ignore-prefix t)
493 ("GtkTipsQuery" :ignore t)
494 ("GtkOldEditable" :ignore t))