anchor.diff:      (&optional (display (display-get-default))) int
     (display display))
   
  +(defun find-display (name)
  +  (find name (list-displays) :key #'display-name :test #'string=))
  +
  +(defun ensure-display (display)
  +  (etypecase display
  +    (null (display-get-default))
  +    (display display)
  +    (string 
  +     (or
  +      (find display (list-displays) :key #'display-name :test #'string=)
  +      (display-open display)))))
   
   
   ;;; Display manager
   
   (defbinding display-get-default () display)
  -
  -(defbinding (display-manager "gdk_display_manager_get") () display-manager)
   
   (defbinding (display-set-default "gdk_display_manager_set_default_display")
       (display) nil
     ((display-manager) display-manager)
  +  (display display))
  +
  +(defbinding (list-displays "gdk_display_manager_list_displays") ()
  +    (gslist (static display))
  +  ((display-manager) display-manager))
  +
  +;; The only purpose of exporting this is to make it possible for
  +;; applications to connect to the display-opened signal
  +(defbinding (display-manager "gdk_display_manager_get") () display-manager)
  +
  +(defbinding display-get-core-pointer 
  +    (&optional (display (display-get-default))) device
     (display display))
   
   
  
positive.code: 
  ;;; 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))
  
negative.code: ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
  ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  
  ;; $Id: gdk.lisp,v 1.34 2007-04-06 14:19:08 espen Exp $
  
  
  (in-package "GDK")
  