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.11 2002-03-19 19:09:18 espen Exp $
23 (defclass requisition (boxed)
26 :accessor requisition-width
31 :accessor requisition-height
34 (:metaclass boxed-class)
35 (:alien-name "GtkTypeRequisition"))
37 (defclass border (boxed)
45 :accessor border-right
55 :accessor border-bottom
58 (:metaclass boxed-class)
59 (:alien-name "GtkTypeBorder"))
61 (defclass adjustment (%object)
64 :accessor adjustment-lower
69 :accessor adjustment-upper
72 (%value ; to get the offset right
77 :accessor adjustment-step-increment
78 :initarg :step-increment
82 :accessor adjustment-page-increment
83 :initarg :page-increment
87 :accessor adjustment-page-size
92 :getter "gtk_adjustment_get_value"
93 :setter "gtk_adjustment_set_value"
94 :accessor adjustment-value
97 (:metaclass gobject-class)
98 (:alien-name "GtkAdjustment"))
102 (define-types-by-introspection "Gtk"
104 ("GtkObject" :ignore t)
105 ("GtkRequisition" :ignore t)
106 ("GtkBorder" :ignore t)
107 ("GtkAdjustment" :ignore t)
114 :allocation :instance
115 :accessor widget-child-slots
116 :type container-child)
119 :getter "gtk_widget_get_parent"
120 :setter "gtk_widget_set_parent"
121 :accessor widget-parent
123 :documentation "The parent widget of this widget. Must be a container widget.")
126 :getter "gtk_widget_get_window"
127 :reader widget-window
131 :getter "gtk_widget_get_state"
132 :setter "gtk_widget_set_state"
133 :accessor widget-state
138 :getter "gtk_widget_get_colormap"
139 :reader widget-colormap
143 :getter "gtk_widget_get_visual"
144 :reader widget-visual
153 :getter container-children
154 :setter (setf container-children))
157 :getter "gtk_container_get_focus_child"
158 :setter "gtk_container_set_focus_child"
159 :accessor container-focus-child
160 :initarg :focus-child
164 :getter "gtk_container_get_focus_hadjustment"
165 :setter "gtk_container_set_focus_hadjustment"
166 :accessor container-focus-hadjustment
167 :initarg :focus-hadjustment
171 :getter "gtk_container_get_focus_vadjustment"
172 :setter "gtk_container_set_focus_vadjustment"
173 :accessor container-focus-vadjustment
174 :initarg :focus-vadjustment
181 :getter "gtk_bin_get_child"
182 :setter (setf bin-child)
190 :getter "gtk_tooltips_get_enabled"
191 :setter (setf tooltips-enabled-p)
192 :reader tooltips-enabled-p
200 :getter "gtk_option_menu_get_menu"
201 :setter (setf option-menu-menu)
202 :reader option-menu-menu
207 :getter "gtk_option_menu_get_history"
208 :setter "gtk_option_menu_set_history"
209 :accessor option-menu-history
211 :type unsigned-int)))
217 :setter menu-item-label
222 :getter "gtk_menu_item_get_submenu"
223 :setter (setf menu-item-submenu)
224 :reader menu-item-submenu
229 :getter "gtk_menu_item_get_placement"
230 :setter "_gtk_menu_item_set_placement" ; why underscore?
231 :accessor menu-item-placement
233 :type submenu-placement)
236 :getter "gtk_menu_item_get_show_submenu"
237 :setter "gtk_menu_item_set_show_submenu"
238 :accessor menu-item-submenu-indicator-p
239 :initarg :submenu-indicator
242 ("GtkColorSelectionDialog"
246 :reader color-selection-dialog-colorsel
250 :reader color-selection-dialog-ok-button
254 :reader color-selection-dialog-cancel-button
258 :reader color-selection-dialog-help-button
265 :reader scrolled-window-hscrollbar
269 :reader scrolled-window-vscrollbar
277 :setter (setf paned-child1)
283 :setter (setf paned-child2)
291 :getter "gtk_menu_get_accel_group"
292 :setter "gtk_menu_set_accel_group"
293 :accessor menu-accel-group
294 :initarg :accel-group
298 :getter "gtk_menu_get_active"
299 :setter (setf menu-active)
305 :getter "gtk_menu_get_tearoff_state"
306 :setter "gtk_menu_set_tearoff_state"
307 :accessor menu-tornoff-p
315 :getter "gtk_toolbar_get_tooltips"
316 :setter "gtk_toolbar_set_tooltips"
317 :accessor toolbar-tooltips-p
322 :getter "gtk_toolbar_get_icon_size"
323 :setter "gtk_toolbar_set_icon_size"
324 :accessor toolbar-icon-size
332 :getter "gtk_ruler_get_metric"
333 :setter "gtk_ruler_set_metric"
334 :accessor ruler-metric
340 ; deprecated properties
341 ((bar-style :ignore t)
342 (adjustment :ignore t)
343 (activity-step :ignore t)
344 (activity-blocks :ignore t)
345 (discrete-blocks :ignore t)))
351 :getter "gtk_table_get_default_col_spacing"
352 :setter "gtk_table_set_col_spacings"
353 :initarg :column-spacing
357 :getter "gtk_table_get_default_row_spacing"
358 :setter "gtk_table_set_row_spacings"
359 :initarg :row-spacing
360 :type unsigned-int)))
366 :getter "gtk_dialog_get_vbox"
371 :getter "gtk_dialog_get_action_area"
372 :reader dialog-action-area
379 :getter "gtk_combo_get_entry"
387 :getter "gtk_radio_button_get_group"
388 :reader radio-button-group
389 :type (static (gslist widget)))))
395 :getter "gtk_radio_menu_item_get_group"
396 :reader radio-menu-item-group
397 :type (static (gslist widget)))))
403 :getter "gtk_file_selection_get_action_area"
404 :reader file-selection-action-area
408 :getter "gtk_file_selection_get_ok_button"
409 :reader file-selection-ok-button
413 :getter "gtk_file_selection_get_cancel_button"
414 :reader file-selection-cancel-button
420 :getter "gtk_layout_get_bin_window"
421 :reader layout-bin-window
425 ("GtkFundamentalType" :ignore t)
426 ("GtkArgFlags" :ignore t)
429 ;; Deprecated widgets
430 ("GtkCList" :ignore-prefix t)
431 ("GtkCTree" :ignore-prefix t)
432 ("GtkList" :ignore-prefix t)
433 ("GtkTree" :ignore t)
434 ("GtkTreeItem" :ignore t)
435 ("GtkText" :ignore-prefix t)
436 ("GtkPacker" :ignore-prefix t)
437 ("GtkPixmap" :ignore t)
438 ("GtkPreview" :ignore-prefix t)
439 ("GtkTipsQuery" :ignore t)
440 ("GtkOldEditable" :ignore t))