Merge remote-tracking branch 'andy128k/master'
[cl-gtk2.git] / gtk / gtk.window.lisp
blob6b090ea2506beed76e47e9ae399b9bf927596576
1 (in-package :gtk)
3 (defcfun (gtk-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 'gtk-window-add-accel-group)
9 (defcfun (gtk-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 'gtk-window-remove-accel-group)
15 (defcfun (gtk-window-activate-focus "gtk_window_activate_focus") :boolean
16 (window (g-object gtk-window)))
18 (export 'gtk-window-activate-focus)
20 (defcfun (gtk-window-activate-default "gtk_window_activate_default") :boolean
21 (window (g-object gtk-window)))
23 (export 'gtk-window-activate-default)
25 (defcfun (gtk-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 gdk-window-hints))
31 (export 'gtk-window-set-geometry-hints)
33 (defcfun (gtk-window-list-toplevels "gtk_window_list_toplevels") (glist (g-object gtk-window) :free-from-foreign t))
35 (export 'gtk-window-list-toplevels)
37 (defcfun (gtk-window-add-mnemonic "gtk_window_add_mnemonic") :void
38 (window (g-object gtk-window))
39 (keyval :uint)
40 (target (g-object widget)))
42 (export 'gtk-window-add-mnemonic)
44 (defcfun (gtk-window-remove-mnemonic "gtk_window_remove_mnemonic") :void
45 (window (g-object gtk-window))
46 (keyval :uint)
47 (target (g-object widget)))
49 (export 'gtk-window-remove-mnemonic)
51 (defcfun (gtk-window-activate-mnemonic "gtk_window_mnemonic_activate") :boolean
52 (window (g-object gtk-window))
53 (keyval :uint)
54 (modifier modifier-type))
56 (export 'gtk-window-activate-mnemonic)
58 (defcfun (gtk-window-activate-key "gtk_window_activate_key") :boolean
59 (window (g-object gtk-window))
60 (event (g-boxed-foreign event)))
62 (export 'gtk-window-activate-key)
64 (defcfun (gtk-window-propagate-key-event "gtk_window_propagate_key_event") :boolean
65 (window (g-object gtk-window))
66 (event (g-boxed-foreign event)))
68 (export 'gtk-window-propagate-key-event)
70 (defcfun (gtk-window-present "gtk_window_present") :void
71 (window (g-object gtk-window)))
73 (export 'gtk-window-present)
75 (defcfun (gtk-window-present-with-time "gtk_window_present_with_time") :void
76 (window (g-object gtk-window))
77 (timestamp :uint32))
79 (export 'gtk-window-present-with-time)
81 (defcfun (gtk-window-iconify "gtk_window_iconify") :void
82 (window (g-object gtk-window)))
84 (export 'gtk-window-iconify)
86 (defcfun (gtk-window-deiconify "gtk_window_deiconify") :void
87 (window (g-object gtk-window)))
89 (export 'gtk-window-deiconify)
91 (defcfun (gtk-window-stick "gtk_window_stick") :void
92 (window (g-object gtk-window)))
94 (export 'gtk-window-stick)
96 (defcfun (gtk-window-unstick "gtk_window_unstick") :void
97 (window (g-object gtk-window)))
99 (export 'gtk-window-unstick)
101 (defcfun (gtk-window-maximize "gtk_window_maximize") :void
102 (window (g-object gtk-window)))
104 (export 'gtk-window-maximize)
106 (defcfun (gtk-window-unmaximize "gtk_window_unmaximize") :void
107 (window (g-object gtk-window)))
109 (export 'gtk-window-unmaximize)
111 (defcfun (gtk-window-fullscreen "gtk_window_fullscreen") :void
112 (window (g-object gtk-window)))
114 (export 'gtk-window-fullscreen)
116 (defcfun (gtk-window-unfullscreen "gtk_window_unfullscreen") :void
117 (window (g-object gtk-window)))
119 (export 'gtk-window-unfullscreen)
121 (defcfun (gtk-window-begin-resize-drag "gtk_window_begin_resize_drag") :void
122 (window (g-object gtk-window))
123 (edge gdk-window-edge)
124 (button :int)
125 (root-x :int)
126 (root-y :int)
127 (timestamp :uint32))
129 (export 'gtk-window-begin-resize-drag)
131 (defcfun (gtk-window-begin-move-drag "gtk_window_begin_move_drag") :void
132 (window (g-object gtk-window))
133 (button :int)
134 (root-x :int)
135 (root-y :int)
136 (timestamp :uint32))
138 (export 'gtk-window-begin-move-drag)
140 (defcfun (gtk-window-set-frame-dimensions "gtk_window_set_frame_dimensions") :void
141 (window (g-object gtk-window))
142 (left :int)
143 (top :int)
144 (right :int)
145 (bottom :int))
147 (export 'gtk-window-set-frame-dimensions)
149 (defcfun (%gtk-window-get-position "gtk_window_get_position") :void
150 (window (g-object gtk-window))
151 (root-x (:pointer :int))
152 (root-y (:pointer :int)))
154 (defun gtk-window-get-position (window)
155 (with-foreign-objects ((x :int)
156 (y :int))
157 (%gtk-window-get-position window x y)
158 (values (mem-ref x :int) (mem-ref y :int))))
160 (export 'gtk-window-get-position)
162 (defcfun (%gtk-window-get-size "gtk_window_get_size") :void
163 (window (g-object gtk-window))
164 (width (:pointer :int))
165 (height (:pointer :int)))
167 (defun gtk-window-size (window)
168 (with-foreign-objects ((width :int)
169 (height :int))
170 (%gtk-window-get-size window width height)
171 (values (mem-ref width :int) (mem-ref height :int))))
173 (export 'gtk-window-size)
175 (defcfun (window-move "gtk_window_move") :void
176 (window (g-object gtk-window))
177 (x :int)
178 (y :int))
180 (export 'window-move)
182 (defcfun (gtk-window-parse-geometry "gtk_window_parse_geometry") :boolean
183 (window (g-object gtk-window))
184 (geometry-string :string))
186 (export 'gtk-window-parse-geometry)
188 (defcfun (gtk-window-reshow-with-initial-size "gtk_window_reshow_with_initial_size") :void
189 (window (g-object gtk-window)))
191 (export 'gtk-window-reshow-with-initial-size)
193 (defcfun (gtk-window-resize "gtk_window_resize") :void
194 (window (g-object gtk-window))
195 (width :int)
196 (height :int))
198 (export 'gtk-window-resize)
200 (defcfun (gtk-window-default-icon-list "gtk_window_get_default_icon_list") (glist (g-object pixbuf)))
202 (defcfun (set-default-window-icon-list "gtk_window_set_default_icon_list") :boolean
203 (icon-list (glist (g-object pixbuf))))
205 (defun (setf gkt-window-default-icon-list) (icon-list)
206 (set-default-window-icon-list icon-list)
207 icon-list)
209 (export 'gtk-window-default-icon-list)
211 (defcfun (gtk-window-set-default-icon "gtk_window_set_default_icon") :void
212 (icon (g-object pixbuf)))
214 (defcfun (gtk-window-default-icon-name "gtk_window_get_default_icon_name") (:string :free-from-foreign nil))
216 (defcfun (set-default-window-icon-name "gtk_window_set_default_icon_name") :void
217 (icon-name :string))
219 (defun (setf gtk-window-default-icon) (icon)
220 (gtk-window-set-default-icon icon))
222 (defun (setf gtk-window-default-icon-name) (name)
223 (set-default-window-icon-name name))
225 (export 'window-default-icon)
227 (export 'window-default-icon-name)
229 (defcfun (set-window-auto-startup-notification "gtk_window_set_auto_startup_notification") :void
230 (setting :boolean))
232 (export 'set-window-auto-startup-notification)
234 (defcfun (gtk-window-group-add-window "gtk_window_group_add_window") :void
235 (window-group (g-object window-group))
236 (window (g-object gtk-window)))
238 (export 'gtk-window-group-add-window)
240 (defcfun (gtk-window-group-remove-window "gtk_window_group_remove_window") :void
241 (window-group (g-object window-group))
242 (window (g-object gtk-window)))
244 (export 'gtk-window-group-remove-window)
246 (defcfun (gtk-window-group-list-windows "gtk_window_group_list_windows") (glist gtk-window)
247 (window-group (g-object window-group)))
249 (export 'gtk-window-group-list-windows)
251 (defcfun (gtk-window-mnemonic-activate "gtk_window_mnemonic_activate") :boolean
252 (window (g-object gtk-window))
253 (keyval :uint)
254 (modifier modifier-type))
256 (export 'gtk-window-mnemonic-activate)