3 (defcfun (window-add-accel-group "gtk_window_add_accel_group") :void
4 (window (g-object gtk-window))
5 (accel-group (g-object accel-group)))
7 (export 'window-add-accel-group)
9 (defcfun (window-remove-accel-group "gtk_window_remove_accel_group") :void
10 (window (g-object gtk-window))
11 (accel-group (g-object accel-group)))
13 (export 'window-remove-accel-group)
15 (defcfun (window-activate-focus "gtk_window_activate_focus") :boolean
16 (window (g-object gtk-window)))
18 (export 'window-activate-focus)
20 (defcfun (window-activate-default "gtk_window_activate_default") :boolean
21 (window (g-object gtk-window)))
23 (export 'window-activate-default)
25 (defcfun (window-set-geometry-hints "gtk_window_set_geometry_hints") :void
26 (window (g-object gtk-window))
27 (geometry-widget (g-object widget))
28 (geometry (g-boxed-foreign geometry))
29 (geometry-mask window-hints))
31 (export 'window-set-geometry-hints)
33 (defcfun (window-list-toplevels "gtk_window_list_toplevels") (glist (g-object gtk-window) :free-from-foreign t))
35 (export 'window-list-toplevels)
37 (defcfun (window-add-mnemonic "gtk_window_add_mnemonic") :void
38 (window (g-object gtk-window))
40 (target (g-object widget)))
42 (export 'window-add-mnemonic)
44 (defcfun (window-remove-mnemonic "gtk_window_remove_mnemonic") :void
45 (window (g-object gtk-window))
47 (target (g-object widget)))
49 (export 'window-remove-mnemonic)
51 (defcfun (window-activate-mnemonic "gtk_window_mnemonic_activate") :boolean
52 (window (g-object gtk-window))
54 (modifier modifier-type))
56 (export 'window-activate-mnemonic)
58 (defcfun (window-activate-key "gtk_window_activate_key") :boolean
59 (window (g-object gtk-window))
60 (event (g-boxed-foreign event)))
62 (export 'window-activate-key)
64 (defcfun (window-propagate-key-event "gtk_window_propagate_key_event") :boolean
65 (window (g-object gtk-window))
66 (event (g-boxed-foreign event)))
68 (export 'window-propagate-key-event)
70 (defcfun (window-focus "gtk_window_get_focus") (g-object widget)
71 (window (g-object gtk-window)))
73 (defcfun (window-set-focus "gtk_window_set_focus") :void
74 (window (g-object gtk-window))
75 (focus (g-object widget)))
77 (defun (setf window-focus) (focus window)
78 (window-set-focus window focus)
81 (export 'window-focus)
83 (defcfun (window-default-widget "gtk_window_get_default_widget") (g-object widget)
84 (window (g-object gtk-window)))
86 (defcfun (window-set-default-widget "gtk_window_set_default") :void
87 (window (g-object gtk-window))
88 (default-widget (g-object widget)))
90 (defun (setf window-default-widget) (default-widget window)
91 (window-set-default-widget window default-widget)
94 (export 'window-default-widget)
96 (defcfun (present-window "gtk_window_present") :void
97 (window (g-object gtk-window)))
99 (export 'present-window)
101 (defcfun (present-window-with-time "gtk_window_present_with_time") :void
102 (window (g-object gtk-window))
105 (export 'present-window-with-time)
107 (defcfun (iconify-window "gtk_window_iconify") :void
108 (window (g-object gtk-window)))
110 (export 'iconify-window)
112 (defcfun (deiconify-window "gtk_window_deiconify") :void
113 (window (g-object gtk-window)))
115 (export 'deiconify-window)
117 (defcfun (stick-window "gtk_window_stick") :void
118 (window (g-object gtk-window)))
120 (export 'stick-window)
122 (defcfun (unstick-window "gtk_window_unstick") :void
123 (window (g-object gtk-window)))
125 (export 'unstick-window)
127 (defcfun (maximize-window "gtk_window_maximize") :void
128 (window (g-object gtk-window)))
130 (export 'maximize-window)
132 (defcfun (unmaximize-window "gtk_window_unmaximize") :void
133 (window (g-object gtk-window)))
135 (export 'unmaximize-window)
137 (defcfun (fullscreen-window "gtk_window_fullscreen") :void
138 (window (g-object gtk-window)))
140 (export 'fullscreen-window)
142 (defcfun (unfullscreen-window "gtk_window_unfullscreen") :void
143 (window (g-object gtk-window)))
145 (export 'unfullscreen-window)
147 (defcfun (window-set-keep-above "gtk_window_set_keep_above") :void
148 (window (g-object gtk-window))
151 (export 'window-set-keep-above)
153 (defcfun (window-set-keep-below "gtk_window_set_keep_below") :void
154 (window (g-object gtk-window))
157 (export 'window-set-keep-below)
159 (defcfun (window-begin-resize-drag "gtk_window_begin_resize_drag") :void
160 (window (g-object gtk-window))
167 (export 'window-begin-resize-drag)
169 (defcfun (window-begin-move-drag "gtk_window_begin_move_drag") :void
170 (window (g-object gtk-window))
176 (export 'window-begin-move-drag)
178 (defcfun (window-set-frame-dimensions "gtk_window_set_frame_dimensions") :void
179 (window (g-object gtk-window))
185 (export 'window-set-frame-dimensions)
187 (defcfun (window-set-has-frame "gtk_window_set_has_frame") :void
188 (window (g-object gtk-window))
191 (export 'window-set-has-frame)
193 (defcfun (window-set-mnemonic-modifier "gtk_window_set_mnemonic_modifier") :void
194 (window (g-object gtk-window))
195 (modifier modifier-type))
197 (export 'window-set-mnemonic-modifier)
199 (defcfun (window-icon-list "gtk_window_get_icon_list") (glist pixbuf :free-from-foreign t)
200 (window (g-object gtk-window)))
202 (defcfun (window-set-icon-list "gtk_window_set_icon_list") :void
203 (window (g-object gtk-window))
204 (icons (glist pixbuf :free-to-foreign t)))
206 (defun (setf window-icon-list) (icon-list window)
207 (window-set-icon-list window icon-list))
209 (export 'window-icon-list)
211 (defcfun (%window-get-position "gtk_window_get_position") :void
212 (window (g-object gtk-window))
213 (root-x (:pointer :int))
214 (root-y (:pointer :int)))
216 (defun window-get-position (window)
217 (with-foreign-objects ((x :int)
219 (%window-get-position window x y)
220 (values (mem-ref x :int) (mem-ref y :int))))
222 (export 'window-get-position)
224 (defcfun (%window-get-size "gtk_window_get_size") :void
225 (window (g-object gtk-window))
226 (width (:pointer :int))
227 (height (:pointer :int)))
229 (defun window-size (window)
230 (with-foreign-objects ((width :int)
232 (%window-get-size window width height)
233 (values (mem-ref width :int) (mem-ref height :int))))
235 (export 'window-size)
237 (defcfun (window-group "gtk_window_get_group") (g-object window-group)
238 (window (g-object gtk-window)))
240 (export 'window-group)
242 (defcfun (move-window "gtk_window_move") :void
243 (window (g-object gtk-window))
247 (export 'move-window)
249 (defcfun (window-parse-geometry "gtk_window_parse_geometry") :boolean
250 (window (g-object gtk-window))
251 (geometry-string :string))
253 (export 'window-parse-geometry)
255 (defcfun (reshow-window-with-initial-size "gtk_window_reshow_with_initial_size") :void
256 (window (g-object gtk-window)))
258 (export 'reshow-window-with-initial-size)
260 (defcfun (resize-window "gtk_window_resize") :void
261 (window (g-object gtk-window))
265 (export 'resize-window)
267 (defcfun (default-window-icon-list "gtk_window_get_default_icon_list") (glist pixbuf))
269 (defcfun (set-default-window-icon-list "gtk_window_set_default_icon_list") :boolean
270 (icon-list (glist pixbuf)))
272 (defun (setf default-window-icon-list) (icon-list)
273 (set-default-window-icon-list icon-list)
276 (export 'default-window-icon-list)
278 (defcfun (set-default-window-icon "gtk_window_set_default_icon") :void
279 (icon (g-object pixbuf)))
281 (defcfun (set-default-window-icon-name "gtk_window_set_default_icon_name") :void
284 (defun (setf default-window-icon) (icon)
286 (pixbuf (set-default-window-icon icon))
287 (string (set-default-window-icon-name icon))))
289 (export 'default-window-icon)
291 (defcfun (set-window-auto-startup-notification "gtk_window_set_auto_startup_notification") :void
294 (export 'set-window-auto-startup-notification)
296 (defcfun (window-group-add-window "gtk_window_group_add_window") :void
297 (window-group (g-object window-group))
298 (window (g-object gtk-window)))
300 (export 'window-group-add-window)
302 (defcfun (window-group-remove-window "gtk_window_group_remove_window") :void
303 (window-group (g-object window-group))
304 (window (g-object gtk-window)))
306 (export 'window-group-remove-window)
308 (defcfun (window-group-list-windows "gtk_window_group_list_windows") (glist gtk-window)
309 (window-group (g-object window-group)))
311 (export 'window-group-list-windows)