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.14 2002-03-24 21:54:33 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_window_get_gravity"
245 :setter "gtk_window_set_gravity"
246 :accessor window-gravity
251 :getter "gtk_window_get_focus"
252 :setter "gtk_window_set_focus"
253 :accessor window-focus-widget
254 :initarg :focus-widget
258 :getter "gtk_window_get_default"
259 :setter "gtk_window_set_default"
260 :accessor window-default-widget
261 :initarg :default-widget
265 :getter "gtk_window_get_decorated"
266 :setter "gtk_window_set_decorated"
267 :accessor window-decorated-p
272 :getter "gtk_window_get_has_frame"
273 :setter "gtk_window_set_has_frame"
274 :accessor window-has-frame-p
279 :getter "gtk_window_get_role"
280 :setter "gtk_window_set_role"
281 :accessor window-role
286 :getter "gtk_window_get_type_hint"
287 :setter "gtk_window_set_type_hint"
288 :accessor window-type-hint
290 :type gdk:window-type-hint)
294 :setter (setf window-icon)
298 :getter "gtk_window_get_mnemonic_modifier"
299 :setter "gtk_window_set_mnemonic_modifier"
300 :accessor window-mnemonic-modifier
301 :initarg :mnemonic-modifier
302 :type gdk:modifier-type)
305 :getter "gtk_window_get_transient_for"
306 :setter "gtk_window_set_transient_for"
307 :accessor window-transient-for
308 :initarg :transient-for
318 :getter "gtk_tooltips_get_enabled"
319 :setter (setf tooltips-enabled-p)
320 :reader tooltips-enabled-p
328 :getter "gtk_option_menu_get_menu"
329 :setter (setf option-menu-menu)
330 :reader option-menu-menu
335 :getter "gtk_option_menu_get_history"
336 :setter "gtk_option_menu_set_history"
337 :accessor option-menu-history
339 :type unsigned-int)))
345 :setter menu-item-label
350 :getter "gtk_menu_item_get_submenu"
351 :setter (setf menu-item-submenu)
352 :reader menu-item-submenu
357 :getter "gtk_menu_item_get_placement"
358 :setter "_gtk_menu_item_set_placement" ; why underscore?
359 :accessor menu-item-placement
361 :type submenu-placement)
364 :getter "gtk_menu_item_get_show_submenu"
365 :setter "gtk_menu_item_set_show_submenu"
366 :accessor menu-item-submenu-indicator-p
367 :initarg :submenu-indicator
370 ("GtkColorSelectionDialog"
374 :reader color-selection-dialog-colorsel
378 :reader color-selection-dialog-ok-button
382 :reader color-selection-dialog-cancel-button
386 :reader color-selection-dialog-help-button
393 :reader scrolled-window-hscrollbar
397 :reader scrolled-window-vscrollbar
405 :setter (setf paned-child1)
411 :setter (setf paned-child2)
419 :getter "gtk_menu_get_accel_group"
420 :setter "gtk_menu_set_accel_group"
421 :accessor menu-accel-group
422 :initarg :accel-group
426 :getter "gtk_menu_get_active"
427 :setter (setf menu-active)
433 :getter "gtk_menu_get_tearoff_state"
434 :setter "gtk_menu_set_tearoff_state"
435 :accessor menu-tornoff-p
443 :getter "gtk_toolbar_get_tooltips"
444 :setter "gtk_toolbar_set_tooltips"
445 :accessor toolbar-tooltips-p
450 :getter "gtk_toolbar_get_icon_size"
451 :setter "gtk_toolbar_set_icon_size"
452 :accessor toolbar-icon-size
460 :getter "gtk_ruler_get_metric"
461 :setter "gtk_ruler_set_metric"
462 :accessor ruler-metric
468 ; deprecated properties
469 ((bar-style :ignore t)
470 (adjustment :ignore t)
471 (activity-step :ignore t)
472 (activity-blocks :ignore t)
473 (discrete-blocks :ignore t)))
479 :getter "gtk_table_get_default_col_spacing"
480 :setter "gtk_table_set_col_spacings"
481 :initarg :column-spacing
485 :getter "gtk_table_get_default_row_spacing"
486 :setter "gtk_table_set_row_spacings"
487 :initarg :row-spacing
488 :type unsigned-int)))
494 :getter "gtk_dialog_get_vbox"
495 :reader dialog-main-area
499 :getter "gtk_dialog_get_action_area"
500 :reader dialog-action-area
507 :getter "gtk_combo_get_entry"
515 :getter "gtk_radio_button_get_group"
516 :reader radio-button-group
517 :type (static (gslist widget)))))
523 :getter "gtk_radio_menu_item_get_group"
524 :reader radio-menu-item-group
525 :type (static (gslist widget)))))
531 :getter "gtk_file_selection_get_action_area"
532 :reader file-selection-action-area
536 :getter "gtk_file_selection_get_ok_button"
537 :reader file-selection-ok-button
541 :getter "gtk_file_selection_get_cancel_button"
542 :reader file-selection-cancel-button
548 :getter "gtk_layout_get_bin_window"
549 :reader layout-bin-window
553 ("GtkFundamentalType" :ignore t)
554 ("GtkArgFlags" :ignore t)
557 ;; Deprecated widgets
558 ("GtkCList" :ignore-prefix t)
559 ("GtkCTree" :ignore-prefix t)
560 ("GtkList" :ignore-prefix t)
561 ("GtkTree" :ignore t)
562 ("GtkTreeItem" :ignore t)
563 ("GtkText" :ignore-prefix t :except ("GtkTextDirection"))
564 ("GtkPacker" :ignore-prefix t)
565 ("GtkPixmap" :ignore t)
566 ("GtkPreview" :ignore-prefix t)
567 ("GtkTipsQuery" :ignore t)
568 ("GtkOldEditable" :ignore t))