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-page-num "gtk_notebook_page_num") :int
90 (export 'notebook-page-num)
92 (defcfun gtk-notebook-remove-page :void
96 (defun notebook-remove-page (notebook page-or-number)
97 (gtk-notebook-remove-page notebook (etypecase page-or-number
98 (integer page-or-number)
99 (widget (notebook-page-num notebook page-or-number)))))
101 (export 'notebook-remove-page)
103 (defcfun (notebook-next-page "gtk_notebook_next_page") :void
106 (export 'notebook-next-page)
108 (defcfun (notebook-prev-page "gtk_notebook_prev_page") :void
111 (export 'notebook-prev-page)
113 (defcfun (notebook-reorder-child "gtk_notebook_reorder_child") :void
118 (export 'notebook-reorder-child)
120 (defcfun (notebook-menu-label-widget "gtk_notebook_get_menu_label") g-object
124 (export 'notebook-menu-label-widget)
126 (defcfun (notebook-nth-page "gtk_notebook_get_nth_page") g-object
130 (export 'notebook-nth-page)
132 (defcfun (notebook-n-pages "gtk_notebook_get_n_pages") :int
135 (export 'notebook-n-pages)
137 (defcfun (notebook-tab-label-widget "gtk_notebook_get_tab_label") g-object
141 (export 'notebook-tab-label-widget)
143 (defcfun (gtk-notebook-set-menu-label-widget "gtk_notebook_set_menu_label") :void
146 (menu-label g-object))
148 (defun (setf notebook-menu-label-widget) (new-value notebook child)
149 (gtk-notebook-set-menu-label-widget notebook child new-value)
152 (defcfun (gtk-notebook-set-tab-label-widget "gtk_notebook_set_tab_label") :void
155 (tab-label g-object))
157 (defun (setf notebook-tab-label-widget) (new-value notebook child)
158 (gtk-notebook-set-tab-label-widget notebook child new-value)
161 (defcallback gtk-notebook-window-creation-func-callback g-object
162 ((source g-object) (page g-object) (x :int) (y :int) (data :pointer))
164 (funcall (get-stable-pointer-value data)
166 (return-null () nil)))
168 (defcfun gtk-notebook-set-window-creation-hook :void
171 (destroy-notify :pointer))
173 (defun notebook-set-window-creation-hook (function)
174 (gtk-notebook-set-window-creation-hook (callback gtk-notebook-window-creation-func-callback)
175 (allocate-stable-pointer function)
176 (callback stable-pointer-free-destroy-notify-callback)))
178 (export 'notebook-set-window-creation-hook)
180 (defcfun gtk-table-attach :void
181 (table (g-object table))
182 (child (g-object widget))
186 (bottom-attach :uint)
187 (x-options attach-options)
188 (y-options attach-options)
192 (defun table-attach (table widget left right top bottom &key (x-options '(:expand :fill)) (y-options '(:expand :fill)) (x-padding 0) (y-padding 0))
193 (gtk-table-attach table widget left right top bottom x-options y-options x-padding y-padding))
195 (export 'table-attach)
197 (defcfun (table-row-spacing-for-row "gtk_table_get_row_spacing") :uint
201 (defcfun gtk-table-set-row-spacing :void
206 (defun (setf table-row-spacing-for-row) (new-value table row)
207 (gtk-table-set-row-spacing table row new-value))
209 (export 'table-row-spacing-for-row)
211 (defcfun (table-col-spacing-for-col "gtk_table_get_col_spacing") :uint
215 (defcfun gtk-table-set-col-spacing :void
220 (defun (setf table-col-spacing-for-col) (new-value table col)
221 (gtk-table-set-col-spacing table col new-value))
223 (export 'table-col-spacing-for-col)