anchor.diff:  ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
   ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
   
  -;; $Id: gdkevents.lisp,v 1.13 2008-01-07 16:02:23 espen Exp $
  +;; $Id: gdkevents.lisp,v 1.14 2008-03-18 14:52:54 espen Exp $
   
   (in-package "GDK")
   
  
positive.code:   (:metaclass event-class)
    (:event-type :owner-change))
  
  
negative.code:   
  (let ((reader (reader-function 'event-type)))
    (defun %event-class (location)
      (or
       (gethash (funcall reader location 0) *event-classes*)
       (error "No class defined for event type: ~S" (funcall reader location 0)))))
  
  (defmethod make-proxy-instance :around ((class event-class) location 
  					&rest initargs)
  