3 (define-g-enum "GdkGrabStatus" grab-status () :success :already-grabbed :invalid-time :not-viewable :frozen)
5 (define-g-object-class "GdkDisplay" display () ())
7 (define-g-object-class "GdkDisplayManager" display-manager ()
8 ((default-display display-manager-default-display "default-display" "GdkDisplay" t t)))
10 (define-g-object-class "GdkScreen" screen ()
11 ((font-options screen-font-options "font-options" "gpointer" t t)
12 (resolution screen-resolution "resolution" "gdouble" t t)))
14 (define-g-object-class "GdkGC" graphics-context () ())
16 (define-g-object-class "GdkDrawable" drawable () ())
18 (define-g-object-class "GdkPixmap" pixmap (:superclass drawable) ())
20 (define-g-object-class "GdkWindow" gdk-window (:superclass drawable) ())
22 (define-g-object-class "GdkKeymap" keymap () ())
24 (define-g-enum "GdkEventType" event-type ()
25 (:nothing -1) (:delete 0)
26 (:destroy 1) (:expose 2) (:motion-notify 3)
27 (:button-press 4) (:2button-press 5) (:3button-press 6)
28 (:button-release 7) (:key-press 8) (:key-release 9)
29 (:enter-notify 10) (:leave-notify 11) (:focus-change 12)
30 (:configure 13) (:map 14) (:unmap 15) (:property-notify 16)
31 (:selection-clear 17) (:selection-request 18)
32 (:selection-notify 19) (:proximity-in 20)
33 (:proximity-out 21) (:drag-enter 22) (:drag-leave 23)
34 (:drag-motion 24) (:drag-status 25) (:drop-start 26)
35 (:drop-finished 27) (:client-event 28)
36 (:visibility-notify 29) (:no-expose 30) (:scroll 31)
37 (:window-state 32) (:setting 33) (:owner-change 34)
38 (:grab-broken 35) (:damage 36))
40 (define-g-flags "GdkEventMask" gdk-event-mask (:export t :type-initializer "gdk_event_mask_get_type")
41 (:exposure-mask 2) (:pointer-motion-mask 4)
42 (:pointer-motion-hint-mask 8) (:button-motion-mask 16)
43 (:button1-motion-mask 32) (:button2-motion-mask 64)
44 (:button3-motion-mask 128) (:button-press-mask 256)
45 (:button-release-mask 512) (:key-press-mask 1024)
46 (:key-release-mask 2048) (:enter-notify-mask 4096)
47 (:leave-notify-mask 8192) (:focus-change-mask 16384)
48 (:structure-mask 32768) (:property-change-mask 65536)
49 (:visibility-notify-mask 131072)
50 (:proximity-in-mask 262144) (:proximity-out-mask 524288)
51 (:substructure-mask 1048576) (:scroll-mask 2097152)
52 (:all-events-mask 4194302))
54 (define-g-enum "GdkExtensionMode" gdk-extension-mode (:export t :type-initializer "gdk_extension_mode_get_type")
55 (:none 0) (:all 1) (:cursor 2))
57 (define-g-enum "GdkWindowTypeHint" gdk-window-type-hint (:export t :type-initializer "gdk_window_type_hint_get_type")
58 (:normal 0) (:dialog 1) (:menu 2) (:toolbar 3)
59 (:splashscreen 4) (:utility 5) (:dock 6) (:desktop 7)
60 (:dropdown-menu 8) (:popup-menu 9) (:tooltip 10)
61 (:notification 11) (:combo 12) (:dnd 13))
63 (gobject::define-g-flags "GdkModifierType" modifier-type ()
64 (:shift-mask 1) (:lock-mask 2) (:control-mask 4)
65 (:mod1-mask 8) (:mod2-mask 16) (:mod3-mask 32)
66 (:mod4-mask 64) (:mod5-mask 128)
67 (:button1-mask 256) (:button2-mask 512)
68 (:button3-mask 1024) (:button4-mask 2048)
69 (:button5-mask 4096) (:super-mask 67108864)
70 (:hyper-mask 134217728) (:meta-mask 268435456)
71 (:release-mask 1073741824)
72 (:modifier-mask 1543512063))
74 (define-g-enum "GdkScrollDirection" scroll-direction ()
78 (define-g-enum "GdkVisibilityState" visibility-state ()
80 (:partial 1) (:fully-obscured 2))
82 (define-g-enum "GdkPropertyState" property-state ()
85 (define-g-flags "GdkWindowState" window-state ()
87 (:iconified 2) (:maximized 4) (:sticky 8) (:fullscreen 16)
88 (:above 32) (:below 64))
90 (define-g-enum "GdkSettingAction" setting-action ()
94 (define-g-enum "GdkOwnerChange" owner-change ()
96 (:destroy 1) (:close 2))
98 (define-g-flags "GdkEventMask" event-mask ()
100 (:pointer-motion-mask 4) (:pointer-motion-hint-mask 8)
101 (:button-motion-mask 16) (:button1-motion-mask 32)
102 (:button2-motion-mask 64) (:button3-motion-mask 128)
103 (:button-press-mask 256) (:button-release-mask 512)
104 (:key-press-mask 1024) (:key-release-mask 2048)
105 (:enter-notify-mask 4096) (:leave-notify-mask 8192)
106 (:focus-change-mask 16384) (:structure-mask 32768)
107 (:property-change-mask 65536)
108 (:visibility-notify-mask 131072)
109 (:proximity-in-mask 262144) (:proximity-out-mask 524288)
110 (:substructure-mask 1048576) (:scroll-mask 2097152)
111 (:all-events-mask 4194302))
113 (define-g-boxed-class ("GdkEvent" event-struct) event ()
115 (window (g-object gdk-window))
116 (send-event (:boolean :int8)))
118 (define-g-boxed-class nil event-key ((event type (:key-press :key-release)))
120 (state modifier-type)
123 (string (:string :free-from-foreign nil :free-to-foreign nil))
124 (hardware-keycode :uint16)
128 (define-g-boxed-class nil event-button ((event type (:button-press :2button-press :3button-press :button-release)))
132 (axes (fixed-array :double 2))
135 (device (g-object device))
139 (define-g-boxed-class nil event-scroll ((event type :scroll))
143 (state modifier-type)
144 (direction scroll-direction)
145 (device (g-object device))
149 (define-g-boxed-class nil event-motion ((event type :motion-notify))
153 (axes (fixed-array :double 2))
154 (state modifier-type)
156 (device (g-object device))
160 (define-g-boxed-class "GdkRectangle" rectangle ()
166 (define-g-boxed-class nil event-expose ((event type :expose))
167 (area (g-boxed-inline rectangle))
171 (define-g-boxed-class nil event-visibility ((event type :visibility-notify))
172 (state visibility-state))
174 (define-g-boxed-class nil event-crossing ((event type (:enter-notify :leave-notify)))
175 (sub-window (g-object gdk-window))
182 (define-g-boxed-class nil event-focus ((event type :focus-change))
185 (define-g-boxed-class nil event-configure ((event type :configure))
191 (defctype gdk-atom :pointer)
193 (define-foreign-type gdk-atom-as-string-type ()
195 (:actual-type :pointer)
196 (:simple-parser gdk-atom-as-string))
198 (defmethod translate-from-foreign (value (type gdk-atom-as-string-type))
199 (gdk-atom-name value))
201 (defmethod translate-to-foreign (value (type gdk-atom-as-string-type))
202 (gdk-atom-intern value nil))
204 (define-g-boxed-class nil event-property ((event type :property-notify))
207 (state property-state))
209 ;;;FIXME: Check correct type
210 (defctype native-window :uint32)
212 (define-g-boxed-class nil event-selection ((event type (:selection-clear :selection-notify :selection-request)))
217 (requestor native-window))
219 (define-g-object-class "GdkDragContext" drag-context () ())
221 (define-g-boxed-class nil event-dnd ((event type (:drag-enter :drag-leave :drag-motion :drag-status :drop-start :drop-finished)))
222 (drag-context :pointer)
227 (define-g-boxed-class nil event-proximity ((event type (:proximity-in :proximity-out)))
229 (device (g-object device)))
231 (defcunion event-client-data-union
236 (define-g-boxed-class nil event-client ((event type :client-event))
237 (message-time gdk-atom)
238 (data-format :ushort)
239 (data event-client-data-union :parser 'event-client-data-union-parser :unparser 'event-client-data-union-unparser))
241 (defun event-client-data-union-parser (name pointer)
242 (declare (ignore name))
243 (ecase (foreign-slot-value pointer 'event-client 'data-format)
244 (8 (convert-from-foreign (foreign-slot-pointer pointer 'event-client 'data) '(fixed-array :uchar 20)))
245 (16 (convert-from-foreign (foreign-slot-pointer pointer 'event-client 'data) '(fixed-array :ushort 20)))
246 (32 (convert-from-foreign (foreign-slot-pointer pointer 'event-client 'data) '(fixed-array :ulong 20)))))
248 (defun event-client-data-union-unparser (name pointer object)
249 (declare (ignore name))
250 (ecase (event-client-data-format object)
252 with array-ptr = (foreign-slot-pointer pointer 'event-client 'data)
253 for i from 0 below 20
254 do (setf (mem-aref array-ptr :uchar i) (aref (event-client-data object) i))))
256 with array-ptr = (foreign-slot-pointer pointer 'event-client 'data)
257 for i from 0 below 20
258 do (setf (mem-aref array-ptr :ushort i) (aref (event-client-data object) i))))
260 with array-ptr = (foreign-slot-pointer pointer 'event-client 'data)
261 for i from 0 below 20
262 do (setf (mem-aref array-ptr :ulong i) (aref (event-client-data object) i))))))
264 (define-g-boxed-class nil event-no-expose ((event type :no-expose)))
266 (define-g-boxed-class nil event-window-state ((event type :window-state))
267 (changed-mask window-state)
268 (new-window-state window-state))
270 (define-g-boxed-class nil event-setting ((event type :setting))
271 (action setting-action)
272 (name (:string :free-from-foreign nil :free-to-foreign nil)))
274 (define-g-boxed-class nil event-owner-change ((event type :owner-change))
275 (owner native-window)
276 (reason owner-change)
279 (selection-time :uint32))
281 (define-g-boxed-class nil event-grab-broken ((event type :grab-broken))
284 (grab-window (g-object gdk-window)))
286 (define-g-enum "GdkFontType" font-type () :font :fontset)
288 (define-g-boxed-class "GdkFont" font ()
293 (define-g-boxed-class "GdkColor" color ()
294 (pixel :uint32 :initform 0)
295 (red :uint16 :initform 0)
296 (green :uint16 :initform 0)
297 (blue :uint16 :initform 0))
299 (define-g-enum "GdkGravity" gravity ()
311 (define-g-boxed-class "GdkGeometry" geometry ()
312 (min-width :int :initform 0)
313 (min-height :int :initform 0)
314 (max-width :int :initform 0)
315 (max-height :int :initform 0)
316 (base-width :int :initform 0)
317 (base-height :int :initform 0)
318 (width-increment :int :initform 0)
319 (height-increment :int :initform 0)
320 (min-aspect :double :initform 0.0d0)
321 (max-aspect :double :initform 0.0d0)
322 (gravity gravity :initform :north-west))
324 (define-g-flags "GdkWindowHints" window-hints ()
325 :pos :min-size :max-size :base-size :aspect
326 :resize-inc :win-gravity :user-pos :user-size)
328 (define-g-enum "GdkWindowEdge" window-edge ()
329 (:north-west 0) (:north 1) (:north-east 2) (:west 3)
330 (:east 4) (:south-west 5) (:south 6) (:south-east 7))
332 (define-g-enum "GdkColorspace" colorspace ()
335 (define-g-object-class "GdkPixbuf" pixbuf ()
336 ((colorspace pixbuf-colorspace "colorspace" "GdkColorspace" t nil)
337 (n-channels pixbuf-n-channels "n-channels" "gint" t nil)
338 (has-alpha pixbuf-has-alpha "has-alpha" "gboolean" t nil)
339 (bits-per-sample pixbuf-bits-per-sample "bits-per-sample" "gint" t nil)
340 (width pixbuf-width "width" "gint" t nil)
341 (height pixbuf-height "height" "gint" t nil)
342 (rowstride pixbuf-rowstride "rowstride" "gint" t nil)
343 (pixels pixbuf-pixels "pixels" "gpointer" t nil)))
345 (define-g-object-class "GdkPixbufAnimation" pixbuf-animation ()