+;;; Display
+
+(defbinding %display-manager-get () display-manager)
+
+(defbinding (display-set-default "gdk_display_manager_set_default_display")
+ (display) nil
+ ((%display-manager-get) display-manager)
+ (display display))
+
+(defbinding display-get-default () display)
+
+(defbinding %display-open () display
+ (display-name (or null string)))
+
+(defun display-open (&optional display-name)
+ (let ((display (%display-open display-name)))
+ (unless (display-get-default)
+ (display-set-default display))
+ display))
+
+(defbinding (display-connection-number "clg_gdk_connection_number")
+ (&optional (display (display-get-default))) int
+ (display display))
+
+
+;;; Events