(in-package :gdk)
+(defcfun (default-screen "gdk_screen_get_default") (g-object gdk-screen))
+(export 'default-screen)
+
+(defcfun (default-display "gdk_display_get_default") (g-object display))
+(export 'default-display)
+
(defcfun gdk-window-get-events event-mask
(window (g-object gdk-window)))
(defun (setf gdk-window-events) (new-value window)
(gdk-window-set-events window new-value))
-(defcfun gdk-gc-new (g-object graphics-context)
+(defcfun gdk-gc-new (g-object graphics-context :already-referenced)
(drawable (g-object drawable)))
(defcfun gdk-draw-line :void