[clg] / gtk / gtktypes.lisp

;; Common Lisp bindings for GTK+ v2.0.x
;; Copyright (C) 1999-2001 Espen S. Johnsen <esj@stud.cs.uit.no>
;;
;; This library is free software; you can redistribute it and/or
;; modify it under the terms of the GNU Lesser General Public
;; License as published by the Free Software Foundation; either
;; version 2 of the License, or (at your option) any later version.
;;
;; This library 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
;; Lesser General Public License for more details.
;;
;; You should have received a copy of the GNU Lesser General Public
;; License along with this library; if not, write to the Free Software
;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

;; $Id: gtktypes.lisp,v 1.8 2001-10-21 23:16:31 espen Exp $


(in-package "GTK")

(defclass requisition (boxed)
  ((width
    :allocation :alien
    :accessor requisition-width
    :initarg :width
    :type int)
   (height
    :allocation :alien
    :accessor requisition-height
    :initarg :height
    :type int))
  (:metaclass boxed-class)
  (:alien-name "GtkRequisition"))

(defclass border (boxed)
  ((left
    :allocation :alien
    :accessor border-left
    :initarg :left
    :type int)
   (right
    :allocation :alien
    :accessor border-right
    :initarg :right
    :type int)
   (top
    :allocation :alien
    :accessor border-top
    :initarg :top
    :type int)
   (bottom
    :allocation :alien
    :accessor border-bottom
    :initarg :bottom
    :type int))
  (:metaclass boxed-class)
  (:alien-name "GtkBorder"))

(defclass adjustment (%object)
  ((lower
    :allocation :alien
    :accessor adjustment-lower
    :initarg :lower
    :type single-float)
   (upper
    :allocation :alien
    :accessor adjustment-upper
    :initarg :upper
    :type single-float)
   (value
    :allocation :alien
    :accessor adjustment-value
    :initarg :value
    :type single-float)
   (step-increment
    :allocation :alien
    :accessor adjustment-step-increment
    :initarg :step-increment
    :type single-float)
   (page-increment
    :allocation :alien
    :accessor adjustment-page-increment
    :initarg :page-increment
    :type single-float)
   (page-size
    :allocation :alien
    :accessor adjustment-page-size
    :initarg :page-size
    :type single-float))
  (:metaclass gobject-class)
  (:alien-name "GtkAdjustment"))


