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-object-class "GdkDisplay" display ()
  12   ((:cffi name display-name (glib:g-string :free-from-foreign nil)
  13           "gdk_display_get_name" nil)
  14    (:cffi n-screens display-n-screens :int
  15           "gdk_display_get_n_screens" nil)
  16    (:cffi default-screen display-default-screen (g-object screen)
  17           "gdk_display_get_default_screen" nil)
  18    (:cffi devices display-devices (glib:glist g-object :free-from-foreign nil)
  19           "gdk_display_list_devices" nil)
  20    (:cffi supports-cursor-color display-supports-cursor-color :boolean
  21           "gdk_display_supports_cursor_color" nil)
  22    (:cffi supports-cursor-alpha display-supports-color-alpha :boolean
  23           "gdk_display_supports_cursor_alpha" nil)
  24    (:cffi default-cursor-size display-default-cursor-size :uint
  25           "gdk_display_get_default_cursor_size" nil)
  26    (:cffi default-group display-default-group (g-object gdk-window)
  27           "gdk_display_get_default_group" nil)
  28    (:cffi supports-selection-notification display-supports-selection-notification :boolean
  29           "gdk_display_supports_selection_notification" nil)
  30    (:cffi supports-clipboard-persistence display-supports-clipboard-persistence :boolean
  31           "gdk_display_supports_clipboard_persistence" nil)
  32    (:cffi supports-shapes display-supports-shapes :boolean
  33           "gdk_display_supports_shapes" nil)
  34    (:cffi supports-input-shapes display-supports-input-shapes :boolean
  35           "gdk_display_supports_input_shapes" nil)
  36    (:cffi supports-composite display-supports-composite :boolean
  37           "gdk_display_supports_composite" nil)
  38    (:cffi core-pointer display-core-pointer g-object
  39           "gdk_display_get_core_pointer" nil)))
  40
  41 ;gdk_display_get_screen
  42
  43 (define-g-object-class "GdkDisplayManager" display-manager ()
  44   ((default-display display-manager-default-display "default-display" "GdkDisplay" t t)
  45    (:cffi displays display-manager-displays (glib:gslist (g-object display) :free-from-foreign t)
  46           "gdk_display_manager_list_displays" nil)))
  47
  48 (define-g-object-class "GdkVisual" visual () ())
  49
  50 (define-g-object-class "GdkColormap" gdk-colormap
  51   (:superclass g-object :export t :interfaces
  52                nil :type-initializer
  53                "gdk_colormap_get_type")
  54   nil)
  55
  56 (define-g-object-class "GdkScreen" screen ()
  57   ((font-options screen-font-options "font-options" "gpointer" t t)
  58    (resolution screen-resolution "resolution" "gdouble" t t)
  59    (:cffi default-colormap screen-default-colormap (g-object colormap)
  60           "gdk_screen_get_default_colormap" "gdk_screen_set_default_colormap")
  61    (:cffi system-colormap screen-system-colormap (g-object colormap)
  62           "gdk_screen_get_system_colormap" nil)
  63    (:cffi system-visual screen-system-visual (g-object visual)
  64           "gdk_screen_get_system_visual" nil)
  65    (:cffi rgb-colormap screen-rgb-colormap (g-object colormap)
  66           "gdk_screen_get_rgb_colormap" nil)
  67    (:cffi rgb-visual screen-visual (g-object visual)
  68           "gdk_screen_get_rgb_visual" nil)
  69    (:cffi rgba-colormap screen-rgba-colormap (g-object colormap)
  70           "gdk_screen_get_rgba_colormap" nil)
  71    (:cffi rgba-visual screen-rgba-visual (g-object visual)
  72           "gdk_screen_get_rgba_visual" nil)
  73    (:cffi composited-p screen-composited-p :boolean
  74           "gdk_screen_is_composited" nil)
  75    (:cffi root-window screen-root-window (g-object gdk-window)
  76           "gdk_screen_get_root_window" nil)
  77    (:cffi display screen-display (g-object display)
  78           "gdk_screen_get_display" nil)
  79    (:cffi number screen-number :int
  80           "gdk_screen_get_number" nil)
  81    (:cffi width screen-widget :int
  82           "gdk_screen_get_width" nil)
  83    (:cffi height screen-height :int
  84           "gdk_screen_get_height" nil)
  85    (:cffi width-mm screen-width-mm :int
  86           "gdk_screen_get_width_mm" nil)
  87    (:cffi height-mm screen-height-mm :int
  88           "gdk_screen_get_height_mm" nil)
  89    (:cffi visuals screen-visuals (glib:glist (g-object visual) :free-from-foreign t)
  90           "gdk_screen_list_visuals" nil)
  91    (:cffi toplevel-windows screen-toplevel-windows (glib:glist (g-object gdk-window) :free-from-foreign t)
  92           "gdk_screen_get_toplevel_windows" nil)
  93    (:cffi display-name screen-display-name (glib:g-string :free-from-foreign t)
  94           "gdk_screen_make_display_name" nil)
  95    (:cffi n-monitors screen-n-monitors :int
  96           "gdk_screen_get_n_monitors" nil)
  97    (:cffi active-window screen-active-window (g-object gdk-window)
  98           "gdk_screen_get_active_window" nil)
  99    (:cffi window-stack screen-window-stack (glib:glist (g-object gdk-window) :free-from-foreign t)
 100           "gdk_screen_get_window_stack" nil)))
 101
 102 ;gdk_screen_get_monitor_geometry
 103 ;gdk_screen_get_monitor_at_point
 104 ;gdk_screen_get_monitor_at_window
 105 ;gdk_screen_get_monitor_height_mm
 106 ;gdk_screen_get_monitor_width_mm
 107 ;gdk_screen_get_monitor_plug_name
 108 ;gdk_screen_broadcast_client_message
 109 ;gdk_screen_get_setting
 110 ;gdk_spawn_on_screen
 111 ;gdk_spawn_on_screen_with_pipes
 112 ;gdk_spawn_command_line_on_screen
 113
 114 (define-g-object-class "GdkGC" graphics-context () ())
 115
 116 (define-g-object-class "GdkDrawable" drawable () ())
 117
 118 (define-g-object-class "GdkPixmap" pixmap (:superclass drawable) ())
 119
 120 (define-g-object-class "GdkWindow" gdk-window (:superclass drawable) ())
 121
 122 (define-g-object-class "GdkKeymap" keymap () ())
 123
 124 (define-g-enum "GdkEventType" event-type ()
 125   (:nothing -1) (:delete 0)
 126   (:destroy 1) (:expose 2) (:motion-notify 3)
 127   (:button-press 4) (:2button-press 5) (:3button-press 6)
 128   (:button-release 7) (:key-press 8) (:key-release 9)
 129   (:enter-notify 10) (:leave-notify 11) (:focus-change 12)
 130   (:configure 13) (:map 14) (:unmap 15) (:property-notify 16)
 131   (:selection-clear 17) (:selection-request 18)
 132   (:selection-notify 19) (:proximity-in 20)
 133   (:proximity-out 21) (:drag-enter 22) (:drag-leave 23)
 134   (:drag-motion 24) (:drag-status 25) (:drop-start 26)
 135   (:drop-finished 27) (:client-event 28)
 136   (:visibility-notify 29) (:no-expose 30) (:scroll 31)
 137   (:window-state 32) (:setting 33) (:owner-change 34)
 138   (:grab-broken 35) (:damage 36))
 139
 140 (define-g-flags "GdkEventMask" gdk-event-mask (:export t :type-initializer "gdk_event_mask_get_type")
 141   (:exposure-mask 2) (:pointer-motion-mask 4)
 142   (:pointer-motion-hint-mask 8) (:button-motion-mask 16)
 143   (:button1-motion-mask 32) (:button2-motion-mask 64)
 144   (:button3-motion-mask 128) (:button-press-mask 256)
 145   (:button-release-mask 512) (:key-press-mask 1024)
 146   (:key-release-mask 2048) (:enter-notify-mask 4096)
 147   (:leave-notify-mask 8192) (:focus-change-mask 16384)
 148   (:structure-mask 32768) (:property-change-mask 65536)
 149   (:visibility-notify-mask 131072)
 150   (:proximity-in-mask 262144) (:proximity-out-mask 524288)
 151   (:substructure-mask 1048576) (:scroll-mask 2097152)
 152   (:all-events-mask 4194302))
 153
 154 (define-g-enum "GdkExtensionMode" gdk-extension-mode (:export t :type-initializer "gdk_extension_mode_get_type")
 155   (:none 0) (:all 1) (:cursor 2))
 156
 157 (define-g-enum "GdkWindowTypeHint" gdk-window-type-hint (:export t :type-initializer "gdk_window_type_hint_get_type")
 158   (:normal 0) (:dialog 1) (:menu 2) (:toolbar 3)
 159   (:splashscreen 4) (:utility 5) (:dock 6) (:desktop 7)
 160   (:dropdown-menu 8) (:popup-menu 9) (:tooltip 10)
 161   (:notification 11) (:combo 12) (:dnd 13))
 162
 163 (define-g-flags "GdkModifierType" modifier-type ()
 164   (:shift-mask 1) (:lock-mask 2) (:control-mask 4)
 165   (:mod1-mask 8) (:mod2-mask 16) (:mod3-mask 32)
 166   (:mod4-mask 64) (:mod5-mask 128)
 167   (:button1-mask 256) (:button2-mask 512)
 168   (:button3-mask 1024) (:button4-mask 2048)
 169   (:button5-mask 4096) (:super-mask 67108864)
 170   (:hyper-mask 134217728) (:meta-mask 268435456)
 171   (:release-mask 1073741824)
 172   (:modifier-mask 1543512063))
 173
 174 (define-g-enum "GdkScrollDirection" scroll-direction ()
 175   (:up 0) (:down 1)
 176   (:left 2) (:right 3))
 177
 178 (define-g-enum "GdkVisibilityState" visibility-state ()
 179   (:unobscured 0)
 180   (:partial 1) (:fully-obscured 2))
 181
 182 (define-g-enum "GdkPropertyState" property-state ()
 183   :new-value :delete)
 184
 185 (define-g-flags "GdkWindowState" window-state ()
 186   (:withdrawn 1)
 187   (:iconified 2) (:maximized 4) (:sticky 8) (:fullscreen 16)
 188   (:above 32) (:below 64))
 189
 190 (define-g-enum "GdkSettingAction" setting-action ()
 191   (:new 0) (:changed 1)
 192   (:deleted 2))
 193
 194 (define-g-enum "GdkOwnerChange" owner-change ()
 195   (:new-owner 0)
 196   (:destroy 1) (:close 2))
 197
 198 (define-g-flags "GdkEventMask" event-mask ()
 199   (:exposure-mask 2)
 200   (:pointer-motion-mask 4) (:pointer-motion-hint-mask 8)
 201   (:button-motion-mask 16) (:button1-motion-mask 32)
 202   (:button2-motion-mask 64) (:button3-motion-mask 128)
 203   (:button-press-mask 256) (:button-release-mask 512)
 204   (:key-press-mask 1024) (:key-release-mask 2048)
 205   (:enter-notify-mask 4096) (:leave-notify-mask 8192)
 206   (:focus-change-mask 16384) (:structure-mask 32768)
 207   (:property-change-mask 65536)
 208   (:visibility-notify-mask 131072)
 209   (:proximity-in-mask 262144) (:proximity-out-mask 524288)
 210   (:substructure-mask 1048576) (:scroll-mask 2097152)
 211   (:all-events-mask 4194302))
 212
 213 (define-g-enum "GdkFontType" font-type () :font :fontset)
 214
 215 (define-g-enum "GdkGravity" gravity ()
 216   (:north-west 1)
 217   :north
 218   :north-east
 219   :west
 220   :center
 221   :east
 222   :south-west
 223   :south
 224   :south-east
 225   :static)
 226
 227 (define-g-boxed-cstruct rectangle "GdkRectangle"
 228   (x :int :initform 0)
 229   (y :int :initform 0)
 230   (width :int :initform 0)
 231   (height :int :initform 0))
 232
 233 (export (boxed-related-symbols 'rectangle))
 234
 235 (define-g-boxed-cstruct font "GdkFont"
 236   (type font-type :initform :font)
 237   (ascent :int :initform 0)
 238   (descent :int :initform 0))
 239
 240 (export (boxed-related-symbols 'font))
 241
 242 (define-g-boxed-cstruct color "GdkColor"
 243   (pixel :uint32 :initform 0)
 244   (red :uint16 :initform 0)
 245   (green :uint16 :initform 0)
 246   (blue :uint16 :initform 0))
 247
 248 (export (boxed-related-symbols 'color))
 249
 250 (define-g-boxed-cstruct geometry "GdkGeometry"
 251   (min-width :int :initform 0)
 252   (min-height :int :initform 0)
 253   (max-width :int :initform 0)
 254   (max-height :int :initform 0)
 255   (base-width :int :initform 0)
 256   (base-height :int :initform 0)
 257   (width-increment :int :initform 0)
 258   (height-increment :int :initform 0)
 259   (min-aspect :double :initform 0.0d0)
 260   (max-aspect :double :initform 0.0d0)
 261   (gravity gravity :initform :north-west))
 262
 263 (export (boxed-related-symbols 'geometry))
 264
 265 (glib:at-init () (foreign-funcall-pointer (foreign-symbol-pointer "gdk_cursor_get_type") () :int))
 266
 267 (gobject:define-g-enum "GdkCursorType" cursor-type (:export t :type-initializer "gdk_cursor_type_get_type")
 268   (:x-cursor 0) (:arrow 2) (:based-arrow-down 4)
 269   (:based-arrow-up 6) (:boat 8) (:bogosity 10)
 270   (:bottom-left-corner 12) (:bottom-right-corner 14)
 271   (:bottom-side 16) (:bottom-tee 18) (:box-spiral 20)
 272   (:center-ptr 22) (:circle 24) (:clock 26)
 273   (:coffee-mug 28) (:cross 30) (:cross-reverse 32)
 274   (:crosshair 34) (:diamond-cross 36) (:dot 38)
 275   (:dotbox 40) (:double-arrow 42) (:draft-large 44)
 276   (:draft-small 46) (:draped-box 48) (:exchange 50)
 277   (:fleur 52) (:gobbler 54) (:gumby 56) (:hand1 58)
 278   (:hand2 60) (:heart 62) (:icon 64) (:iron-cross 66)
 279   (:left-ptr 68) (:left-side 70) (:left-tee 72)
 280   (:leftbutton 74) (:ll-angle 76) (:lr-angle 78)
 281   (:man 80) (:middlebutton 82) (:mouse 84)
 282   (:pencil 86) (:pirate 88) (:plus 90)
 283   (:question-arrow 92) (:right-ptr 94)
 284   (:right-side 96) (:right-tee 98) (:rightbutton 100)
 285   (:rtl-logo 102) (:sailboat 104)
 286   (:sb-down-arrow 106) (:sb-h-double-arrow 108)
 287   (:sb-left-arrow 110) (:sb-right-arrow 112)
 288   (:sb-up-arrow 114) (:sb-v-double-arrow 116)
 289   (:shuttle 118) (:sizing 120) (:spider 122)
 290   (:spraycan 124) (:star 126) (:target 128)
 291   (:tcross 130) (:top-left-arrow 132)
 292   (:top-left-corner 134) (:top-right-corner 136)
 293   (:top-side 138) (:top-tee 140) (:trek 142)
 294   (:ul-angle 144) (:umbrella 146) (:ur-angle 148)
 295   (:watch 150) (:xterm 152) (:last-cursor 153)
 296   (:blank-cursor -2) (:cursor-is-pixmap -1))
 297
 298 (export 'cursor-type)
 299
 300 (define-g-boxed-cstruct cursor "GdkCursor"
 301   (type cursor-type))
 302
 303 (export (boxed-related-symbols 'cursor))
 304
 305 (defctype gdk-atom :pointer)
 306
 307 (define-foreign-type gdk-atom-as-string-type ()
 308   ()
 309   (:actual-type :pointer)
 310   (:simple-parser gdk-atom-as-string))
 311
 312 (defmethod translate-from-foreign (value (type gdk-atom-as-string-type))
 313   (gdk-atom-name value))
 314
 315 (defmethod translate-to-foreign (value (type gdk-atom-as-string-type))
 316   (gdk-atom-intern value nil))
 317
 318 ;;;FIXME: Check correct type
 319 (defctype native-window :uint32)
 320
 321 (define-foreign-type fixed-array ()
 322   ((element-type :reader fixed-array-element-type :initarg :element-type :initform (error "Element type must be specified"))
 323    (array-size :reader fixed-array-array-size :initarg :array-size :initform (error "Array size must be specified")))
 324   (:actual-type :pointer)
 325   (:documentation
 326    "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)."))
 327
 328 (define-parse-method fixed-array (element-type array-size)
 329   (make-instance 'fixed-array :element-type element-type :array-size array-size))
 330
 331 (defmethod translate-from-foreign (ptr (type fixed-array))
 332   (when (not (null-pointer-p ptr))
 333     (let ((result (make-array (fixed-array-array-size type)))
 334           (el-type (fixed-array-element-type type)))
 335       (loop
 336          for i from 0 below (fixed-array-array-size type)
 337          do (setf (aref result i) (mem-aref ptr el-type i)))
 338       result)))
 339
 340 (define-g-boxed-variant-cstruct event "GdkEvent"
 341   (type event-type)
 342   (window (g-object gdk-window))
 343   (send-event (:boolean :int8))
 344   (:variant type
 345             ((:key-press :key-release) event-key
 346              (time :uint32)
 347              (state modifier-type)
 348              (keyval :uint)
 349              (length :int)
 350              (string (:string :free-from-foreign nil
 351                               :free-to-foreign nil))
 352              (hardware-keycode :uint16)
 353              (group :uint8)
 354              (is-modifier :uint))
 355             ((:button-press
 356               :2button-press
 357               :3button-press
 358               :button-release) event-button
 359              (time :uint32)
 360              (x :double)
 361              (y :double)
 362              (axes (fixed-array :double 2))
 363              (state :uint)
 364              (button :uint)
 365              (device (g-object device))
 366              (x-root :double)
 367              (y-root :double))
 368             ((:scroll) event-scroll
 369              (time :uint32)
 370              (x :double)
 371              (y :double)
 372              (state modifier-type)
 373              (direction scroll-direction)
 374              (device (g-object device))
 375              (x-root :double)
 376              (y-root :double))
 377             ((:motion-notify) event-motion
 378              (time :uint32)
 379              (x :double)
 380              (y :double)
 381              (axes (fixed-array :double 2))
 382              (state modifier-type)
 383              (is-hint :int16)
 384              (device (g-object device))
 385              (x-root :double)
 386              (y-root :double))
 387             ((:expose) event-expose
 388              (area rectangle :inline t)
 389              (region :pointer)
 390              (count :int))
 391             ((:visibility-notify) event-visibility
 392              (state visibility-state))
 393             ((:enter-notify :leave-notify) event-crossing
 394              (sub-window (g-object gdk-window))
 395              (time :uint32)
 396              (x :double)
 397              (y :double)
 398              (x-root :double)
 399              (y-root :double)
 400              (mode crossing-mode)
 401              (detail notify-type)
 402              (focus :boolean)
 403              (state :uint))
 404             ((:focus-change) event-focus
 405              (in :int16))
 406             ((:configure) event-configure
 407              (x :int)
 408              (y :int)
 409              (width :int)
 410              (height :int))
 411             ((:property-notify) event-property
 412              (atom gdk-atom)
 413              (time :uint32)
 414              (state property-state))
 415             ((:selection-clear
 416               :selection-notify
 417               :selection-request) event-selection
 418              (selection gdk-atom)
 419              (target gdk-atom)
 420              (property gdk-atom)
 421              (time :uint32)
 422              (requestor native-window))
 423             ((:drag-enter
 424               :drag-leave
 425               :drag-motion
 426               :drag-status
 427               :drop-start
 428               :drop-finished) event-dnd
 429              (drag-context :pointer)
 430              (time :uint32)
 431              (x-root :short)
 432              (y-root :short))
 433             ((:proximity-in
 434               :proximity-out) event-proximity
 435              (time :uint32)
 436              (device (g-object device)))
 437             ((:client-event) event-client
 438              (message-time gdk-atom)
 439              (data-format :ushort)
 440              (:variant data-format
 441                        (8 event-client-8
 442                           (data :uchar :count 20))
 443                        (16 event-client-16
 444                            (data :ushort :count 10))
 445                        (32 event-client-32
 446                            (data :ulong :count 5))))
 447             ((:no-expose) event-no-expose)
 448             ((:window-state) event-window-state
 449              (changed-mask window-state)
 450              (new-window-state window-state))
 451             ((:setting) event-setting
 452              (action setting-action)
 453              (name (:string :free-from-foreign nil :free-to-foreign nil)))
 454             ((:owner-change) event-owner-change
 455              (owner native-window)
 456              (reason owner-change)
 457              (selection gdk-atom)
 458              (time :uint32)
 459              (selection-time :uint32))
 460             ((:grab-broken) event-grab-broken
 461              (keyboard :boolean)
 462              (implicit :boolean)
 463              (grab-window (g-object gdk-window)))))
 464
 465 (export (boxed-related-symbols 'event))
 466
 467 (define-g-object-class "GdkDragContext" drag-context () ())
 468
 469 (define-g-flags "GdkWindowHints" window-hints ()
 470   :pos :min-size :max-size :base-size :aspect
 471   :resize-inc :win-gravity :user-pos :user-size)
 472
 473 (define-g-enum "GdkWindowEdge" window-edge ()
 474   (:north-west 0) (:north 1) (:north-east 2) (:west 3)
 475   (:east 4) (:south-west 5) (:south 6) (:south-east 7))
 476
 477 (define-g-enum "GdkColorspace" colorspace ()
 478   :rgb)
 479
 480 (define-g-object-class "GdkPixbuf" pixbuf ()
 481     ((colorspace pixbuf-colorspace "colorspace" "GdkColorspace" t nil)
 482      (n-channels pixbuf-n-channels "n-channels" "gint" t nil)
 483      (has-alpha pixbuf-has-alpha "has-alpha" "gboolean" t nil)
 484      (bits-per-sample pixbuf-bits-per-sample "bits-per-sample" "gint" t nil)
 485      (width pixbuf-width "width" "gint" t nil)
 486      (height pixbuf-height "height" "gint" t nil)
 487      (rowstride pixbuf-rowstride "rowstride" "gint" t nil)
 488      (pixels pixbuf-pixels "pixels" "gpointer" t nil)))
 489
 490 (define-g-object-class "GdkPixbufAnimation" pixbuf-animation ()
 491     nil)
 492
 493 (define-g-object-class "GdkImage" gdk-image
 494   (:superclass g-object :export t :interfaces
 495                nil :type-initializer
 496                "gdk_image_get_type")
 497   nil)