gdk/gdk.windows.lisp

   1 (in-package :gdk)
   2
   3 (defcfun gdk-window-new (g-object gdk-window :already-referenced)
   4   (parent (g-object gdk-window))
   5   (attributes (g-boxed-foreign gdk-window-attr))
   6   (attributes-mask gdk-window-attributes-type))
   7
   8 (export 'gdk-window-new)
   9
  10 (defcfun gdk-window-destroy :void
  11   (window (g-object gdk-window)))
  12
  13 (export 'gdk-window-destroy)
  14
  15 (defcfun (%gdk-window-at-pointer "gdk_window_at_pointer") (g-object gdk-window)
  16   (win-x (:pointer :int))
  17   (win-y (:pointer :int)))
  18
  19 (defun gdk-window-at-pointer ()
  20   (with-foreign-objects ((x :int) (y :int))
  21     (let ((window (%gdk-window-at-pointer x y)))
  22       (if window
  23           (values window (mem-ref x :int) (mem-ref y :int))
  24           (values nil nil nil)))))
  25
  26 (export 'get-window-at-pointe)
  27
  28 (defcfun gdk-window-show :void
  29   (window (g-object gdk-window)))
  30
  31 (export 'gdk-window-show)
  32
  33 (defcfun gdk-window-show-unraised :void
  34   (window (g-object gdk-window)))
  35
  36 (export 'gdk-window-show-unraised)
  37
  38 (defcfun gdk-window-hide :void
  39   (window (g-object gdk-window)))
  40
  41 (export 'gdk-window-hide)
  42
  43 (defcfun gdk-window-withdraw :void
  44   (window (g-object gdk-window)))
  45
  46 (export 'gdk-window-withdraw)
  47
  48 (defcfun gdk-window-iconify :void
  49   (window (g-object gdk-window)))
  50
  51 (export 'gdk-window-iconify)
  52
  53 (defcfun gdk-window-deiconify :void
  54   (window (g-object gdk-window)))
  55
  56 (export 'gdk-window-deiconify)
  57
  58 (defcfun gdk-window-stick :void
  59   (window (g-object gdk-window)))
  60
  61 (export 'gdk-window-stick)
  62
  63 (defcfun gdk-window-unstick :void
  64   (window (g-object gdk-window)))
  65
  66 (export 'gdk-window-unstick)
  67
  68 (defcfun gdk-window-maximize :void
  69   (window (g-object gdk-window)))
  70
  71 (export 'gdk-window-maximize)
  72
  73 (defcfun gdk-window-unmaximize :void
  74   (window (g-object gdk-window)))
  75
  76 (export 'gdk-window-unmaximize)
  77
  78 (defcfun gdk-window-fullscreen :void
  79   (window (g-object gdk-window)))
  80
  81 (export 'gdk-window-unfullscreen)
  82
  83 (defcfun gdk-window-move :void
  84   (window (g-object gdk-window))
  85   (x :int)
  86   (y :int))
  87
  88 (export 'gdk-window-move)
  89
  90 (defcfun gdk-window-resize :void
  91   (window (g-object gdk-window))
  92   (width :int)
  93   (height :int))
  94
  95 (export 'gdk-window-resize)
  96
  97 (defcfun gdk-window-move-resize :void
  98   (window (g-object gdk-window))
  99   (x :int)
 100   (y :int)
 101   (width :int)
 102   (height :int))
 103
 104 (export 'gdk-window-move-resize)
 105
 106 (defcfun gdk-window-scroll :void
 107   (window (g-object gdk-window))
 108   (dx :int)
 109   (dy :int))
 110
 111 (export 'gdk-window-scroll)
 112
 113 (defcfun gdk-window-move-region :void
 114   (window (g-object gdk-window))
 115   (region (g-boxed-foreign region))
 116   (dx :int)
 117   (dy :int))
 118
 119 (export 'gdk-window-move-region)
 120
 121 ;; TODO: (because of >= 2.18)
 122 ;; void                gdk_window_flush                    (GdkWindow *window);
 123 ;; gboolean            gdk_window_ensure_native            (GdkWindow *window);
 124
 125 (defcfun gdk-window-reparent :void
 126   (window (g-object gdk-window))
 127   (new-parent (g-object gdk-window))
 128   (x :int)
 129   (y :int))
 130
 131 (export 'gdk-window-reparent)
 132
 133 (defcfun gdk-window-clear :void
 134   (window (g-object gdk-window)))
 135
 136 (export 'gdk-window-clear)
 137
 138 (defcfun gdk-window-clear-area :void
 139   (window (g-object gdk-window))
 140   (x :int)
 141   (y :int)
 142   (width :int)
 143   (height :int))
 144
 145 (export 'gdk-window-clear-area)
 146
 147 (defcfun gdk-window-clear-area-e :void
 148   (window (g-object gdk-window))
 149   (x :int)
 150   (y :int)
 151   (width :int)
 152   (height :int))
 153
 154 (export 'gdk-window-clear-area-e)
 155
 156 (defcfun gdk-window-raise :void
 157   (window (g-object gdk-window)))
 158
 159 (export 'gdk-window-raise)
 160
 161 (defcfun gdk-window-lower :void
 162   (window (g-object gdk-window)))
 163
 164 (export 'gdk-window-lower)
 165
 166 #|
 167 (defcfun gdk-window-restack :void
 168   (window (g-object gdk-window))
 169   (sibling (g-object gdk-window))
 170   (above :boolean))
 171
 172 (export 'gdk-window-restack)
 173 |#
 174
 175 (defcfun gdk-window-focus :void
 176   (window (g-object gdk-window))
 177   (timestamp :uint32))
 178
 179 (export 'gdk-window-focus)
 180
 181 (defcfun gdk-window-register-dnd :void
 182   (window (g-object gdk-window)))
 183
 184 (export 'gdk-window-register-dnd)
 185
 186 (defcfun gdk-window-begin-resize-drag :void
 187   (window (g-object gdk-window))
 188   (edge gdk-window-edge)
 189   (button :int)
 190   (root-x :int)
 191   (root-y :int)
 192   (timestamp :uint32))
 193
 194 (export 'gdk-window-begin-resize-drag)
 195
 196 (defcfun gdk-window-begin-move-drag :void
 197   (window (g-object gdk-window))
 198   (button :int)
 199   (root-x :int)
 200   (root-y :int)
 201   (timestamp :uint32))
 202
 203 (export 'gdk-window-begin-move-drag)
 204
 205 (defcfun gdk_window_constrain_size :void
 206   (geometry (g-boxed-foreign geometry))
 207   (flags gdk-window-hints)
 208   (width :int)
 209   (height :int)
 210   (new-width (:pointer :int))
 211   (new-height (:pointer :int)))
 212
 213 (defun gdk-window-constrain-size (geometry flags width height)
 214   (with-foreign-objects ((new-width :int) (new-height :int))
 215     (gdk_window_constrain_size geometry flags width height new-width new-height)
 216     (values (mem-ref new-width :int)
 217             (mem-ref new-height :int))))
 218
 219 (export 'gdk-window-constrain-size)
 220
 221 (defcfun gdk-window-beep :void
 222   (window (g-object gkd-window)))
 223
 224 (export 'gdk-window-beep)
 225
 226 (defcfun gdk-window-begin-paint-rect :void
 227   (window (g-object gdk-window))
 228   (rectangle (g-boxed-foreign rectangle)))
 229
 230 (export 'gdk-window-begin-paint-rect)
 231
 232 (defcfun gdk-window-begin-paint-region :void
 233   (window (g-object gdk-window))
 234   (region (g-boxed-foreign region)))
 235
 236 (export 'gdk-window-begin-paint-region)
 237
 238 (defcfun gdk-window-invalidate-rect :void
 239   (window (g-object gdk-window))
 240   (rectangle (g-boxed-foreign rectangle))
 241   (invalidate-children :boolean))
 242
 243 (export 'gdk-window-invalidate-rect)
 244
 245 (defcfun gdk-window-invalidate-region :void
 246   (window (g-object gdk-window))
 247   (region (g-boxed-foreign region))
 248   (invalidate-children :boolean))
 249
 250 (export 'gdk-window-invalidate-region)
 251
 252 (defcfun gdk_window_invalidate_maybe_recurse :void
 253   (window (g-object gdk-window))
 254   (region (g-boxed-foreign region))
 255   (recurse-p-fn :pointer)
 256   (user-data :pointer))
 257
 258 (defcallback gdk-window-invalidate-maybe-recurse-cb :boolean
 259   ((window (g-object gdk-window))
 260    (user-data :pointer))
 261   (let ((fn (stable-pointer-value user-data)))
 262     (funcall fn window)))
 263
 264 (defun gdk-window-invalidate-maybe-recurse (window region fn)
 265   (with-stable-pointer (ptr fn)
 266     (gdk_window_invalidate_maybe_recurse window region (callback gdk-window-invalidate-maybe-recurse-cb) ptr)))
 267
 268 (export 'gdk-window-invalidate-maybe-recurse)
 269
 270 (defcfun gdk-window-get-update-area (g-boxed-foreign region :return)
 271   (window (g-object gdk-window)))
 272
 273 (export 'gdk-window-get-update-area)
 274
 275 (defcfun gdk-window-freeze-updates :void
 276   (window (g-object gdk-window)))
 277
 278 (export 'gdk-window-freeze-updates)
 279
 280 (defcfun gdk-window-thaw-updates :void
 281   (window (g-object gdk-window)))
 282
 283 (export 'gdk-window-thaw-updates)
 284
 285 (defcfun gdk-window-process-all-updates :void)
 286
 287 (export 'gdk-window-process-all-updates)
 288
 289 (defcfun gdk-window-process-updates :void
 290   (window (g-object gdk-window))
 291   (update-children :boolean))
 292
 293 (export 'gdk-window-process-updates)
 294
 295 (defcfun gdk-window-set-debug-updates :void
 296   (settings :boolean))
 297
 298 (export 'gdk-window-set-debug-updates)
 299
 300 (defcfun gdk_window_get_internal_paint_info :void
 301   (window (g-object gdk-window))
 302   (real-drawable (:pointer (g-object drawable)))
 303   (x-offset (:pointer :int))
 304   (y-offset (:pointer :int)))
 305
 306 (defun gdk-window-get-internal-paint-info (window)
 307   (with-foreign-objects ((real-drawable :pointer) (x-offset :int) (y-offset :int))
 308     (gdk_window_get_internal_paint_info window real-drawable x-offset y-offset)
 309     (values (mem-ref real-drawable '(g-object drawable))
 310             (mem-ref x-offset :int)
 311             (mem-ref y-offset :int))))
 312
 313 (export 'gdk-window-get-internal-paint-info)
 314
 315 (defcfun gdk-window-enable-synchronized-configure :void
 316   (window (g-object gdk-window)))
 317
 318 (export 'gdk-window-enable-synchronized-configure)
 319
 320 (defcfun gdk-window-configure-finished :void
 321   (window (g-object gdk-window)))
 322
 323 (export 'gdk-window-configure-finished)
 324
 325 ;; void                gdk_window_add_filter               (GdkWindow *window,
 326 ;;                                                          GdkFilterFunc function,
 327 ;;                                                          gpointer data);
 328 ;; void                gdk_window_remove_filter            (GdkWindow *window,
 329 ;;                                                          GdkFilterFunc function,
 330 ;;                                                          gpointer data);
 331 ;; GdkFilterReturn     (*GdkFilterFunc)                    (GdkXEvent *xevent,
 332 ;;                                                          GdkEvent *event,
 333 ;;                                                          gpointer data);
 334
 335 (defcfun gdk-window-shape-combine-mask :void
 336   (window (g-object window))
 337   (mask (g-object pixmap))
 338   (x :int)
 339   (y :int))
 340
 341 (export 'gdk-window-shape-combine-mask)
 342
 343 (defcfun gdk-window-shape-combine-region :void
 344   (window (g-object window))
 345   (region (g-boxed-foreign region))
 346   (offset-x :int)
 347   (offset-y :int))
 348
 349 (export 'gdk-window-shape-combine-region)
 350
 351 (defcfun gdk-window-set-child-shapes :void
 352   (window (g-object gdk-window)))
 353
 354 (export 'gdk-window-set-child-shapes)
 355
 356 (defcfun gdk-window-merge-child-shapes :void
 357   (window (g-object gdk-window)))
 358
 359 (export 'gdk-window-merge-child-shapes)
 360
 361 (defcfun gdk-window-input-shape-combine-mask :void
 362   (window (g-object gdk-window))
 363   (mask (g-object pixmap))
 364   (x :int)
 365   (y :int))
 366
 367 (export 'gdk-window-input-shape-combine-mask)
 368
 369 (defcfun gdk-window-input-shape-combine-region :void
 370   (window (g-object gdk-window))
 371   (shape-region (g-boxed-foreign region))
 372   (offset-x :int)
 373   (offset-y :int))
 374
 375 (export 'gdk-window-input-shape-combine-region)
 376
 377 (defcfun gdk-window-set-child-input-shapes :void
 378   (window (g-object gdk-window)))
 379
 380 (export 'gdk-window-set-chid-input-shapes)
 381
 382 (defcfun gdk-window-merge-child-input-shapes :void
 383   (window (g-object gdk-window)))
 384
 385 (export 'gdk-window-merge-child-input-shapes)
 386
 387 (defcfun gdk-window-set-static-gravities :boolean
 388   (window (g-object gdk-window))
 389   (use-static :boolean))
 390
 391 (export 'gdk-window-set-static-gravities)
 392
 393 ;; ignored:
 394 ;; void                gdk_window_set_hints                (GdkWindow *window,
 395 ;;                                                          gint x,
 396 ;;                                                          gint y,
 397 ;;                                                          gint min_width,
 398 ;;                                                          gint min_height,
 399 ;;                                                          gint max_width,
 400 ;;                                                          gint max_height,
 401 ;;                                                          gint flags);
 402
 403 (defcfun gdk-window-set-back-pixmap :void
 404   (window (g-object gdk-window))
 405   (pixmap (g-object pixmap))
 406   (parent-relative :boolean))
 407
 408 (export 'gdk-window-set-back-pixmap)
 409
 410 (defcfun gdk_window_get_geometry :void
 411   (window (g-object gdk-window))
 412   (x (:pointer :int))
 413   (y (:pointer :int))
 414   (width (:pointer :int))
 415   (height (:pointer :int))
 416   (depth (:pointer :int)))
 417
 418 (defun gdk-window-get-geometry (window)
 419   (with-foreign-objects ((x :int) (y :int) (width :int) (height :int) (depth :int))
 420     (gdk_window_get_geometry window x y width height depth)
 421     (values (mem-ref x :int)
 422             (mem-ref y :int)
 423             (mem-ref width :int)
 424             (mem-ref height :int)
 425             (mem-ref depth :int))))
 426
 427 (export 'gdk-window-get-geometry)
 428
 429 (defcfun gdk-window-set-geometry-hints :void
 430   (window (g-object gdk-window))
 431   (geometry (g-boxed-foreign geometry))
 432   (geometry-mask gdk-window-hints))
 433
 434 (export 'gdk-window-set-geometry-hints)
 435
 436 (defcfun gdk_window_get_position :void
 437   (window (g-object gdk-window))
 438   (x (:pointer :int))
 439   (y (:pointer :int)))
 440
 441 (defun gdk-window-get-position (window)
 442   (with-foreign-objects ((x :int) (y :int))
 443     (gdk_window_get_position window x y)
 444     (values (mem-ref x :int) (mem-ref y :int))))
 445
 446 (export 'gdk-window-get-position)
 447
 448 (defcfun gdk_window_get_root_origin :void
 449   (window (g-object gdk-window))
 450   (x (:pointer :int))
 451   (y (:pointer :int)))
 452
 453 (defun gdk-window-get-root-origin (window)
 454   (with-foreign-objects ((x :int) (y :int))
 455     (gdk_window_get_root_origin window x y)
 456     (values (mem-ref x :int) (mem-ref y :int))))
 457
 458 (export 'gdk-window-get-root-origin)
 459
 460 (defcfun gdk_window_get_frame_extents :void
 461   (window (g-object gdk-window))
 462   (rectangle (g-boxed-foreign rectangle)))
 463
 464 (defun gdk-window-get-frame-extents (window)
 465   (let ((rectangle (make-rectangle)))
 466     (gdk_window_get_frame_extents window rectangle)
 467     rectangle))
 468
 469 (export 'gdk-window-get-frame-extents)
 470
 471 (defcfun gdk_window_get_origin :int
 472   (window (g-object gdk-window))
 473   (x (:pointer :int))
 474   (y (:pointer :int)))
 475
 476 (defun gdk-window-get-origin (window)
 477   (with-foreign-objects ((x :int) (y :int))
 478     (gdk_window_get_origin window x y)
 479     (values (mem-ref x :int) (mem-ref y :int))))
 480
 481 (export 'gdk-window-get-origin)
 482
 483 ;; ignored
 484 ;; gboolean            gdk_window_get_deskrelative_origin  (GdkWindow *window,
 485 ;;                                                          gint *x,
 486 ;;                                                          gint *y);
 487
 488 #|
 489 (defcfun gdk_window_get_root_coords :void
 490   (window (g-object gdk-window))
 491   (x :int)
 492   (y :int)
 493   (root-x :int)
 494   (root-y :int))
 495
 496 (defun gdk-window-get-root-coords (window x y)
 497   (with-foreign-objects ((root-x :int) (root-y :int))
 498     (gdk_window_get_root_coords window x y root-x root-y)
 499     (values (mem-ref root-x :int) (mem-ref root-y :int))))
 500 |#
 501
 502 (defcfun gdk_window_get_pointer (g-object gdk-window)
 503   (window (g-object gdk-window))
 504   (x (:pointer :int))
 505   (y (:pointer :int))
 506   (mask (:pointer modifier-type)))
 507
 508 (defun gdk-window-get-pointer (window)
 509   (with-foreign-objects ((x :int) (y :int) (mask 'modifier-type))
 510     (let ((w (gdk_window_get_pointer window x y mask)))
 511       (values w
 512               (mem-ref x :int)
 513               (mem-ref y :int)
 514               (mem-ref mask 'modifier-type)))))
 515
 516 (export 'gdk-window-get-pointer)
 517
 518 (defcfun gdk_window_get_decorations :boolean
 519   (window (g-object gdk-window))
 520   (decorations (:pointer gdk-w-m-decoration)))
 521
 522 (defun gdk-window-get-decorations (window)
 523   (with-foreign-object (decorations 'gdk-w-m-decoration)
 524     (gdk_window_get_decorations window decorations)
 525     (mem-ref decorations 'gdk-w-m-decoration)))
 526
 527 (defcfun gdk-window-set-icon :void
 528   (window (g-object gdk-window))
 529   (icon-window (g-object gdk-window))
 530   (pixmap (g-object pixmap))
 531   (mask (g-object mask)))
 532
 533 (export 'gdk-window-set-icon)
 534
 535 ;; ignored
 536 ;; GList *             gdk_window_get_toplevels            (void);
 537
 538 (defcfun gdk-get-default-root-window (g-object gdk-window))
 539
 540 (export 'gdk-get-default-root-window)
 541
 542 ;; TODO
 543 ;;                     GdkPointerHooks;
 544 ;; GdkPointerHooks *   gdk_set_pointer_hooks               (const GdkPointerHooks *new_hooks);
 545
 546 #|
 547 (defcfun gdk-offscreen-window-get-pixmap (g-object pixmap)
 548   (window (g-object gdk-window)))
 549
 550 (export 'gdk-offscreen-window-get-pixmap)
 551
 552 (defcfun (gdk-offscreen-window-embedder "gdk_offscreen_window_get_embedder") (g-object gdk-window)
 553   (window (g-object gdk-window)))
 554
 555 (defcfun gdk_offscreen_window_set_embedder :void
 556   (window (g-object gdk-window))
 557   (embedder (g-object gdk-window)))
 558
 559 (defun (setf gdk-offscreen-window-embedder) (new-value window)
 560   (gdk_offscreen_window_set_embedder window new-value))
 561
 562 (export 'gdk-offscreen-window-embedder)
 563
 564 (defcfun gdk-window-geometry-changed :void
 565   (window (g-object gdk-window)))
 566
 567 (export 'gdk-window-geometry-changed)
 568 |#
 569
 570 (defcfun gdk-window-redirect-to-drawable :void
 571   (window (g-object gdk-window))
 572   (drawable (g-object drawable))
 573   (src-x :int)
 574   (src-y :int)
 575   (dest-x :int)
 576   (dest-y :int)
 577   (width :int)
 578   (height :int))
 579
 580 (export 'gdk-window-redirect-to-drawable)
 581
 582 (defcfun gdk-window-remove-redirection :void
 583   (window (g-object gdk-window)))
 584
 585 (export 'gdk-window-remove-redirection)