(define-types-by-introspection "Gtk"
  ;; Manually defined
  ("GtkObject" :ignore t)
  ("GtkRequisition" :ignore t)
  ("GtkBorder" :ignore t)
  ("GtkAdjustment" :ignore t)

  
  ;; Temporary disabled
  ("GtkCellRenderer" :ignore-prefix t)

  
  ;; Manual override
  ("GtkWidget"
   :slots
   ((child-slots
    :allocation :instance
    :accessor widget-child-slots
    :type container-child)
    (parent
     :allocation :virtual
     :getter "gtk_widget_get_parent"
     :setter "gtk_widget_set_parent"
     :accessor widget-parent
     :type container
     :documentation "The parent widget of this widget. Must be a container widget.")
    (window
     :allocation :virtual
     :getter "gtk_widget_get_window"
     :reader widget-window
     :type gdk:window)
    (state
     :allocation :virtual
     :getter "gtk_widget_get_state"
     :setter "gtk_widget_set_state"
     :accessor widget-state
     :initarg :state
     :type state-type)
    (colormap
     :allocation :virtual
     :getter "gtk_widget_get_colormap"
     :reader widget-colormap
     :type gdk:colormap)
    (visual
     :allocation :virtual
     :getter "gtk_widget_get_visual"
     :reader widget-visual
     :type gdk:visual)))

  ("GtkContainer"
   :slots
   ((child
     :ignore t)
    (children
     :allocation :virtual
     :getter container-children
     :setter (setf container-children))
    (focus-child
     :allocation :virtual
     :getter "gtk_container_get_focus_child"
     :setter "gtk_container_set_focus_child"
     :accessor container-focus-child
     :initarg :focus-child
     :type widget)
    (focus-hadjustment
     :allocation :virtual
     :getter "gtk_container_get_focus_hadjustment"
     :setter "gtk_container_set_focus_hadjustment"
     :accessor container-focus-hadjustment
     :initarg :focus-hadjustment
     :type adjustment)
    (focus-vadjustment
     :allocation :virtual
     :getter "gtk_container_get_focus_vadjustment"
     :setter "gtk_container_set_focus_vadjustment"
     :accessor container-focus-vadjustment
     :initarg :focus-vadjustment
     :type adjustment)))
      
  ("GtkBin"
   :slots
   ((child
     :allocation :virtual
     :getter bin-child
     :setter (setf bin-child))))
  
  ("GtkTooltips"
   :slots
   ((enabled
     :allocation :virtual
     :getter "gtk_tooltips_get_enabled"
     :setter (setf tooltips-enabled-p)
     :reader tooltips-enabled-p
     :initarg :enabled
     :type boolean)))
  
  ("GtkOptionMenu"
   :slots
   ((menu
     :allocation :virtual
     :getter "gtk_option_menu_get_menu"
     :setter (setf option-menu-menu)
     :reader option-menu-menu
     :initarg :menu
     :type widget)
    (history
     :allocation :virtual
     :getter "gtk_option_menu_get_history"
     :setter "gtk_option_menu_set_history"
     :accessor option-menu-history
     :initarg :history
     :type unsigned-int)))

  ("GtkMenuItem"
   :slots
   ((label
     :allocation :virtual
     :setter menu-item-label
     :initarg :label
     :type string)
    (submenu
     :allocation :virtual
     :getter "gtk_menu_item_get_submenu"
     :setter (setf menu-item-submenu)
     :reader menu-item-submenu
     :initarg :submenu
     :type menu-item)
    (placement
     :allocation :virtual
     :getter "gtk_menu_item_get_placement"
     :setter "_gtk_menu_item_set_placement"  ; why underscore?
     :accessor menu-item-placement
     :initarg :placement
     :type submenu-placement)
    (submenu-indicator
     :allocation :virtual
     :getter "gtk_menu_item_get_show_submenu"
     :setter "gtk_menu_item_set_show_submenu"
     :accessor menu-item-submenu-indicator-p
     :initarg :submenu-indicator
     :type boolean)))

  ("GtkColorSelectionDialog"
   :slots
   ((colorsel
     :allocation :alien
     :reader color-selection-dialog-colorsel
     :type widget)
    (ok-button
     :allocation :alien
     :reader color-selection-dialog-ok-button
     :type widget)
    (cancel-button
     :allocation :alien
     :reader color-selection-dialog-cancel-button
     :type widget)
    (help-button
     :allocation :alien
     :reader color-selection-dialog-help-button
     :type widget)))

  ("GtkScrolledWindow"
   :slots
   ((hscrollbar
     :allocation :alien
     :reader scrolled-window-hscrollbar
     :type widget)
    (vscrollbar
     :allocation :alien
     :reader scrolled-window-vscrollbar
     :type widget)))

  ("GtkPaned"
   :slot
   ((child1
    :allocation :virtual
    :getter paned-child1
    :setter (setf paned-child1)
    :initarg :child1
    :type widget)
   (child2
    :allocation :virtual
    :getter paned-child2
    :setter (setf paned-child2)
    :initarg :child2
    :type widget)))

  ("GtkMenu"
   :slots
   ((accel-group
     :allocation :virtual
     :getter "gtk_menu_get_accel_group"
     :setter "gtk_menu_set_accel_group"
     :accessor menu-accel-group
     :initarg :accel-group
     :type accel-group)
    (active
     :allocation :virtual
     :getter "gtk_menu_get_active"
     :setter (setf menu-active)
     :reader menu-active
     :initarg :active
     :type widget)
    (tornoff
     :allocation :virtual
     :getter "gtk_menu_get_tearoff_state"
     :setter "gtk_menu_set_tearoff_state"
     :accessor menu-tornoff-p
     :initarg :tearoff
     :type boolean)))

  ("GtkToolbar"
   :slots
   ((tooltips
     :allocation :virtual
     :getter "gtk_toolbar_get_tooltips"
     :setter "gtk_toolbar_set_tooltips"
     :accessor toolbar-tooltips-p
     :initarg :tooltips
     :type boolean)
    (icon-size
     :allocation :virtual
     :getter "gtk_toolbar_get_icon_size"
     :setter "gtk_toolbar_set_icon_size"
     :accessor toolbar-icon-size
     :initarg :icon-size
     :type icon-size)))

  ("GtkRuler"
   :slots
   ((metric
     :allocation :virtual
     :getter "gtk_ruler_get_metric"
     :setter "gtk_ruler_set_metric"
     :accessor ruler-metric
     :initarg :metric
     :type metric-type)))

  ("GtkProgressBar"
   :slots
   ; deprecated properties
   ((bar-style :ignore t)
    (adjustment :ignore t)
    (activity-step :ignore t)
    (activity-blocks :ignore t)
    (discrete-blocks :ignore t)))

  ("GtkTable"
   :slots
   ((column-spacing
     :allocation :virtual
     :getter "gtk_table_get_default_col_spacing"
     :setter "gtk_table_set_col_spacings"
     :initarg :column-spacing
     :type unsigned-int)
    (row-spacing
     :allocation :virtual
     :getter "gtk_table_get_default_row_spacing"
     :setter "gtk_table_set_row_spacings"
     :initarg :row-spacing
     :type unsigned-int)))

  ("GtkDialog"
   :slots
   ((vbox
     :allocation :virtual
     :getter "gtk_dialog_get_vbox"
     :reader dialog-vbox
     :type widget)
    (action-area
     :allocation :virtual
     :getter "gtk_dialog_get_action_area"
     :reader dialog-action-area
     :type widget)))

  ("GtkCombo"
   :slots
   ((entry
     :allocation :virtual
     :getter "gtk_combo_get_entry"
     :reader combo-entry
     :type entry)))

  ("GtkRadioButton"
   :slots
   ((group
     :allocation :virtual
     :getter "gtk_radio_button_get_group"
     :reader radio-button-group
     :type (static (gslist widget)))))

  ("GtkRadioMenuItem"
   :slots
   ((group
     :allocation :virtual
     :getter "gtk_radio_menu_item_get_group"
     :reader radio-menu-item-group
     :type (static (gslist widget)))))

  ("GtkFileSelection"
   :slots
   ((action-area
     :allocation :virtual
     :getter "gtk_file_selection_get_action_area"
     :reader file-selection-action-area
     :type widget)
    (ok-button
     :allocation :virtual
     :getter "gtk_file_selection_get_ok_button"
     :reader file-selection-ok-button
     :type widget)
    (cancel-button
     :allocation :virtual
     :getter "gtk_file_selection_get_cancel_button"
     :reader file-selection-cancel-button
     :type widget)))

  ("GtkLayout"
   :slots
   ((bin-window
     :getter "gtk_layout_get_bin_window"
     :reader layout-bin-window
     :type gdk:window)
    (x-offset
     :getter "gtk_layout_get_xoffset"
     :setter "gtk_layout_set_xoffset"
     :accessor layout-x-offset
     :initarg :x-offset
     :type unsigned-int)
    (y-offset
     :getter "gtk_layout_get_yoffset"
     :setter "gtk_layout_set_yoffset"
     :accessor layout-y-offset
     :initarg :x-offset
     :type unsigned-int)))

     
  ;; Not needed
  ("GtkFundamentalType" :ignore t)
  ("GtkArgFlags" :ignore t)

  
  ;; Deprecated widgets
  ("GtkCList" :ignore-prefix t)
  ("GtkCTree" :ignore-prefix t)
  ("GtkList" :ignore-prefix t)
  ("GtkTree" :ignore t)
  ("GtkTreeItem" :ignore t)
  ("GtkText" :ignore-prefix t)
  ("GtkPacker" :ignore-prefix t)
  ("GtkPixmap" :ignore t)
  ("GtkPreview" :ignore-prefix t)
  ("GtkTipsQuery" :ignore t)
  ("GtkOldEditable" :ignore t))
