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 (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-enum "GdkVisualType"
 110     visual-type
 111     (:export t :type-initializer "gdk_visual_type_get_type")
 112   (:static-gray 0)
 113   (:grayscale 1)
 114   (:static-color 2)
 115   (:pseudo-color 3)
 116   (:true-color 4)
 117   (:direct-color 5))
 118
 119 (define-g-enum "GdkByteOrder"
 120     byte-order
 121     (:export t :type-initializer "gdk_byte_order_get_type")
 122   (:lsb-first 0)
 123   (:msb-first 1))
 124
 125 (define-g-enum "GdkCursorType"
 126     gdk-cursor-type
 127     (:export t :type-initializer "gdk_cursor_type_get_type")
 128   (:x-cursor 0)
 129   (:arrow 2)
 130   (:based-arrow-down 4)
 131   (:based-arrow-up 6)
 132   (:boat 8)
 133   (:bogosity 10)
 134   (:bottom-left-corner 12)
 135   (:bottom-right-corner 14)
 136   (:bottom-side 16)
 137   (:bottom-tee 18)
 138   (:box-spiral 20)
 139   (:center-ptr 22)
 140   (:circle 24)
 141   (:clock 26)
 142   (:coffee-mug 28)
 143   (:cross 30)
 144   (:cross-reverse 32)
 145   (:crosshair 34)
 146   (:diamond-cross 36)
 147   (:dot 38)
 148   (:dotbox 40)
 149   (:double-arrow 42)
 150   (:draft-large 44)
 151   (:draft-small 46)
 152   (:draped-box 48)
 153   (:exchange 50)
 154   (:fleur 52)
 155   (:gobbler 54)
 156   (:gumby 56)
 157   (:hand1 58)
 158   (:hand2 60)
 159   (:heart 62)
 160   (:icon 64)
 161   (:iron-cross 66)
 162   (:left-ptr 68)
 163   (:left-side 70)
 164   (:left-tee 72)
 165   (:leftbutton 74)
 166   (:ll-angle 76)
 167   (:lr-angle 78)
 168   (:man 80)
 169   (:middlebutton 82)
 170   (:mouse 84)
 171   (:pencil 86)
 172   (:pirate 88)
 173   (:plus 90)
 174   (:question-arrow 92)
 175   (:right-ptr 94)
 176   (:right-side 96)
 177   (:right-tee 98)
 178   (:rightbutton 100)
 179   (:rtl-logo 102)
 180   (:sailboat 104)
 181   (:sb-down-arrow 106)
 182   (:sb-h-double-arrow 108)
 183   (:sb-left-arrow 110)
 184   (:sb-right-arrow 112)
 185   (:sb-up-arrow 114)
 186   (:sb-v-double-arrow 116)
 187   (:shuttle 118)
 188   (:sizing 120)
 189   (:spider 122)
 190   (:spraycan 124)
 191   (:star 126)
 192   (:target 128)
 193   (:tcross 130)
 194   (:top-left-arrow 132)
 195   (:top-left-corner 134)
 196   (:top-right-corner 136)
 197   (:top-side 138)
 198   (:top-tee 140)
 199   (:trek 142)
 200   (:ul-angle 144)
 201   (:umbrella 146)
 202   (:ur-angle 148)
 203   (:watch 150)
 204   (:xterm 152)
 205   (:last-cursor 153)
 206   (:blank-cursor -2)
 207   (:cursor-is-pixmap -1))
 208
 209 (define-g-flags "GdkWindowState"
 210     gdk-window-state
 211     (:export t :type-initializer "gdk_window_state_get_type")
 212   (:withdrawn 1)
 213   (:iconified 2)
 214   (:maximized 4)
 215   (:sticky 8)
 216   (:fullscreen 16)
 217   (:above 32)
 218   (:below 64))
 219
 220 ;gdk_display_get_screen
 221
 222 (define-g-enum "GdkEventType" event-type ()
 223   (:nothing -1) (:delete 0)
 224   (:destroy 1) (:expose 2) (:motion-notify 3)
 225   (:button-press 4) (:2button-press 5) (:3button-press 6)
 226   (:button-release 7) (:key-press 8) (:key-release 9)
 227   (:enter-notify 10) (:leave-notify 11) (:focus-change 12)
 228   (:configure 13) (:map 14) (:unmap 15) (:property-notify 16)
 229   (:selection-clear 17) (:selection-request 18)
 230   (:selection-notify 19) (:proximity-in 20)
 231   (:proximity-out 21) (:drag-enter 22) (:drag-leave 23)
 232   (:drag-motion 24) (:drag-status 25) (:drop-start 26)
 233   (:drop-finished 27) (:client-event 28)
 234   (:visibility-notify 29) (:no-expose 30) (:scroll 31)
 235   (:window-state 32) (:setting 33) (:owner-change 34)
 236   (:grab-broken 35) (:damage 36))
 237
 238 (define-g-enum "GdkExtensionMode" extension-mode (:export t :type-initializer "gdk_extension_mode_get_type")
 239   (:none 0) (:all 1) (:cursor 2))
 240
 241 (define-g-enum "GdkWindowTypeHint" gdk-window-type-hint (:export t :type-initializer "gdk_window_type_hint_get_type")
 242   (:normal 0) (:dialog 1) (:menu 2) (:toolbar 3)
 243   (:splashscreen 4) (:utility 5) (:dock 6) (:desktop 7)
 244   (:dropdown-menu 8) (:popup-menu 9) (:tooltip 10)
 245   (:notification 11) (:combo 12) (:dnd 13))
 246
 247 (define-g-flags "GdkModifierType" modifier-type ()
 248   (:shift-mask 1) (:lock-mask 2) (:control-mask 4)
 249   (:mod1-mask 8) (:mod2-mask 16) (:mod3-mask 32)
 250   (:mod4-mask 64) (:mod5-mask 128)
 251   (:button1-mask 256) (:button2-mask 512)
 252   (:button3-mask 1024) (:button4-mask 2048)
 253   (:button5-mask 4096) (:super-mask 67108864)
 254   (:hyper-mask 134217728) (:meta-mask 268435456)
 255   (:release-mask 1073741824)
 256   (:modifier-mask 1543512063))
 257
 258 (define-g-enum "GdkScrollDirection" scroll-direction ()
 259   (:up 0) (:down 1)
 260   (:left 2) (:right 3))
 261
 262 (define-g-enum "GdkVisibilityState" visibility-state ()
 263   (:unobscured 0)
 264   (:partial 1) (:fully-obscured 2))
 265
 266 (define-g-enum "GdkPropertyState" property-state ()
 267   :new-value :delete)
 268
 269 (define-g-flags "GdkWindowState" window-state ()
 270   (:withdrawn 1)
 271   (:iconified 2) (:maximized 4) (:sticky 8) (:fullscreen 16)
 272   (:above 32) (:below 64))
 273
 274 (define-g-enum "GdkSettingAction" setting-action ()
 275   (:new 0) (:changed 1)
 276   (:deleted 2))
 277
 278 (define-g-enum "GdkOwnerChange" owner-change ()
 279   (:new-owner 0)
 280   (:destroy 1) (:close 2))
 281
 282 (define-g-flags "GdkEventMask" event-mask ()
 283   (:exposure-mask 2)
 284   (:pointer-motion-mask 4) (:pointer-motion-hint-mask 8)
 285   (:button-motion-mask 16) (:button1-motion-mask 32)
 286   (:button2-motion-mask 64) (:button3-motion-mask 128)
 287   (:button-press-mask 256) (:button-release-mask 512)
 288   (:key-press-mask 1024) (:key-release-mask 2048)
 289   (:enter-notify-mask 4096) (:leave-notify-mask 8192)
 290   (:focus-change-mask 16384) (:structure-mask 32768)
 291   (:property-change-mask 65536)
 292   (:visibility-notify-mask 131072)
 293   (:proximity-in-mask 262144) (:proximity-out-mask 524288)
 294   (:substructure-mask 1048576) (:scroll-mask 2097152)
 295   (:all-events-mask 4194302))
 296
 297 (define-g-enum "GdkFontType" font-type () :font :fontset)
 298
 299 (define-g-enum "GdkGravity" gravity ()
 300   (:north-west 1)
 301   :north
 302   :north-east
 303   :west
 304   :center
 305   :east
 306   :south-west
 307   :south
 308   :south-east
 309   :static)
 310
 311 (define-g-enum "GdkWindowType"
 312     gdk-window-type
 313     (:export t :type-initializer "gdk_window_type_get_type")
 314   (:root 0)
 315   (:toplevel 1)
 316   (:child 2)
 317   (:dialog 3)
 318   (:temp 4)
 319   (:foreign 5)
 320   (:offscreen 6))
 321
 322 (define-g-enum "GdkWindowClass"
 323     gdk-window-class
 324     (:export t :type-initializer "gdk_window_class_get_type")
 325   (:input-output 0)
 326   (:input-only 1))
 327
 328 (define-g-flags "GdkWindowHints"
 329     gdk-window-hints
 330     (:export t :type-initializer "gdk_window_hints_get_type")
 331   (:pos 1)
 332   (:min-size 2)
 333   (:max-size 4)
 334   (:base-size 8)
 335   (:aspect 16)
 336   (:resize-inc 32)
 337   (:win-gravity 64)
 338   (:user-pos 128)
 339   (:user-size 256))
 340
 341 (define-g-enum "GdkWindowEdge"
 342     gdk-window-edge
 343     (:export t :type-initializer "gdk_window_edge_get_type")
 344   (:north-west 0)
 345   (:north 1)
 346   (:north-east 2)
 347   (:west 3)
 348   (:east 4)
 349   (:south-west 5)
 350   (:south 6)
 351   (:south-east 7))
 352
 353 (define-g-flags "GdkWindowAttributesType"
 354     gdk-window-attributes-type
 355     (:export t :type-initializer "gdk_window_attributes_type_get_type")
 356   (:title 2)
 357   (:x 4)
 358   (:y 8)
 359   (:cursor 16)
 360   (:colormap 32)
 361   (:visual 64)
 362   (:wmclass 128)
 363   (:noredir 256)
 364   (:type-hint 512))
 365
 366 (define-g-enum "GdkFilterReturn"
 367     gdk-filter-return
 368     (:export t :type-initializer "gdk_filter_return_get_type")
 369   (:continue 0)
 370   (:translate 1)
 371   (:remove 2))
 372
 373 (define-g-flags "GdkWMDecoration"
 374     gdk-w-m-decoration
 375     (:export t :type-initializer "gdk_wm_decoration_get_type")
 376   (:all 1)
 377   (:border 2)
 378   (:resizeh 4)
 379   (:title 8)
 380   (:menu 16)
 381   (:minimize 32)
 382   (:maximize 64))
 383
 384 (define-g-flags "GdkWMFunction"
 385     gdk-w-m-function
 386     (:export t :type-initializer "gdk_wm_function_get_type")
 387   (:all 1)
 388   (:resize 2)
 389   (:move 4)
 390   (:minimize 8)
 391   (:maximize 16)
 392   (:close 32))
 393
 394 (define-g-enum "GdkCursorType" cursor-type (:export t :type-initializer "gdk_cursor_type_get_type")
 395   (:x-cursor 0) (:arrow 2) (:based-arrow-down 4)
 396   (:based-arrow-up 6) (:boat 8) (:bogosity 10)
 397   (:bottom-left-corner 12) (:bottom-right-corner 14)
 398   (:bottom-side 16) (:bottom-tee 18) (:box-spiral 20)
 399   (:center-ptr 22) (:circle 24) (:clock 26)
 400   (:coffee-mug 28) (:cross 30) (:cross-reverse 32)
 401   (:crosshair 34) (:diamond-cross 36) (:dot 38)
 402   (:dotbox 40) (:double-arrow 42) (:draft-large 44)
 403   (:draft-small 46) (:draped-box 48) (:exchange 50)
 404   (:fleur 52) (:gobbler 54) (:gumby 56) (:hand1 58)
 405   (:hand2 60) (:heart 62) (:icon 64) (:iron-cross 66)
 406   (:left-ptr 68) (:left-side 70) (:left-tee 72)
 407   (:leftbutton 74) (:ll-angle 76) (:lr-angle 78)
 408   (:man 80) (:middlebutton 82) (:mouse 84)
 409   (:pencil 86) (:pirate 88) (:plus 90)
 410   (:question-arrow 92) (:right-ptr 94)
 411   (:right-side 96) (:right-tee 98) (:rightbutton 100)
 412   (:rtl-logo 102) (:sailboat 104)
 413   (:sb-down-arrow 106) (:sb-h-double-arrow 108)
 414   (:sb-left-arrow 110) (:sb-right-arrow 112)
 415   (:sb-up-arrow 114) (:sb-v-double-arrow 116)
 416   (:shuttle 118) (:sizing 120) (:spider 122)
 417   (:spraycan 124) (:star 126) (:target 128)
 418   (:tcross 130) (:top-left-arrow 132)
 419   (:top-left-corner 134) (:top-right-corner 136)
 420   (:top-side 138) (:top-tee 140) (:trek 142)
 421   (:ul-angle 144) (:umbrella 146) (:ur-angle 148)
 422   (:watch 150) (:xterm 152) (:last-cursor 153)
 423   (:blank-cursor -2) (:cursor-is-pixmap -1))
 424
 425 (define-g-enum "GdkImageType"
 426     gdk-image-type
 427     (:export t :type-initializer "gdk_image_type_get_type")
 428   (:normal 0)
 429   (:shared 1)
 430   (:fastest 2))
 431
 432 (define-g-enum "GdkPixbufAlphaMode"
 433     pixbuf-alpha-mode
 434     (:export t :type-initializer "gdk_pixbuf_alpha_mode_get_type")
 435   (:bilevel 0)
 436   (:full 1))
 437
 438 (define-g-enum "GdkInterpType"
 439     gdk-interp-type
 440     (:export t :type-initializer "gdk_interp_type_get_type")
 441   (:nearest 0)
 442   (:tiles 1)
 443   (:bilinear 2)
 444   (:hyper 3))
 445
 446 (define-g-enum "GdkPixbufRotation"
 447     gdk-pixbuf-rotation
 448     (:export t :type-initializer "gdk_pixbuf_rotation_get_type")
 449   (:none 0)
 450   (:counterclockwise 90)
 451   (:upsidedown 180)
 452   (:clockwise 270))
 453
 454 (define-g-enum "GdkColorspace" colorspace ()
 455   :rgb)
 456
 457 (define-g-enum "GdkAxisUse"
 458     axis-use
 459     (:export t :type-initializer "gdk_axis_use_get_type")
 460   (:ignore 0)
 461   (:x 1)
 462   (:y 2)
 463   (:pressure 3)
 464   (:xtilt 4)
 465   (:ytilt 5)
 466   (:wheel 6)
 467   (:last 7))
 468
 469 (define-g-enum "GdkDragProtocol"
 470     gdk-drag-protocol
 471     (:export t :type-initializer "gdk_drag_protocol_get_type")
 472   (:motif 0)
 473   (:xdnd 1)
 474   (:rootwin 2)
 475   (:none 3)
 476   (:win32-dropfiles 4)
 477   (:ole2 5)
 478   (:local 6))
 479
 480 (define-g-flags "GdkDragAction"
 481     gdk-drag-action
 482     (:export t :type-initializer "gdk_drag_action_get_type")
 483   (:default 1)
 484   (:copy 2)
 485   (:move 4)
 486   (:link 8)
 487   (:private 16)
 488   (:ask 32))
 489
 490 (define-g-enum "GdkInputSource"
 491     gdk-input-source
 492     (:export t :type-initializer "gdk_input_source_get_type")
 493   (:mouse 0)
 494   (:pen 1)
 495   (:eraser 2)
 496   (:cursor 3))
 497
 498 (define-g-enum "GdkInputMode"
 499     gdk-input-mode
 500     (:export t :type-initializer "gdk_input_mode_get_type")
 501   (:disabled 0)
 502   (:screen 1)
 503   (:window 2))
 504
 505 (define-g-enum "GdkExtensionMode"
 506     gdk-extension-mode
 507     (:export t :type-initializer "gdk_extension_mode_get_type")
 508   (:none 0)
 509   (:all 1)
 510   (:cursor 2))
 511
 512 (export 'cursor-type)
 513
 514 (define-g-boxed-cstruct geometry nil
 515   (min-width :int :initform 0)
 516   (min-height :int :initform 0)
 517   (max-width :int :initform 0)
 518   (max-height :int :initform 0)
 519   (base-width :int :initform 0)
 520   (base-height :int :initform 0)
 521   (width-increment :int :initform 0)
 522   (height-increment :int :initform 0)
 523   (min-aspect :double :initform 0.0d0)
 524   (max-aspect :double :initform 0.0d0)
 525   (gravity gravity :initform :north-west))
 526
 527 (export (boxed-related-symbols 'geometry))
 528
 529 (glib:at-init () (foreign-funcall-pointer (foreign-symbol-pointer "gdk_cursor_get_type") () :int))
 530
 531 (define-g-boxed-opaque cursor "GdkCursor" :alloc (error "GdkCursor can not be created from Lisp side"))
 532
 533 (export (boxed-related-symbols 'cursor))
 534
 535 (defctype gdk-atom :pointer)
 536
 537 (define-foreign-type gdk-atom-as-string-type ()
 538   ()
 539   (:actual-type :pointer)
 540   (:simple-parser gdk-atom-as-string))
 541
 542 (defmethod translate-from-foreign (value (type gdk-atom-as-string-type))
 543   (gdk-atom-name value))
 544
 545 (defmethod translate-to-foreign (value (type gdk-atom-as-string-type))
 546   (gdk-atom-intern value nil))
 547
 548 (defcfun gdk-region-new :pointer)
 549
 550 (define-g-boxed-opaque region nil :alloc (gdk-region-new))
 551
 552 (export (boxed-related-symbols 'region))
 553
 554 (define-g-boxed-cstruct point nil
 555   (x :int :initform 0)
 556   (y :int :initform 0))
 557
 558 (export (boxed-related-symbols 'point))
 559
 560 (define-g-boxed-cstruct span nil
 561   (x :int :initform 0)
 562   (y :int :initform 0)
 563   (width :int :initform 0))
 564
 565 (export (boxed-related-symbols 'span))
 566
 567 (define-g-boxed-cstruct segment nil
 568   (x1 :int :initform 0)
 569   (y1 :int :initform 0)
 570   (x2 :int :initform 0)
 571   (y2 :int :initform 0))
 572
 573 (export (boxed-related-symbols 'segment))
 574
 575 (define-g-boxed-cstruct trapezoid nil
 576   (y1 :double :initform 0d0)
 577   (x11 :double :initform 0d0)
 578   (x21 :double :initform 0d0)
 579   (y2 :double :initform 0d0)
 580   (x12 :double :initform 0d0)
 581   (x22 :double :initform 0d0))
 582
 583 (export (boxed-related-symbols 'trapezoid))
 584
 585 (define-g-boxed-opaque font "GdkFont"
 586   :alloc (error "GDK:FONT objects may not be allocated directly"))
 587
 588 (export (boxed-related-symbols 'font))
 589
 590 (define-g-boxed-cstruct color "GdkColor"
 591   (pixel :uint32 :initform 0)
 592   (red :uint16 :initform 0)
 593   (green :uint16 :initform 0)
 594   (blue :uint16 :initform 0))
 595
 596 (export (boxed-related-symbols 'color))
 597
 598 (define-g-object-class "GdkDrawable" drawable (:type-initializer "gdk_drawable_get_type")
 599   ((:cffi display drawable-display (g-object display)
 600           "gdk_drawable_get_display" nil)
 601    (:cffi screen drawable-screen (g-object screen)
 602           "gdk_drawable_get_screen" nil)
 603    (:cffi visual drawable-visual (g-object visual)
 604           "gdk_drawable_get_visual" nil)
 605    (:cffi colormap drawable-colormap (g-object colormap)
 606           "gdk_drawable_get_colormap" "gdk_drawable_set_colormap")
 607    (:cffi depth drawable-depth :int
 608           "gdk_drawable_get_depth" nil)
 609    (:cffi clip-region drawable-clip-region (g-boxed-foreign region :return)
 610           "gdk_drawable_get_clip_region" nil)
 611    (:cffi visible-region drawable-visible-region (g-boxed-foreign region :return)
 612           "gdk_drawable_get_visible_region" nil)))
 613
 614 (define-g-object-class "GdkWindow" gdk-window (:superclass drawable
 615                                                :type-initializer "gdk_window_object_get_type")
 616    (#+gtk-2.18
 617     (cursor gdk-window-cursor "cursor"
 618             "GdkCursor" t t)
 619     #-gtk-2.18
 620     (:cffi cursor gdk-window-cursor (g-boxed-foreign cursor :return)
 621            "gdk_window_get_cursor" "gdk_window_set_cursor")
 622     (:cffi window-type gdk-window-window-type gdk-window-type
 623            "gdk_window_get_window_type" nil)
 624     (:cffi is-destroyed gdk-window-is-destroyed :boolean
 625            "gdk_window_is_destroyed" nil)
 626     (:cffi is-visible gdk-window-is-visible :boolean
 627            "gdk_window_is_visible" nil)
 628     (:cffi is-viewable gdk-window-is-viewable :boolean
 629            "gdk_window_is_viewable" nil)
 630     (:cffi state gdk-window-state gdk-window-state
 631            "gdk_window_get_state" nil)
 632     (:cffi keep-above gdk-window-keep-above :boolean
 633            nil "gdk_window_set_keep_above")
 634     (:cffi keep-below gdk-window-keep-below :boolean
 635            nil "gdk_window_set_keep_below" )
 636     (:cffi opacity gdk-window-opacity :double
 637            nil "gdk_window_set_opacity")
 638     (:cffi composited gdk-window-composited :boolean
 639            nil "gdk_window_set_composited")
 640     (:cffi user-data gdk-window-user-data :pointer
 641            "gdk_window_get_user_data" "gdk_window_set_user_data")
 642     (:cffi override-redirect gdk-window-override-redirect :boolean
 643            nil "gdk_window_set_override_redirect")
 644     (:cffi accept-focus gdk-window-accept-focus :boolean
 645            nil "gdk_window_set_accept_focus")
 646     (:cffi focus-on-map gdk-window-focus-on-map :boolean
 647            nil "gdk_window_set_focus_on_map")
 648     (:cffi title gdk-window-title :string
 649            nil "gdk_window_set_title")
 650     (:cffi background gdk-window-background (g-boxed-foreign color)
 651            nil "gdk_window_set_background")
 652     (:cffi icon-list gdk-window-icon-list (glib:glist (g-object pixbuf))
 653            nil "gdk_window_set_icon_list")
 654     (:cffi modal-hint gdk-window-modal-hint :boolean
 655            nil "gdk_window_set_modal_hint")
 656     (:cffi type-hint gdk-window-type-hint gdk-window-type-hint
 657            "gdk_window_get_type_hint" "gdk_window_set_type_hint")
 658     (:cffi skip-taskbar-hint gdk-window-skip-taskbar-hint :boolean
 659            nil "gdk_window_set_skip_taskbar_hint")
 660     (:cffi skip-pager-hint gdk-window-skip-pager-hint :boolean
 661            nil "gdk_window_set_skip_pager_hint")
 662     (:cffi urgency-hint gdk-window-urgency-hint :boolean
 663            nil "gdk_window_set_urgency_hint")
 664     (:cffi parent gdk-window-parent (g-object gdk-window)
 665            "gdk_window_get_parent" nil)
 666     (:cffi toplevel gdk-window-get-toplevel (g-object gdk-window)
 667            "gdk_window_get_toplevel" nil)
 668     (:cffi children gdk-window-children (glib:glist (g-object gdk-window) :free-from-foreign nil)
 669            "gdk_window_peek_children" nil)
 670     (:cffi events gdk-window-events event-mask
 671            "gdk_window_get_events" "gdk_window_set_events")
 672     (:cffi icon-name gdk-window-icon-name :string
 673            nil "gdk_window_set_icon_name")
 674     (:cffi transient-for gdk-window-transient-for (g-object gdk-window)
 675            nil "gdk_window_set_transient_for")
 676     (:cffi role gdk-window-role :string
 677            nil "gdk_window_set_role")
 678     (:cffi startup-id gdk-window-startup-id :string
 679            nil "gdk_window_set_startup_id")
 680     (:cffi group gdk-window-group (g-object gdk-window)
 681            "gdk_window_get_group" "gdk_window_set_group")
 682     (:cffi decorations gdk-window-decorations gdk-w-m-decoration
 683            gdk-window-get-decorations "gdk_window_set_decorations")
 684     (:cffi functions gdk-window-functions gdk-w-m-function
 685            nil "gdk_window_set_functions")))
 686
 687
 688 ;;;FIXME: Check correct type
 689 #+ windows
 690 (defctype native-window :pointer)
 691 #- windows
 692 (defctype native-window :uint32)
 693
 694 (define-foreign-type fixed-array ()
 695   ((element-type :reader fixed-array-element-type :initarg :element-type :initform (error "Element type must be specified"))
 696    (array-size :reader fixed-array-array-size :initarg :array-size :initform (error "Array size must be specified")))
 697   (:actual-type :pointer)
 698   (:documentation
 699    "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)."))
 700
 701 (define-parse-method fixed-array (element-type array-size)
 702   (make-instance 'fixed-array :element-type element-type :array-size array-size))
 703
 704 (defmethod translate-from-foreign (ptr (type fixed-array))
 705   (when (not (null-pointer-p ptr))
 706     (let ((result (make-array (fixed-array-array-size type)))
 707           (el-type (fixed-array-element-type type)))
 708       (loop
 709          for i from 0 below (fixed-array-array-size type)
 710          do (setf (aref result i) (mem-aref ptr el-type i)))
 711       result)))
 712
 713 (defmethod translate-to-foreign (value (type fixed-array))
 714   (if (null value)
 715       (null-pointer)
 716       (foreign-alloc (fixed-array-element-type type) :count (length value) :initial-contents value)))
 717
 718 (defmethod free-translated-object (value (type fixed-array) param)
 719   (declare (ignore param))
 720   (unless (null-pointer-p value)
 721     (foreign-free value)))
 722
 723 (define-g-boxed-cstruct rectangle "GdkRectangle"
 724   (x :int :initform 0)
 725   (y :int :initform 0)
 726   (width :int :initform 0)
 727   (height :int :initform 0))
 728
 729 (export (boxed-related-symbols 'rectangle))
 730
 731 (define-g-boxed-variant-cstruct event "GdkEvent"
 732   (type event-type)
 733   (window (g-object gdk-window))
 734   (send-event (:boolean :int8))
 735   (:variant type
 736             ((:key-press :key-release) event-key
 737              (time :uint32)
 738              (state modifier-type)
 739              (keyval :uint)
 740              (length :int)
 741              (string (:string :free-from-foreign nil
 742                               :free-to-foreign nil))
 743              (hardware-keycode :uint16)
 744              (group :uint8)
 745              (is-modifier :uint))
 746             ((:button-press
 747               :2button-press
 748               :3button-press
 749               :button-release) event-button
 750              (time :uint32)
 751              (x :double)
 752              (y :double)
 753              (axes (fixed-array :double 7))
 754              (state :uint)
 755              (button :uint)
 756              (device (g-object gdk-device))
 757              (x-root :double)
 758              (y-root :double))
 759             ((:scroll) event-scroll
 760              (time :uint32)
 761              (x :double)
 762              (y :double)
 763              (state modifier-type)
 764              (direction scroll-direction)
 765              (device (g-object gdk-device))
 766              (x-root :double)
 767              (y-root :double))
 768             ((:motion-notify) event-motion
 769              (time :uint32)
 770              (x :double)
 771              (y :double)
 772              (axes (fixed-array :double 7))
 773              (state modifier-type)
 774              (is-hint :int16)
 775              (device (g-object gdk-device))
 776              (x-root :double)
 777              (y-root :double))
 778             ((:expose) event-expose
 779              (area rectangle :inline t)
 780              (region :pointer)
 781              (count :int))
 782             ((:visibility-notify) event-visibility
 783              (state visibility-state))
 784             ((:enter-notify :leave-notify) event-crossing
 785              (sub-window (g-object gdk-window))
 786              (time :uint32)
 787              (x :double)
 788              (y :double)
 789              (x-root :double)
 790              (y-root :double)
 791              (mode crossing-mode)
 792              (detail notify-type)
 793              (focus :boolean)
 794              (state :uint))
 795             ((:focus-change) event-focus
 796              (in :int16))
 797             ((:configure) event-configure
 798              (x :int)
 799              (y :int)
 800              (width :int)
 801              (height :int))
 802             ((:property-notify) event-property
 803              (atom gdk-atom)
 804              (time :uint32)
 805              (state property-state))
 806             ((:selection-clear
 807               :selection-notify
 808               :selection-request) event-selection
 809              (selection gdk-atom)
 810              (target gdk-atom)
 811              (property gdk-atom)
 812              (time :uint32)
 813              (requestor native-window))
 814             ((:drag-enter
 815               :drag-leave
 816               :drag-motion
 817               :drag-status
 818               :drop-start
 819               :drop-finished) event-dnd
 820              (drag-context (g-object drag-context))
 821              (time :uint32)
 822              (x-root :short)
 823              (y-root :short))
 824             ((:proximity-in
 825               :proximity-out) event-proximity
 826              (time :uint32)
 827              (device (g-object gdk-device)))
 828             ((:client-event) event-client
 829              (message-time gdk-atom)
 830              (data-format :ushort)
 831              (:variant data-format
 832                        (8 event-client-8
 833                           (data :uchar :count 20))
 834                        (16 event-client-16
 835                            (data :ushort :count 10))
 836                        (32 event-client-32
 837                            (data :ulong :count 5))))
 838             ((:no-expose) event-no-expose)
 839             ((:window-state) event-window-state
 840              (changed-mask window-state)
 841              (new-window-state window-state))
 842             ((:setting) event-setting
 843              (action setting-action)
 844              (name (:string :free-from-foreign nil :free-to-foreign nil)))
 845             ((:owner-change) event-owner-change
 846              (owner native-window)
 847              (reason owner-change)
 848              (selection gdk-atom)
 849              (time :uint32)
 850              (selection-time :uint32))
 851             ((:grab-broken) event-grab-broken
 852              (keyboard :boolean)
 853              (implicit :boolean)
 854              (grab-window (g-object gdk-window)))))
 855
 856 (export (boxed-related-symbols 'event))
 857
 858 (define-g-object-class "GdkDragContext" drag-context (:type-initializer "gdk_drag_context_get_type")
 859   ((:cffi protocol drag-context-protocol gdk-drag-protocol
 860           %gdk-drag-context-get-protocol nil)
 861    (:cffi is-source drag-context-is-source :boolean
 862           %gdk-drag-context-get-is-source nil)
 863    (:cffi source-window drag-context-source-window (g-object gdk-window)
 864           %gdk-drag-context-get-source-window nil)
 865    (:cffi dest-window drag-context-dest-window (g-object gdk-window)
 866           %gdk-drag-context-get-dest-window nil)
 867    (:cffi targets drag-context-targets (glib:glist gdk-atom-as-string :free-from-foreign nil)
 868           %gdk-drag-context-get-targets nil)
 869    (:cffi actions drag-context-actions gdk-drag-action
 870           %gdk-drag-context-get-actions nil)
 871    (:cffi suggested-action drag-context-suggested-action gdk-drag-action
 872           %gdk-drag-context-get-suggested-action nil)
 873    (:cffi action drag-context-action gdk-drag-action
 874           %gdk-drag-context-get-action nil)
 875    (:cffi start-time drag-context-start-time :uint32
 876           %gdk-drag-context-get-start-time nil)))
 877
 878 (define-g-object-class "GdkPixbuf" pixbuf (:type-initializer "gdk_pixbuf_get_type")
 879     ((colorspace pixbuf-colorspace "colorspace" "GdkColorspace" t nil)
 880      (n-channels pixbuf-n-channels "n-channels" "gint" t nil)
 881      (has-alpha pixbuf-has-alpha "has-alpha" "gboolean" t nil)
 882      (bits-per-sample pixbuf-bits-per-sample "bits-per-sample" "gint" t nil)
 883      (width pixbuf-width "width" "gint" t nil)
 884      (height pixbuf-height "height" "gint" t nil)
 885      (rowstride pixbuf-rowstride "rowstride" "gint" t nil)
 886      (pixels pixbuf-pixels "pixels" "gpointer" t nil)))
 887
 888 (define-g-object-class "GdkPixbufAnimation" pixbuf-animation (:type-initializer "gdk_pixbuf_animation_get_type")
 889     nil)
 890
 891 (define-g-object-class "GdkImage" gdk-image
 892   (:superclass g-object :export t :interfaces
 893                nil :type-initializer
 894                "gdk_image_get_type")
 895   ((:cffi colormap gdk-image-colormap (g-object gdk-colormap)
 896           "gdk_image_get_colormap" "gdk_image_set_colormap")))
 897
 898 (define-g-object-class "GdkDisplay" display (:type-initializer "gdk_display_get_type")
 899   ((:cffi name display-name (glib:g-string :free-from-foreign nil)
 900           "gdk_display_get_name" nil)
 901    (:cffi n-screens display-n-screens :int
 902           "gdk_display_get_n_screens" nil)
 903    (:cffi default-screen display-default-screen (g-object screen)
 904           "gdk_display_get_default_screen" nil)
 905    (:cffi devices display-devices (glib:glist g-object :free-from-foreign nil)
 906           "gdk_display_list_devices" nil)
 907    (:cffi supports-cursor-color display-supports-cursor-color :boolean
 908           "gdk_display_supports_cursor_color" nil)
 909    (:cffi supports-cursor-alpha display-supports-color-alpha :boolean
 910           "gdk_display_supports_cursor_alpha" nil)
 911    (:cffi default-cursor-size display-default-cursor-size :uint
 912           "gdk_display_get_default_cursor_size" nil)
 913    (:cffi default-group display-default-group (g-object gdk-window)
 914           "gdk_display_get_default_group" nil)
 915    (:cffi supports-selection-notification display-supports-selection-notification :boolean
 916           "gdk_display_supports_selection_notification" nil)
 917    (:cffi supports-clipboard-persistence display-supports-clipboard-persistence :boolean
 918           "gdk_display_supports_clipboard_persistence" nil)
 919    (:cffi supports-shapes display-supports-shapes :boolean
 920           "gdk_display_supports_shapes" nil)
 921    (:cffi supports-input-shapes display-supports-input-shapes :boolean
 922           "gdk_display_supports_input_shapes" nil)
 923    (:cffi supports-composite display-supports-composite :boolean
 924           "gdk_display_supports_composite" nil)
 925    (:cffi core-pointer display-core-pointer g-object
 926           "gdk_display_get_core_pointer" nil)))
 927
 928 (define-g-object-class "GdkDisplayManager" display-manager (:type-initializer "gdk_display_manager_get_type")
 929   ((default-display display-manager-default-display "default-display" "GdkDisplay" t t)
 930    (:cffi displays display-manager-displays (glib:gslist (g-object display) :free-from-foreign t)
 931           "gdk_display_manager_list_displays" nil)))
 932
 933 (define-g-object-class "GdkVisual" visual (:type-initializer "gdk_visual_get_type")
 934   ((:cffi screen visual-screen (g-object screen) "gdk_visual_get_screen" nil)
 935    (:cffi visual-type visual-visual-type visual-type gdk-visual-get-visual-type nil)
 936    (:cffi depth visual-depth :int gdk-visual-get-depth nil)
 937    (:cffi byte-order visual-byte-order byte-order gdk-visual-get-byte-order nil)
 938    (:cffi colormap-size visual-colormap-size :int gdk-visual-get-colormap-size nil)
 939    (:cffi bits-per-rgb visual-bits-per-rgb :int gdk-visual-get-bits-per-rgb nil)
 940    (:cffi red-mask visual-red-mask :uint32 gdk-visual-get-red-mask nil)
 941    (:cffi red-shift visual-red-shift :int gdk-visual-get-red-shift nil)
 942    (:cffi red-prec visual-red-prec :int gdk-visual-get-red-prec nil)
 943    (:cffi green-mask visual-green-mask :uint32 gdk-visual-get-green-mask nil)
 944    (:cffi green-shift visual-green-shift :int gdk-visual-get-green-shift nil)
 945    (:cffi green-prec visual-green-prec :int gdk-visual-get-green-prec nil)
 946    (:cffi blue-mask visual-blue-mask :uint32 gdk-visual-get-blue-mask nil)
 947    (:cffi blue-shift visual-blue-shift :int gdk-visual-get-blue-shift nil)
 948    (:cffi blue-prec visual-blue-prec :int gdk-visual-get-blue-prec nil)))
 949
 950 (define-g-object-class "GdkColormap" gdk-colormap
 951   (:superclass g-object :export t :interfaces
 952                nil :type-initializer
 953                "gdk_colormap_get_type")
 954   ((:cffi visual colormap-visual (g-object visual)
 955           "gdk_colormap_get_visual" nil)
 956    (:cffi screen colormap-screen (g-object screen)
 957           "gdk_colormap_get_screen" nil)))
 958
 959 (define-g-object-class "GdkScreen" screen (:type-initializer "gdk_screen_get_type")
 960   ((font-options screen-font-options "font-options" "gpointer" t t)
 961    (resolution screen-resolution "resolution" "gdouble" t t)
 962    (:cffi default-colormap screen-default-colormap (g-object colormap)
 963           "gdk_screen_get_default_colormap" "gdk_screen_set_default_colormap")
 964    (:cffi system-colormap screen-system-colormap (g-object colormap)
 965           "gdk_screen_get_system_colormap" nil)
 966    (:cffi system-visual screen-system-visual (g-object visual)
 967           "gdk_screen_get_system_visual" nil)
 968    (:cffi rgb-colormap screen-rgb-colormap (g-object colormap)
 969           "gdk_screen_get_rgb_colormap" nil)
 970    (:cffi rgb-visual screen-visual (g-object visual)
 971           "gdk_screen_get_rgb_visual" nil)
 972    (:cffi rgba-colormap screen-rgba-colormap (g-object colormap)
 973           "gdk_screen_get_rgba_colormap" nil)
 974    (:cffi rgba-visual screen-rgba-visual (g-object visual)
 975           "gdk_screen_get_rgba_visual" nil)
 976    (:cffi composited-p screen-composited-p :boolean
 977           "gdk_screen_is_composited" nil)
 978    (:cffi root-window screen-root-window (g-object gdk-window)
 979           "gdk_screen_get_root_window" nil)
 980    (:cffi display screen-display (g-object display)
 981           "gdk_screen_get_display" nil)
 982    (:cffi number screen-number :int
 983           "gdk_screen_get_number" nil)
 984    (:cffi width screen-widget :int
 985           "gdk_screen_get_width" nil)
 986    (:cffi height screen-height :int
 987           "gdk_screen_get_height" nil)
 988    (:cffi width-mm screen-width-mm :int
 989           "gdk_screen_get_width_mm" nil)
 990    (:cffi height-mm screen-height-mm :int
 991           "gdk_screen_get_height_mm" nil)
 992    (:cffi visuals screen-visuals (glib:glist (g-object visual) :free-from-foreign t)
 993           "gdk_screen_list_visuals" nil)
 994    (:cffi toplevel-windows screen-toplevel-windows (glib:glist (g-object gdk-window) :free-from-foreign t)
 995           "gdk_screen_get_toplevel_windows" nil)
 996    (:cffi display-name screen-display-name (glib:g-string :free-from-foreign t)
 997           "gdk_screen_make_display_name" nil)
 998    (:cffi n-monitors screen-n-monitors :int
 999           "gdk_screen_get_n_monitors" nil)
1000    (:cffi active-window screen-active-window (g-object gdk-window)
1001           "gdk_screen_get_active_window" nil)
1002    (:cffi window-stack screen-window-stack (glib:glist (g-object gdk-window) :free-from-foreign t)
1003           "gdk_screen_get_window_stack" nil)))
1004
1005 (define-g-object-class "GdkGC" graphics-context (:type-initializer "gdk_gc_get_type")
1006   ((:cffi screen graphics-context-screen (g-object screen)
1007           "gdk_gc_get_screen" nil)
1008    (:cffi foreground graphics-context-foreground (g-boxed-foreign color)
1009           nil "gdk_gc_set_foreground")
1010    (:cffi background graphics-context-background (g-boxed-foreign color)
1011           nil "gdk_gc_set_background")
1012    (:cffi rgb-fg-color graphics-context-rgb-fg-color (g-boxed-foreign color)
1013           nil "gdk_gc_set_rgb_fg_color")
1014    (:cffi rgb-bg-color graphics-context-rgb-bg-color (g-boxed-foreign color)
1015           nil "gdk_gc_set_rgb_bg_color")
1016    (:cffi font graphics-context-font (g-boxed-foreign font)
1017           nil "gdk_gc_set_font")
1018    (:cffi function graphics-context-function gdk-function
1019           nil "gdk_gc_set_function")
1020    (:cffi fill graphics-context-fill gdk-fill
1021           nil "gdk_gc_set_fill")
1022    (:cffi tile graphics-context-tile (g-object pixmap)
1023           nil "gdk_gc_set_tile")
1024    (:cffi stipple graphics-context-stipple (g-object pixmap)
1025           nil "gdk_gc_set_stipple")
1026    (:cffi clip-mask graphics-context-clip-mask (g-object pixmap)
1027           nil "gdk_gc_set_clip_mask")
1028    (:cffi clip-rectangle graphics-context-clip-rectangle (g-boxed-foreign rectangle)
1029           nil "gdk_gc_set_clip_rectangle")
1030    (:cffi clip-region graphics-context-clip-region (g-boxed-foreign region)
1031           nil "gdk_gc_set_clip_region")
1032    (:cffi subwindow graphics-context-subwindow subwindow-mode
1033           nil "gdk_gc_set_subwindow")
1034    (:cffi exposures graphics-context-exposures :boolean
1035           nil "gdk_gc_set_exposures")
1036    (:cffi colormap graphics-context-colormap (g-object colormap)
1037           "gdk_gc_get_colormap" "gdk_gc_set_colormap")))
1038
1039 (define-g-object-class "GdkPixmap" pixmap (:superclass drawable :type-initializer "gdk_pixmap_get_type") ())
1040
1041 (define-g-object-class "GdkKeymap" keymap
1042   (:superclass g-object :export t :interfaces
1043                nil :type-initializer "gdk_keymap_get_type")
1044   ((:cffi direction keymap-direction pango:pango-direction
1045           "gdk_keymap_get_direction" nil)
1046    (:cffi has-bidi-layouts keymap-has-bidi-layouts :boolean
1047           "gdk_keymap_have_bidi_layouts" nil)
1048    (:cffi caps-lock-state keymap-caps-lock-state :boolean
1049           "gdk_keymap_get_caps_lock_state" nil)))
1050
1051 (define-g-boxed-cstruct keymap-key nil
1052   (keycode :uint :initform 0)
1053   (group :int :initform 0)
1054   (level :int :initform 0))
1055
1056 (define-g-boxed-cstruct gdk-window-attr nil
1057   (title (:string :free-from-foreign nil) :initform nil)
1058   (event-mask event-mask :initform nil)
1059   (x :int :initform 0)
1060   (y :int :initform 0)
1061   (width :int :initform 0)
1062   (height :int :initform 0)
1063   (window-class gdk-window-class :initform :input-output)
1064   (visual (g-object visual) :initform nil)
1065   (colormap (g-object colormap) :initform nil)
1066   (window-type gdk-window-type :initform :toplevel)
1067   (cursor (g-object cursor) :initform nil)
1068   (wmclass-name (:string :free-from-foreign nil) :initform nil)
1069   (wmclass-class (:string :free-from-foreign nil) :initform nil)
1070   (override-redirect :boolean :initform nil)
1071   (type-hint gdk-window-type-hint :initform :normal))
1072
1073 (export (boxed-related-symbols 'gdk-window-attr))
1074
1075 (define-g-object-class "GdkDevice" gdk-device
1076   (:superclass g-object :export t :interfaces
1077                nil :type-initializer
1078                "gdk_device_get_type")
1079   ((:cffi name gdk-device-name :string
1080           %gdk-device-name nil)
1081    (:cffi source gdk-device-source gdk-input-source
1082           %gdk-device-source "gdk_device_set_source")
1083    (:cffi mode gdk-device-mode gdk-input-mode
1084           %gdk-device-mode gdk_device_set_mode)
1085    (:cffi has-cursor gdk-device-has-cursor :boolean
1086           %gdk-device-has-cursor nil)
1087    (:cffi n-axes gdk-device-n-axes :int
1088           %gdk-device-n-axes nil)
1089    (:cffi axes gdk-device-axes nil
1090           %gdk-device-axes nil)
1091    (:cffi keys gdk-device-keys nil
1092           %gdk-device-keys nil)
1093    (:cffi n-keys gdk-device-n-keys nil
1094           %gdk-device-n-keys nil)))
1095
1096 (define-g-object-class "GdkAppLaunchContext"
1097     gdk-app-launch-context
1098   (:superclass g-object :export t
1099                :interfaces nil :type-initializer
1100                "gdk_app_launch_context_get_type")
1101   ((:cffi display gdk-app-launch-context-display (g-object display)
1102           nil "gdk_app_launch_context_set_display")
1103    (:cffi screen gdk-app-launch-context-screen (g-object screen)
1104           nil "gdk_app_launch_context_set_screen")
1105    (:cffi desktop gdk-app-launch-context-desktop :int
1106           nil "gdk_app_launch_context_set_desktop")
1107    (:cffi timestamp gdk-app-launch-context-timestamp :uint32
1108           nil "gdk_app_launch_context_set_timestamp")
1109    (:cffi icon gdk-app-launch-context-icon g-object
1110           nil "gdk_app_launch_context_set_icon")
1111    (:cffi icon-name gdk-app-launch-context-icon-name :string
1112           nil "gdk_app_launch_context_set_icon_name"))) ;; TODO: GIcon