anchor.diff:  
   (defmethod get-object-at ((self window) x y)
     (get-object-at (window-top self) (double x) (double y)))
  -
  -(defun screen-width  () (window.get-screen-width))
  -(defun screen-height () (window.get-screen-height))
   
   
   (defmethod register   ((self window))
  
positive.code: #-(and)
  (progn
  
    (open-backend :program-name "Test Program")
    (defparameter *w* (make-instance 'window :title "Test Window"
                                             :height 100.0d0
                                             :width 200.0d0
                                             :x 50.0d0
                                             :y 50.0d0))
    (compound-add *w* (make-instance 'label :text "Label:"
                                            :x 10 :y 10 :width 100 :height 20))
    )
  
  
  
negative.code: (defun parse-action-event (parameters type)
    (destructuring-bind (id action time) parameters
      (make-instance 'event :type type
                            :window (get-window (decode-id id))
                            :time time
                            :action-command action)))
  
  