Commit	Line	Data
560af5c5	1	;; Common Lisp bindings for GTK+ v2.0.x
2719586f	2	;; Copyright (C) 1999-2001 Espen S. Johnsen <esj@stud.cs.uit.no>
560af5c5	3	;;
	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.
	8	;;
	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.
	13	;;
	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
	17
5b51dee1	18	;; $Id: gtktypes.lisp,v 1.8 2001-10-21 23:16:31 espen Exp $
560af5c5	19
	20
	21	(in-package "GTK")
	22
2719586f	23	(defclass requisition (boxed)
	24	((width
	25	:allocation :alien
	26	:accessor requisition-width
	27	:initarg :width
	28	:type int)
	29	(height
	30	:allocation :alien
	31	:accessor requisition-height
	32	:initarg :height
	33	:type int))
	34	(:metaclass boxed-class)
	35	(:alien-name "GtkRequisition"))
	36
	37	(defclass border (boxed)
	38	((left
	39	:allocation :alien
	40	:accessor border-left
	41	:initarg :left
	42	:type int)
	43	(right
	44	:allocation :alien
	45	:accessor border-right
	46	:initarg :right
	47	:type int)
	48	(top
	49	:allocation :alien
	50	:accessor border-top
	51	:initarg :top
	52	:type int)
	53	(bottom
	54	:allocation :alien
	55	:accessor border-bottom
	56	:initarg :bottom
	57	:type int))
	58	(:metaclass boxed-class)
	59	(:alien-name "GtkBorder"))
	60
	61	(defclass adjustment (%object)
	62	((lower
	63	:allocation :alien
	64	:accessor adjustment-lower
	65	:initarg :lower
	66	:type single-float)
	67	(upper
	68	:allocation :alien
	69	:accessor adjustment-upper
	70	:initarg :upper
	71	:type single-float)
	72	(value
	73	:allocation :alien
	74	:accessor adjustment-value
	75	:initarg :value
	76	:type single-float)
	77	(step-increment
	78	:allocation :alien
	79	:accessor adjustment-step-increment
	80	:initarg :step-increment
	81	:type single-float)
	82	(page-increment
	83	:allocation :alien
	84	:accessor adjustment-page-increment
	85	:initarg :page-increment
	86	:type single-float)
87	(page-size
88	:allocation :alien
89	:accessor adjustment-page-size
90	:initarg :page-size
91	:type single-float))
92	(:metaclass gobject-class)
93	(:alien-name "GtkAdjustment"))
94
560af5c5	95
5b51dee1	96
2719586f	97	(define-types-by-introspection "Gtk"
	98	;; Manually defined
	99	("GtkObject" :ignore t)
	100	("GtkRequisition" :ignore t)
	101	("GtkBorder" :ignore t)
	102	("GtkAdjustment" :ignore t)
	103
5b51dee1	104
2719586f	105	;; Temporary disabled
	106	("GtkCellRenderer" :ignore-prefix t)
	107
560af5c5	108
5b51dee1	109	;; Manual override
	110	("GtkWidget"
	111	:slots
	112	((child-slots
d520140e	113	:allocation :instance
	114	:accessor widget-child-slots
	115	:type container-child)
5b51dee1	116	(parent
	117	:allocation :virtual
	118	:getter "gtk_widget_get_parent"
	119	:setter "gtk_widget_set_parent"
	120	:accessor widget-parent
	121	:type container
	122	:documentation "The parent widget of this widget. Must be a container widget.")
	123	(window
	124	:allocation :virtual
	125	:getter "gtk_widget_get_window"
	126	:reader widget-window
	127	:type gdk:window)
	128	(state
	129	:allocation :virtual
	130	:getter "gtk_widget_get_state"
	131	:setter "gtk_widget_set_state"
	132	:accessor widget-state
	133	:initarg :state
	134	:type state-type)
	135	(colormap
	136	:allocation :virtual
	137	:getter "gtk_widget_get_colormap"
	138	:reader widget-colormap
	139	:type gdk:colormap)
	140	(visual
	141	:allocation :virtual
	142	:getter "gtk_widget_get_visual"
	143	:reader widget-visual
	144	:type gdk:visual)))
	145
	146	("GtkContainer"
	147	:slots
	148	((child
	149	:ignore t)
	150	(children
	151	:allocation :virtual
	152	:getter container-children
	153	:setter (setf container-children))
	154	(focus-child
	155	:allocation :virtual
	156	:getter "gtk_container_get_focus_child"
	157	:setter "gtk_container_set_focus_child"
	158	:accessor container-focus-child
	159	:initarg :focus-child
	160	:type widget)
	161	(focus-hadjustment
	162	:allocation :virtual
	163	:getter "gtk_container_get_focus_hadjustment"
	164	:setter "gtk_container_set_focus_hadjustment"
	165	:accessor container-focus-hadjustment
	166	:initarg :focus-hadjustment
	167	:type adjustment)
	168	(focus-vadjustment
	169	:allocation :virtual
	170	:getter "gtk_container_get_focus_vadjustment"
	171	:setter "gtk_container_set_focus_vadjustment"
	172	:accessor container-focus-vadjustment
	173	:initarg :focus-vadjustment
	174	:type adjustment)))
	175
	176	("GtkBin"
	177	:slots
	178	((child
	179	:allocation :virtual
180	:getter bin-child
181	:setter (setf bin-child))))
182
183	("GtkTooltips"
184	:slots
185	((enabled
186	:allocation :virtual
187	:getter "gtk_tooltips_get_enabled"
188	:setter (setf tooltips-enabled-p)
189	:reader tooltips-enabled-p
190	:initarg :enabled
191	:type boolean)))
192
193	("GtkOptionMenu"
194	:slots
195	((menu
196	:allocation :virtual
197	:getter "gtk_option_menu_get_menu"
198	:setter (setf option-menu-menu)
199	:reader option-menu-menu
200	:initarg :menu
201	:type widget)
202	(history
203	:allocation :virtual
204	:getter "gtk_option_menu_get_history"
205	:setter "gtk_option_menu_set_history"
206	:accessor option-menu-history
207	:initarg :history
208	:type unsigned-int)))
209
210	("GtkMenuItem"
211	:slots
212	((label
213	:allocation :virtual
214	:setter menu-item-label
215	:initarg :label
216	:type string)
217	(submenu
218	:allocation :virtual
219	:getter "gtk_menu_item_get_submenu"
220	:setter (setf menu-item-submenu)
221	:reader menu-item-submenu
222	:initarg :submenu
223	:type menu-item)
224	(placement
225	:allocation :virtual
226	:getter "gtk_menu_item_get_placement"
227	:setter "_gtk_menu_item_set_placement" ; why underscore?
228	:accessor menu-item-placement
229	:initarg :placement
230	:type submenu-placement)
231	(submenu-indicator
232	:allocation :virtual
233	:getter "gtk_menu_item_get_show_submenu"
234	:setter "gtk_menu_item_set_show_submenu"
235	:accessor menu-item-submenu-indicator-p
236	:initarg :submenu-indicator
237	:type boolean)))
238
239	("GtkColorSelectionDialog"
240	:slots
241	((colorsel
242	:allocation :alien
243	:reader color-selection-dialog-colorsel
244	:type widget)
245	(ok-button
246	:allocation :alien
247	:reader color-selection-dialog-ok-button
248	:type widget)
249	(cancel-button
250	:allocation :alien
251	:reader color-selection-dialog-cancel-button
252	:type widget)
253	(help-button
254	:allocation :alien
255	:reader color-selection-dialog-help-button
256	:type widget)))
257
258	("GtkScrolledWindow"
259	:slots
260	((hscrollbar
261	:allocation :alien
262	:reader scrolled-window-hscrollbar
263	:type widget)
264	(vscrollbar
265	:allocation :alien
266	:reader scrolled-window-vscrollbar
267	:type widget)))
560af5c5	268
5b51dee1	269	("GtkPaned"
	270	:slot
	271	((child1
560af5c5	272	:allocation :virtual
5b51dee1	273	:getter paned-child1
	274	:setter (setf paned-child1)
	275	:initarg :child1
560af5c5	276	:type widget)
5b51dee1	277	(child2
2d379b6a	278	:allocation :virtual
5b51dee1	279	:getter paned-child2
	280	:setter (setf paned-child2)
	281	:initarg :child2
	282	:type widget)))
560af5c5	283
5b51dee1	284	("GtkMenu"
	285	:slots
	286	((accel-group
	287	:allocation :virtual
	288	:getter "gtk_menu_get_accel_group"
	289	:setter "gtk_menu_set_accel_group"
	290	:accessor menu-accel-group
	291	:initarg :accel-group
	292	:type accel-group)
	293	(active
	294	:allocation :virtual
	295	:getter "gtk_menu_get_active"
	296	:setter (setf menu-active)
	297	:reader menu-active
	298	:initarg :active
	299	:type widget)
	300	(tornoff
	301	:allocation :virtual
	302	:getter "gtk_menu_get_tearoff_state"
	303	:setter "gtk_menu_set_tearoff_state"
	304	:accessor menu-tornoff-p
	305	:initarg :tearoff
	306	:type boolean)))
	307
	308	("GtkToolbar"
	309	:slots
	310	((tooltips
	311	:allocation :virtual
	312	:getter "gtk_toolbar_get_tooltips"
	313	:setter "gtk_toolbar_set_tooltips"
	314	:accessor toolbar-tooltips-p
	315	:initarg :tooltips
	316	:type boolean)
	317	(icon-size
	318	:allocation :virtual
	319	:getter "gtk_toolbar_get_icon_size"
	320	:setter "gtk_toolbar_set_icon_size"
	321	:accessor toolbar-icon-size
	322	:initarg :icon-size
	323	:type icon-size)))
	324
	325	("GtkRuler"
	326	:slots
	327	((metric
	328	:allocation :virtual
	329	:getter "gtk_ruler_get_metric"
	330	:setter "gtk_ruler_set_metric"
	331	:accessor ruler-metric
	332	:initarg :metric
	333	:type metric-type)))
	334
	335	("GtkProgressBar"
	336	:slots
	337	; deprecated properties
	338	((bar-style :ignore t)
	339	(adjustment :ignore t)
	340	(activity-step :ignore t)
	341	(activity-blocks :ignore t)
	342	(discrete-blocks :ignore t)))
	343
	344	("GtkTable"
	345	:slots
	346	((column-spacing
	347	:allocation :virtual
348	:getter "gtk_table_get_default_col_spacing"
349	:setter "gtk_table_set_col_spacings"
350	:initarg :column-spacing
351	:type unsigned-int)
352	(row-spacing
353	:allocation :virtual
354	:getter "gtk_table_get_default_row_spacing"
355	:setter "gtk_table_set_row_spacings"
356	:initarg :row-spacing
357	:type unsigned-int)))
358
359	("GtkDialog"
360	:slots
361	((vbox
362	:allocation :virtual
363	:getter "gtk_dialog_get_vbox"
364	:reader dialog-vbox
365	:type widget)
366	(action-area
367	:allocation :virtual
368	:getter "gtk_dialog_get_action_area"
369	:reader dialog-action-area
370	:type widget)))
2ed3bebb	371
5b51dee1	372	("GtkCombo"
	373	:slots
	374	((entry
	375	:allocation :virtual
	376	:getter "gtk_combo_get_entry"
	377	:reader combo-entry
	378	:type entry)))
2ed3bebb	379
5b51dee1	380	("GtkRadioButton"
	381	:slots
	382	((group
	383	:allocation :virtual
	384	:getter "gtk_radio_button_get_group"
	385	:reader radio-button-group
	386	:type (static (gslist widget)))))
d520140e	387
5b51dee1	388	("GtkRadioMenuItem"
	389	:slots
	390	((group
	391	:allocation :virtual
	392	:getter "gtk_radio_menu_item_get_group"
	393	:reader radio-menu-item-group
	394	:type (static (gslist widget)))))
560af5c5	395
5b51dee1	396	("GtkFileSelection"
	397	:slots
	398	((action-area
d520140e	399	:allocation :virtual
5b51dee1	400	:getter "gtk_file_selection_get_action_area"
d520140e	401	:reader file-selection-action-area
	402	:type widget)
	403	(ok-button
	404	:allocation :virtual
5b51dee1	405	:getter "gtk_file_selection_get_ok_button"
d520140e	406	:reader file-selection-ok-button
	407	:type widget)
	408	(cancel-button
	409	:allocation :virtual
5b51dee1	410	:getter "gtk_file_selection_get_cancel_button"
d520140e	411	:reader file-selection-cancel-button
5b51dee1	412	:type widget)))
	413
	414	("GtkLayout"
	415	:slots
	416	((bin-window
	417	:getter "gtk_layout_get_bin_window"
	418	:reader layout-bin-window
	419	:type gdk:window)
	420	(x-offset
	421	:getter "gtk_layout_get_xoffset"
	422	:setter "gtk_layout_set_xoffset"
	423	:accessor layout-x-offset
	424	:initarg :x-offset
	425	:type unsigned-int)
	426	(y-offset
	427	:getter "gtk_layout_get_yoffset"
	428	:setter "gtk_layout_set_yoffset"
	429	:accessor layout-y-offset
	430	:initarg :x-offset
	431	:type unsigned-int)))
	432
	433
	434	;; Not needed
	435	("GtkFundamentalType" :ignore t)
	436	("GtkArgFlags" :ignore t)
560af5c5	437
d520140e	438
5b51dee1	439	;; Deprecated widgets
	440	("GtkCList" :ignore-prefix t)
	441	("GtkCTree" :ignore-prefix t)
	442	("GtkList" :ignore-prefix t)
	443	("GtkTree" :ignore t)
	444	("GtkTreeItem" :ignore t)
	445	("GtkText" :ignore-prefix t)
	446	("GtkPacker" :ignore-prefix t)
	447	("GtkPixmap" :ignore t)
	448	("GtkPreview" :ignore-prefix t)
	449	("GtkTipsQuery" :ignore t)
	450	("GtkOldEditable" :ignore t))