gdk/gdk.objects.lisp

   1 (in-package :gdk)
   2
   3 (define-g-enum "GdkGrabStatus" grab-status () :success :already-grabbed :invalid-time :not-viewable :frozen)
   4
   5 (defcenum crossing-mode :normal :grab :ungrab :gtk-grab :gtk-ungrab :state-changed)
   6 (export 'crossing-mode)
   7
   8 (defcenum notify-type (:ancestor 0) :virtual :inferior :nonlinear :nonlinear-virtual :unknown)
   9 (export 'notify-type)
  10
  11 (gobject:define-g-enum "GdkFillRule"
  12     gdk-fill-rule
  13     (:export t :type-initializer "gdk_fill_rule_get_type")
  14   (:even-odd-rule 0)
  15   (:winding-rule 1))
  16
  17 (define-g-enum "GdkOverlapType"
  18     overlap-type
  19     (:export t :type-initializer "gdk_overlap_type_get_type")
  20   (:in 0)
  21   (:out 1)
  22   (:part 2))
  23
  24 (define-g-flags "GdkGCValuesMask"
  25     gc-values-mask
  26     (:export t :type-initializer "gdk_gc_values_mask_get_type")
  27   (:foreground 1)
  28   (:background 2)
  29   (:font 4)
  30   (:function 8)
  31   (:fill 16)
  32   (:tile 32)
  33   (:stipple 64)
  34   (:clip-mask 128)
  35   (:subwindow 256)
  36   (:ts-x-origin 512)
  37   (:ts-y-origin 1024)
  38   (:clip-x-origin 2048)
  39   (:clip-y-origin 4096)
  40   (:exposures 8192)
  41   (:line-width 16384)
  42   (:line-style 32768)
  43   (:cap-style 65536)
  44   (:join-style 131072))
  45
  46 (define-g-enum "GdkFunction"
  47     gdk-function
  48     (:export t :type-initializer "gdk_function_get_type")
  49   (:copy 0)
  50   (:invert 1)
  51   (:xor 2)
  52   (:clear 3)
  53   (:and 4)
  54   (:and-reverse 5)
  55   (:and-invert 6)
  56   (:noop 7)
  57   (:or 8)
  58   (:equiv 9)
  59   (:or-reverse 10)
  60   (:copy-invert 11)
  61   (:or-invert 12)
  62   (:nand 13)
  63   (:nor 14)
  64   (:set 15))
  65
  66 (define-g-enum "GdkFill"
  67     gdk-fill
  68     (:export t :type-initializer "gdk_fill_get_type")
  69   (:solid 0)
  70   (:tiled 1)
  71   (:stippled 2)
  72   (:opaque-stippled 3))
  73
  74 (define-g-enum "GdkSubwindowMode"
  75     subwindow-mode
  76     (:export t :type-initializer "gdk_subwindow_mode_get_type")
  77   (:clip-by-children 0)
  78   (:include-inferiors 1))
  79
  80 (define-g-enum "GdkLineStyle"
  81     line-style
  82     (:export t :type-initializer "gdk_line_style_get_type")
  83   (:solid 0)
  84   (:on-off-dash 1)
  85   (:double-dash 2))
  86
  87 (define-g-enum "GdkCapStyle"
  88     cap-style
  89     (:export t :type-initializer "gdk_cap_style_get_type")
  90   (:not-last 0)
  91   (:butt 1)
  92   (:round 2)
  93   (:projecting 3))
  94
  95 (define-g-enum "GdkJoinStyle"
  96     join-style
  97     (:export t :type-initializer "gdk_join_style_get_type")
  98   (:miter 0)
  99   (:round 1)
 100   (:bevel 2))
 101
 102 (define-g-enum "GdkRgbDither"
 103     rgb-dither
 104     (:export t :type-initializer "gdk_rgb_dither_get_type")
 105   (:none 0)
 106   (:normal 1)
 107   (:max 2))
 108
 109 (define-g-object-class "GdkDisplay" display ()
 110   ((:cffi name display-name (glib:g-string :free-from-foreign nil)
 111           "gdk_display_get_name" nil)
 112    (:cffi n-screens display-n-screens :int
 113           "gdk_display_get_n_screens" nil)
 114    (:cffi default-screen display-default-screen (g-object screen)
 115           "gdk_display_get_default_screen" nil)
 116    (:cffi devices display-devices (glib:glist g-object :free-from-foreign nil)
 117           "gdk_display_list_devices" nil)
 118    (:cffi supports-cursor-color display-supports-cursor-color :boolean
 119           "gdk_display_supports_cursor_color" nil)
 120    (:cffi supports-cursor-alpha display-supports-color-alpha :boolean
 121           "gdk_display_supports_cursor_alpha" nil)
 122    (:cffi default-cursor-size display-default-cursor-size :uint
 123           "gdk_display_get_default_cursor_size" nil)
 124    (:cffi default-group display-default-group (g-object gdk-window)
 125           "gdk_display_get_default_group" nil)
 126    (:cffi supports-selection-notification display-supports-selection-notification :boolean
 127           "gdk_display_supports_selection_notification" nil)
 128    (:cffi supports-clipboard-persistence display-supports-clipboard-persistence :boolean
 129           "gdk_display_supports_clipboard_persistence" nil)
 130    (:cffi supports-shapes display-supports-shapes :boolean
 131           "gdk_display_supports_shapes" nil)
 132    (:cffi supports-input-shapes display-supports-input-shapes :boolean
 133           "gdk_display_supports_input_shapes" nil)
 134    (:cffi supports-composite display-supports-composite :boolean
 135           "gdk_display_supports_composite" nil)
 136    (:cffi core-pointer display-core-pointer g-object
 137           "gdk_display_get_core_pointer" nil)))
 138
 139 ;gdk_display_get_screen
 140
 141 (define-g-object-class "GdkDisplayManager" display-manager ()
 142   ((default-display display-manager-default-display "default-display" "GdkDisplay" t t)
 143    (:cffi displays display-manager-displays (glib:gslist (g-object display) :free-from-foreign t)
 144           "gdk_display_manager_list_displays" nil)))
 145
 146 (define-g-object-class "GdkVisual" visual () ())
 147
 148 (define-g-object-class "GdkColormap" gdk-colormap
 149   (:superclass g-object :export t :interfaces
 150                nil :type-initializer
 151                "gdk_colormap_get_type")
 152   ((:cffi visual colormap-visual (g-object visual)
 153           "gdk_colormap_get_visual" nil)
 154    (:cffi screen colormap-screen (g-object screen)
 155           "gdk_colormap_get_screeen" nil)))
 156
 157 (define-g-object-class "GdkScreen" screen ()
 158   ((font-options screen-font-options "font-options" "gpointer" t t)
 159    (resolution screen-resolution "resolution" "gdouble" t t)
 160    (:cffi default-colormap screen-default-colormap (g-object colormap)
 161           "gdk_screen_get_default_colormap" "gdk_screen_set_default_colormap")
 162    (:cffi system-colormap screen-system-colormap (g-object colormap)
 163           "gdk_screen_get_system_colormap" nil)
 164    (:cffi system-visual screen-system-visual (g-object visual)
 165           "gdk_screen_get_system_visual" nil)
 166    (:cffi rgb-colormap screen-rgb-colormap (g-object colormap)
 167           "gdk_screen_get_rgb_colormap" nil)
 168    (:cffi rgb-visual screen-visual (g-object visual)
 169           "gdk_screen_get_rgb_visual" nil)
 170    (:cffi rgba-colormap screen-rgba-colormap (g-object colormap)
 171           "gdk_screen_get_rgba_colormap" nil)
 172    (:cffi rgba-visual screen-rgba-visual (g-object visual)
 173           "gdk_screen_get_rgba_visual" nil)
 174    (:cffi composited-p screen-composited-p :boolean
 175           "gdk_screen_is_composited" nil)
 176    (:cffi root-window screen-root-window (g-object gdk-window)
 177           "gdk_screen_get_root_window" nil)
 178    (:cffi display screen-display (g-object display)
 179           "gdk_screen_get_display" nil)
 180    (:cffi number screen-number :int
 181           "gdk_screen_get_number" nil)
 182    (:cffi width screen-widget :int
 183           "gdk_screen_get_width" nil)
 184    (:cffi height screen-height :int
 185           "gdk_screen_get_height" nil)
 186    (:cffi width-mm screen-width-mm :int
 187           "gdk_screen_get_width_mm" nil)
 188    (:cffi height-mm screen-height-mm :int
 189           "gdk_screen_get_height_mm" nil)
 190    (:cffi visuals screen-visuals (glib:glist (g-object visual) :free-from-foreign t)
 191           "gdk_screen_list_visuals" nil)
 192    (:cffi toplevel-windows screen-toplevel-windows (glib:glist (g-object gdk-window) :free-from-foreign t)
 193           "gdk_screen_get_toplevel_windows" nil)
 194    (:cffi display-name screen-display-name (glib:g-string :free-from-foreign t)
 195           "gdk_screen_make_display_name" nil)
 196    (:cffi n-monitors screen-n-monitors :int
 197           "gdk_screen_get_n_monitors" nil)
 198    (:cffi active-window screen-active-window (g-object gdk-window)
 199           "gdk_screen_get_active_window" nil)
 200    (:cffi window-stack screen-window-stack (glib:glist (g-object gdk-window) :free-from-foreign t)
 201           "gdk_screen_get_window_stack" nil)))
 202
 203 (defcfun gdk-region-new :pointer)
 204
 205 (define-g-boxed-opaque region nil :alloc (gdk-region-new))
 206
 207 (export (boxed-related-symbols 'region))
 208
 209 (define-g-boxed-cstruct point nil
 210   (x :int :initform 0)
 211   (y :int :initform 0))
 212
 213 (export (boxed-related-symbols 'point))
 214
 215 (define-g-boxed-cstruct span nil
 216   (x :int :initform 0)
 217   (y :int :initform 0)
 218   (width :int :initform 0))
 219
 220 (export (boxed-related-symbols 'span))
 221
 222 (define-g-boxed-cstruct segment nil
 223   (x1 :int :initform 0)
 224   (y1 :int :initform 0)
 225   (x2 :int :initform 0)
 226   (y2 :int :initform 0))
 227
 228 (export (boxed-related-symbols 'segment))
 229
 230 (define-g-boxed-cstruct trapezoid nil
 231   (y1 :double :initform 0d0)
 232   (x11 :double :initform 0d0)
 233   (x21 :double :initform 0d0)
 234   (y2 :double :initform 0d0)
 235   (x12 :double :initform 0d0)
 236   (x22 :double :initform 0d0))
 237
 238 (export (boxed-related-symbols 'trapezoid))
 239
 240 (define-g-boxed-cstruct rectangle "GdkRectangle"
 241   (x :int :initform 0)
 242   (y :int :initform 0)
 243   (width :int :initform 0)
 244   (height :int :initform 0))
 245
 246 (export (boxed-related-symbols 'rectangle))
 247
 248 (define-g-boxed-opaque font "GdkFont"
 249   :alloc (error "GDK:FONT objects may not be allocated directly"))
 250
 251 (export (boxed-related-symbols 'font))
 252
 253 (define-g-boxed-cstruct color "GdkColor"
 254   (pixel :uint32 :initform 0)
 255   (red :uint16 :initform 0)
 256   (green :uint16 :initform 0)
 257   (blue :uint16 :initform 0))
 258
 259 (export (boxed-related-symbols 'color))
 260
 261 (define-g-object-class "GdkGC" graphics-context ()
 262   ((:cffi screen graphics-context-screen (g-object screen)
 263           "gdk_gc_get_screen" nil)
 264    (:cffi foreground graphics-context-foreground (g-boxed-foreign color)
 265           nil "gdk_gc_set_foreground")
 266    (:cffi background graphics-context-background (g-boxed-foreign color)
 267           nil "gdk_gc_set_background")
 268    (:cffi rgb-fg-color graphics-context-rgb-fg-color (g-boxed-foreign color)
 269           nil "gdk_gc_set_rgb_fg_color")
 270    (:cffi rgb-bg-color graphics-context-rgb-bg-color (g-boxed-foreign color)
 271           nil "gdk_gc_set_rgb_bg_color")
 272    (:cffi font graphics-context-font (g-boxed-foreign font)
 273           nil "gdk_gc_set_font")
 274    (:cffi function graphics-context-function gdk-function
 275           nil "gdk_gc_set_function")
 276    (:cffi fill graphics-context-fill gdk-fill
 277           nil "gdk_gc_set_fill")
 278    (:cffi tile graphics-context-tile (g-object pixmap)
 279           nil "gdk_gc_set_tile")
 280    (:cffi stipple graphics-context-stipple (g-object pixmap)
 281           nil "gdk_gc_set_stipple")
 282    (:cffi clip-mask graphics-context-clip-mask (g-object pixmap)
 283           nil "gdk_gc_set_clip_mask")
 284    (:cffi clip-rectangle graphics-context-clip-rectangle (g-boxed-foreign rectangle)
 285           nil "gdk_gc_set_clip_rectangle")
 286    (:cffi clip-region graphics-context-clip-region (g-boxed-foreign region)
 287           nil "gdk_gc_set_clip_region")
 288    (:cffi subwindow graphics-context-subwindow subwindow-mode
 289           nil "gdk_gc_set_subwindow")
 290    (:cffi exposures graphics-context-exposures :boolean
 291           nil "gdk_gc_set_exposures")
 292    (:cffi colormap graphics-context-colormap (g-object colormap)
 293           "gdk_gc_get_colormap" "gdk_gc_set_colormap")))
 294
 295 (define-g-object-class "GdkDrawable" drawable ()
 296   ((:cffi display drawable-display (g-object display)
 297           "gdk_drawable_get_display" nil)
 298    (:cffi screen drawable-screen (g-object screen)
 299           "gdk_drawable_get_screen" nil)
 300    (:cffi visual drawable-visual (g-object visual)
 301           "gdk_drawable_get_visual" nil)
 302    (:cffi colormap drawable-colormap (g-object colormap)
 303           "gdk_drawable_get_colormap" "gdk_drawable_set_colormap")
 304    (:cffi depth drawable-depth :int
 305           "gdk_drawable_get_depth" nil)
 306    (:cffi clip-region drawable-clip-region (g-boxed-foreign region :return)
 307           "gdk_drawable_get_clip_region" nil)
 308    (:cffi visible-region drawable-visible-region (g-boxed-foreign region :return)
 309           "gdk_drawable_get_visible_region" nil)))
 310
 311 (define-g-object-class "GdkPixmap" pixmap (:superclass drawable) ())
 312
 313 (define-g-object-class "GdkWindow" gdk-window (:superclass drawable) ())
 314
 315 (define-g-object-class "GdkKeymap" keymap () ())
 316
 317 (define-g-enum "GdkEventType" event-type ()
 318   (:nothing -1) (:delete 0)
 319   (:destroy 1) (:expose 2) (:motion-notify 3)
 320   (:button-press 4) (:2button-press 5) (:3button-press 6)
 321   (:button-release 7) (:key-press 8) (:key-release 9)
 322   (:enter-notify 10) (:leave-notify 11) (:focus-change 12)
 323   (:configure 13) (:map 14) (:unmap 15) (:property-notify 16)
 324   (:selection-clear 17) (:selection-request 18)
 325   (:selection-notify 19) (:proximity-in 20)
 326   (:proximity-out 21) (:drag-enter 22) (:drag-leave 23)
 327   (:drag-motion 24) (:drag-status 25) (:drop-start 26)
 328   (:drop-finished 27) (:client-event 28)
 329   (:visibility-notify 29) (:no-expose 30) (:scroll 31)
 330   (:window-state 32) (:setting 33) (:owner-change 34)
 331   (:grab-broken 35) (:damage 36))
 332
 333 (define-g-flags "GdkEventMask" gdk-event-mask (:export t :type-initializer "gdk_event_mask_get_type")
 334   (:exposure-mask 2) (:pointer-motion-mask 4)
 335   (:pointer-motion-hint-mask 8) (:button-motion-mask 16)
 336   (:button1-motion-mask 32) (:button2-motion-mask 64)
 337   (:button3-motion-mask 128) (:button-press-mask 256)
 338   (:button-release-mask 512) (:key-press-mask 1024)
 339   (:key-release-mask 2048) (:enter-notify-mask 4096)
 340   (:leave-notify-mask 8192) (:focus-change-mask 16384)
 341   (:structure-mask 32768) (:property-change-mask 65536)
 342   (:visibility-notify-mask 131072)
 343   (:proximity-in-mask 262144) (:proximity-out-mask 524288)
 344   (:substructure-mask 1048576) (:scroll-mask 2097152)
 345   (:all-events-mask 4194302))
 346
 347 (define-g-enum "GdkExtensionMode" gdk-extension-mode (:export t :type-initializer "gdk_extension_mode_get_type")
 348   (:none 0) (:all 1) (:cursor 2))
 349
 350 (define-g-enum "GdkWindowTypeHint" gdk-window-type-hint (:export t :type-initializer "gdk_window_type_hint_get_type")
 351   (:normal 0) (:dialog 1) (:menu 2) (:toolbar 3)
 352   (:splashscreen 4) (:utility 5) (:dock 6) (:desktop 7)
 353   (:dropdown-menu 8) (:popup-menu 9) (:tooltip 10)
 354   (:notification 11) (:combo 12) (:dnd 13))
 355
 356 (define-g-flags "GdkModifierType" modifier-type ()
 357   (:shift-mask 1) (:lock-mask 2) (:control-mask 4)
 358   (:mod1-mask 8) (:mod2-mask 16) (:mod3-mask 32)
 359   (:mod4-mask 64) (:mod5-mask 128)
 360   (:button1-mask 256) (:button2-mask 512)
 361   (:button3-mask 1024) (:button4-mask 2048)
 362   (:button5-mask 4096) (:super-mask 67108864)
 363   (:hyper-mask 134217728) (:meta-mask 268435456)
 364   (:release-mask 1073741824)
 365   (:modifier-mask 1543512063))
 366
 367 (define-g-enum "GdkScrollDirection" scroll-direction ()
 368   (:up 0) (:down 1)
 369   (:left 2) (:right 3))
 370
 371 (define-g-enum "GdkVisibilityState" visibility-state ()
 372   (:unobscured 0)
 373   (:partial 1) (:fully-obscured 2))
 374
 375 (define-g-enum "GdkPropertyState" property-state ()
 376   :new-value :delete)
 377
 378 (define-g-flags "GdkWindowState" window-state ()
 379   (:withdrawn 1)
 380   (:iconified 2) (:maximized 4) (:sticky 8) (:fullscreen 16)
 381   (:above 32) (:below 64))
 382
 383 (define-g-enum "GdkSettingAction" setting-action ()
 384   (:new 0) (:changed 1)
 385   (:deleted 2))
 386
 387 (define-g-enum "GdkOwnerChange" owner-change ()
 388   (:new-owner 0)
 389   (:destroy 1) (:close 2))
 390
 391 (define-g-flags "GdkEventMask" event-mask ()
 392   (:exposure-mask 2)
 393   (:pointer-motion-mask 4) (:pointer-motion-hint-mask 8)
 394   (:button-motion-mask 16) (:button1-motion-mask 32)
 395   (:button2-motion-mask 64) (:button3-motion-mask 128)
 396   (:button-press-mask 256) (:button-release-mask 512)
 397   (:key-press-mask 1024) (:key-release-mask 2048)
 398   (:enter-notify-mask 4096) (:leave-notify-mask 8192)
 399   (:focus-change-mask 16384) (:structure-mask 32768)
 400   (:property-change-mask 65536)
 401   (:visibility-notify-mask 131072)
 402   (:proximity-in-mask 262144) (:proximity-out-mask 524288)
 403   (:substructure-mask 1048576) (:scroll-mask 2097152)
 404   (:all-events-mask 4194302))
 405
 406 (define-g-enum "GdkFontType" font-type () :font :fontset)
 407
 408 (define-g-enum "GdkGravity" gravity ()
 409   (:north-west 1)
 410   :north
 411   :north-east
 412   :west
 413   :center
 414   :east
 415   :south-west
 416   :south
 417   :south-east
 418   :static)
 419
 420 (define-g-boxed-cstruct geometry "GdkGeometry"
 421   (min-width :int :initform 0)
 422   (min-height :int :initform 0)
 423   (max-width :int :initform 0)
 424   (max-height :int :initform 0)
 425   (base-width :int :initform 0)
 426   (base-height :int :initform 0)
 427   (width-increment :int :initform 0)
 428   (height-increment :int :initform 0)
 429   (min-aspect :double :initform 0.0d0)
 430   (max-aspect :double :initform 0.0d0)
 431   (gravity gravity :initform :north-west))
 432
 433 (export (boxed-related-symbols 'geometry))
 434
 435 (glib:at-init () (foreign-funcall-pointer (foreign-symbol-pointer "gdk_cursor_get_type") () :int))
 436
 437 (gobject:define-g-enum "GdkCursorType" cursor-type (:export t :type-initializer "gdk_cursor_type_get_type")
 438   (:x-cursor 0) (:arrow 2) (:based-arrow-down 4)
 439   (:based-arrow-up 6) (:boat 8) (:bogosity 10)
 440   (:bottom-left-corner 12) (:bottom-right-corner 14)
 441   (:bottom-side 16) (:bottom-tee 18) (:box-spiral 20)
 442   (:center-ptr 22) (:circle 24) (:clock 26)
 443   (:coffee-mug 28) (:cross 30) (:cross-reverse 32)
 444   (:crosshair 34) (:diamond-cross 36) (:dot 38)
 445   (:dotbox 40) (:double-arrow 42) (:draft-large 44)
 446   (:draft-small 46) (:draped-box 48) (:exchange 50)
 447   (:fleur 52) (:gobbler 54) (:gumby 56) (:hand1 58)
 448   (:hand2 60) (:heart 62) (:icon 64) (:iron-cross 66)
 449   (:left-ptr 68) (:left-side 70) (:left-tee 72)
 450   (:leftbutton 74) (:ll-angle 76) (:lr-angle 78)
 451   (:man 80) (:middlebutton 82) (:mouse 84)
 452   (:pencil 86) (:pirate 88) (:plus 90)
 453   (:question-arrow 92) (:right-ptr 94)
 454   (:right-side 96) (:right-tee 98) (:rightbutton 100)
 455   (:rtl-logo 102) (:sailboat 104)
 456   (:sb-down-arrow 106) (:sb-h-double-arrow 108)
 457   (:sb-left-arrow 110) (:sb-right-arrow 112)
 458   (:sb-up-arrow 114) (:sb-v-double-arrow 116)
 459   (:shuttle 118) (:sizing 120) (:spider 122)
 460   (:spraycan 124) (:star 126) (:target 128)
 461   (:tcross 130) (:top-left-arrow 132)
 462   (:top-left-corner 134) (:top-right-corner 136)
 463   (:top-side 138) (:top-tee 140) (:trek 142)
 464   (:ul-angle 144) (:umbrella 146) (:ur-angle 148)
 465   (:watch 150) (:xterm 152) (:last-cursor 153)
 466   (:blank-cursor -2) (:cursor-is-pixmap -1))
 467
 468 (export 'cursor-type)
 469
 470 (define-g-boxed-cstruct cursor "GdkCursor"
 471   (type cursor-type))
 472
 473 (export (boxed-related-symbols 'cursor))
 474
 475 (defctype gdk-atom :pointer)
 476
 477 (define-foreign-type gdk-atom-as-string-type ()
 478   ()
 479   (:actual-type :pointer)
 480   (:simple-parser gdk-atom-as-string))
 481
 482 (defmethod translate-from-foreign (value (type gdk-atom-as-string-type))
 483   (gdk-atom-name value))
 484
 485 (defmethod translate-to-foreign (value (type gdk-atom-as-string-type))
 486   (gdk-atom-intern value nil))
 487
 488 ;;;FIXME: Check correct type
 489 (defctype native-window :uint32)
 490
 491 (define-foreign-type fixed-array ()
 492   ((element-type :reader fixed-array-element-type :initarg :element-type :initform (error "Element type must be specified"))
 493    (array-size :reader fixed-array-array-size :initarg :array-size :initform (error "Array size must be specified")))
 494   (:actual-type :pointer)
 495   (:documentation
 496    "CFFI foreign type for an array of a fixed length. Slot @code{element-type}@see-slot{fixed-array-element-type} specifies the type of elements and slot @code{array-size}@see-slot{fixed-array-array-size} specifies the size of array (in elements)."))
 497
 498 (define-parse-method fixed-array (element-type array-size)
 499   (make-instance 'fixed-array :element-type element-type :array-size array-size))
 500
 501 (defmethod translate-from-foreign (ptr (type fixed-array))
 502   (when (not (null-pointer-p ptr))
 503     (let ((result (make-array (fixed-array-array-size type)))
 504           (el-type (fixed-array-element-type type)))
 505       (loop
 506          for i from 0 below (fixed-array-array-size type)
 507          do (setf (aref result i) (mem-aref ptr el-type i)))
 508       result)))
 509
 510 (define-g-boxed-variant-cstruct event "GdkEvent"
 511   (type event-type)
 512   (window (g-object gdk-window))
 513   (send-event (:boolean :int8))
 514   (:variant type
 515             ((:key-press :key-release) event-key
 516              (time :uint32)
 517              (state modifier-type)
 518              (keyval :uint)
 519              (length :int)
 520              (string (:string :free-from-foreign nil
 521                               :free-to-foreign nil))
 522              (hardware-keycode :uint16)
 523              (group :uint8)
 524              (is-modifier :uint))
 525             ((:button-press
 526               :2button-press
 527               :3button-press
 528               :button-release) event-button
 529              (time :uint32)
 530              (x :double)
 531              (y :double)
 532              (axes (fixed-array :double 2))
 533              (state :uint)
 534              (button :uint)
 535              (device (g-object device))
 536              (x-root :double)
 537              (y-root :double))
 538             ((:scroll) event-scroll
 539              (time :uint32)
 540              (x :double)
 541              (y :double)
 542              (state modifier-type)
 543              (direction scroll-direction)
 544              (device (g-object device))
 545              (x-root :double)
 546              (y-root :double))
 547             ((:motion-notify) event-motion
 548              (time :uint32)
 549              (x :double)
 550              (y :double)
 551              (axes (fixed-array :double 2))
 552              (state modifier-type)
 553              (is-hint :int16)
 554              (device (g-object device))
 555              (x-root :double)
 556              (y-root :double))
 557             ((:expose) event-expose
 558              (area rectangle :inline t)
 559              (region :pointer)
 560              (count :int))
 561             ((:visibility-notify) event-visibility
 562              (state visibility-state))
 563             ((:enter-notify :leave-notify) event-crossing
 564              (sub-window (g-object gdk-window))
 565              (time :uint32)
 566              (x :double)
 567              (y :double)
 568              (x-root :double)
 569              (y-root :double)
 570              (mode crossing-mode)
 571              (detail notify-type)
 572              (focus :boolean)
 573              (state :uint))
 574             ((:focus-change) event-focus
 575              (in :int16))
 576             ((:configure) event-configure
 577              (x :int)
 578              (y :int)
 579              (width :int)
 580              (height :int))
 581             ((:property-notify) event-property
 582              (atom gdk-atom)
 583              (time :uint32)
 584              (state property-state))
 585             ((:selection-clear
 586               :selection-notify
 587               :selection-request) event-selection
 588              (selection gdk-atom)
 589              (target gdk-atom)
 590              (property gdk-atom)
 591              (time :uint32)
 592              (requestor native-window))
 593             ((:drag-enter
 594               :drag-leave
 595               :drag-motion
 596               :drag-status
 597               :drop-start
 598               :drop-finished) event-dnd
 599              (drag-context :pointer)
 600              (time :uint32)
 601              (x-root :short)
 602              (y-root :short))
 603             ((:proximity-in
 604               :proximity-out) event-proximity
 605              (time :uint32)
 606              (device (g-object device)))
 607             ((:client-event) event-client
 608              (message-time gdk-atom)
 609              (data-format :ushort)
 610              (:variant data-format
 611                        (8 event-client-8
 612                           (data :uchar :count 20))
 613                        (16 event-client-16
 614                            (data :ushort :count 10))
 615                        (32 event-client-32
 616                            (data :ulong :count 5))))
 617             ((:no-expose) event-no-expose)
 618             ((:window-state) event-window-state
 619              (changed-mask window-state)
 620              (new-window-state window-state))
 621             ((:setting) event-setting
 622              (action setting-action)
 623              (name (:string :free-from-foreign nil :free-to-foreign nil)))
 624             ((:owner-change) event-owner-change
 625              (owner native-window)
 626              (reason owner-change)
 627              (selection gdk-atom)
 628              (time :uint32)
 629              (selection-time :uint32))
 630             ((:grab-broken) event-grab-broken
 631              (keyboard :boolean)
 632              (implicit :boolean)
 633              (grab-window (g-object gdk-window)))))
 634
 635 (export (boxed-related-symbols 'event))
 636
 637 (define-g-object-class "GdkDragContext" drag-context () ())
 638
 639 (define-g-flags "GdkWindowHints" window-hints ()
 640   :pos :min-size :max-size :base-size :aspect
 641   :resize-inc :win-gravity :user-pos :user-size)
 642
 643 (define-g-enum "GdkWindowEdge" window-edge ()
 644   (:north-west 0) (:north 1) (:north-east 2) (:west 3)
 645   (:east 4) (:south-west 5) (:south 6) (:south-east 7))
 646
 647 (define-g-enum "GdkColorspace" colorspace ()
 648   :rgb)
 649
 650 (define-g-object-class "GdkPixbuf" pixbuf ()
 651     ((colorspace pixbuf-colorspace "colorspace" "GdkColorspace" t nil)
 652      (n-channels pixbuf-n-channels "n-channels" "gint" t nil)
 653      (has-alpha pixbuf-has-alpha "has-alpha" "gboolean" t nil)
 654      (bits-per-sample pixbuf-bits-per-sample "bits-per-sample" "gint" t nil)
 655      (width pixbuf-width "width" "gint" t nil)
 656      (height pixbuf-height "height" "gint" t nil)
 657      (rowstride pixbuf-rowstride "rowstride" "gint" t nil)
 658      (pixels pixbuf-pixels "pixels" "gpointer" t nil)))
 659
 660 (define-g-object-class "GdkPixbufAnimation" pixbuf-animation ()
 661     nil)
 662
 663 (define-g-object-class "GdkImage" gdk-image
 664   (:superclass g-object :export t :interfaces
 665                nil :type-initializer
 666                "gdk_image_get_type")
 667   ((:cffi colormap gdk-image-colormap (g-object gdk-colormap)
 668           "gdk_image_get_colormap" "gdk_image_set_colormap")))
 669
 670 (define-g-enum "GdkImageType"
 671     gdk-image-type
 672     (:export t :type-initializer "gdk_image_type_get_type")
 673   (:normal 0)
 674   (:shared 1)
 675   (:fastest 2))
 676
 677 (define-g-enum "GdkPixbufAlphaMode"
 678     pixbuf-alpha-mode
 679     (:export t :type-initializer "gdk_pixbuf_alpha_mode_get_type")
 680   (:bilevel 0)
 681   (:full 1))
 682