3 (defcfun (fixed-put "gtk_fixed_put") :void
11 (defcfun (fixed-move "gtk_fixed_move") :void
19 (defcfun (layout-put "gtk_layout_put") :void
27 (defcfun (layout-move "gtk_layout_move") :void
35 (defcfun gtk-notebook-append-page :int
40 (defcfun gtk-notebook-append-page-menu :int
46 (defcfun gtk-notebook-prepend-page :int
51 (defcfun gtk-notebook-prepend-page-menu :int
57 (defcfun gtk-notebook-insert-page :int
63 (defcfun gtk-notebook-insert-page-menu :int
70 (defun notebook-add-page (notebook child tab-label &key (position :end) menu)
71 (assert (typep position '(or integer (member :start :end))))
72 (assert (typep menu '(or null g-object (member :default))))
75 (gtk-notebook-append-page-menu notebook child tab-label (if (eq menu :default) (null-pointer) menu))
76 (gtk-notebook-append-page notebook child tab-label)))
78 (gtk-notebook-prepend-page-menu notebook child tab-label (if (eq menu :default) (null-pointer) menu))
79 (gtk-notebook-prepend-page notebook child tab-label)))
81 (gtk-notebook-insert-page-menu notebook child tab-label (if (eq menu :default) (null-pointer) menu) position)
82 (gtk-notebook-insert-page notebook child tab-label position)))))
84 (export 'notebook-add-page)
86 (defcfun (notebook-remove-page "gtk_notebook_remove_page") :void
90 (export 'notebook-remove-page)
92 (defcfun (notebook-next-page "gtk_notebook_next_page") :void
95 (export 'notebook-next-page)
97 (defcfun (notebook-prev-page "gtk_notebook_prev_page") :void
100 (export 'notebook-prev-page)
102 (defcfun (notebook-reorder-child "gtk_notebook_reorder_child") :void
107 (export 'notebook-reorder-child)
109 (defcfun (notebook-menu-label-widget "gtk_notebook_get_menu_label") g-object
113 (export 'notebook-menu-label-widget)
115 (defcfun (notebook-nth-page "gtk_notebook_get_nth_page") g-object
119 (export 'notebook-nth-page)
121 (defcfun (notebook-n-pages "gtk_notebook_get_n_pages") :int
124 (export 'notebook-n-pages)
126 (defcfun (notebook-tab-label-widget "gtk_notebook_get_tab_label") g-object
130 (export 'notebook-tab-label-widget)
132 (defcfun (gtk-notebook-set-menu-label-widget "gtk_notebook_set_menu_label") :void
135 (menu-label g-object))
137 (defun (setf notebook-menu-label-widget) (new-value notebook child)
138 (gtk-notebook-set-menu-label-widget notebook child new-value)
141 (defcfun (gtk-notebook-set-tab-label-widget "gtk_notebook_set_tab_label") :void
144 (tab-label g-object))
146 (defun (setf notebook-tab-label-widget) (new-value notebook child)
147 (gtk-notebook-set-tab-label-widget notebook child new-value)
150 (defcallback gtk-notebook-window-creation-func-callback g-object
151 ((source g-object) (page g-object) (x :int) (y :int) (data :pointer))
153 (funcall (get-stable-pointer-value data)
155 (return-null () nil)))
157 (defcfun gtk-notebook-set-window-creation-hook :void
160 (destroy-notify :pointer))
162 (defun notebook-set-window-creation-hook (function)
163 (gtk-notebook-set-window-creation-hook (callback gtk-notebook-window-creation-func-callback)
164 (allocate-stable-pointer function)
165 (callback stable-pointer-free-destroy-notify-callback)))
167 (export 'notebook-set-window-creation-hook)
169 (defcfun gtk-table-attach :void
170 (table (g-object table))
171 (child (g-object widget))
175 (bottom-attach :uint)
176 (x-options attach-options)
177 (y-options attach-options)
181 (defun table-attach (table widget left right top bottom &key (x-options '(:expand :fill)) (y-options '(:expand :fill)) (x-padding 0) (y-padding 0))
182 (gtk-table-attach table widget left right top bottom x-options y-options x-padding y-padding))
184 (export 'table-attach)
186 (defcfun (table-row-spacing-for-row "gtk_table_get_row_spacing") :uint
190 (defcfun gtk-table-set-row-spacing :void
195 (defun (setf table-row-spacing-for-row) (new-value table row)
196 (gtk-table-set-row-spacing table row new-value))
198 (export 'table-row-spacing-for-row)
200 (defcfun (table-col-spacing-for-col "gtk_table_get_col_spacing") :uint
204 (defcfun gtk-table-set-col-spacing :void
209 (defun (setf table-col-spacing-for-col) (new-value table col)
210 (gtk-table-set-col-spacing table col new-value))
212 (export 'table-col-spacing-for-col)