[mcclim-cvs] CVS mcclim/Backends/beagle/input

[tmoore]

Update of /project/mcclim/cvsroot/mcclim/Backends/beagle/input
In directory clnet:/tmp/cvs-serv22888/Backends/beagle/input

Modified Files:
	events.lisp 
Log Message:
Changes to get Beagle running with current sources. Various demos 'run' (tested address-book, clim-listener, functional-geometry) but many things aren't working (scroll bars).

--- /project/mcclim/cvsroot/mcclim/Backends/beagle/input/events.lisp	2005/06/16 09:27:50	1.9
+++ /project/mcclim/cvsroot/mcclim/Backends/beagle/input/events.lisp	2006/03/23 15:27:24	1.10
@@ -28,7 +28,7 @@
 
 #||
 
-$Id: events.lisp,v 1.9 2005/06/16 09:27:50 crhodes Exp $
+$Id: events.lisp,v 1.10 2006/03/23 15:27:24 tmoore Exp $
 
 Events in Cocoa
 ---------------
@@ -747,14 +747,6 @@
 ;; Need to make use of the Cocoa method for getting modifier state - this is independent of events
 ;; pretty much (i.e. pointer documentation pane changes depending what modifier keys are pressed
 ;; prior to a mouse click etc.) ::FIXME::
-(defmethod pointer-modifier-state ((pointer beagle-pointer))
-  ;;  (multiple-value-bind (x y same-screen-p child mask)
-  ;;      (xlib:query-pointer (clx-port-window (port pointer)))
-  ;;    (declare (ignore x y same-screen-p child))
-  ;;    (x-event-state-modifiers (port pointer) mask)))
-  (warn "pointer-modifier-state: implement me")
-  nil)
-
 
 ;; Again, make use of Cocoa methods for querying the pointer position. See above ::FIXME::
 (defmethod pointer-position ((pointer beagle-pointer))
@@ -763,12 +755,6 @@
   (warn "pointer-position: implement me")
   nil)
 
-
-;; Ditto previous two methods...
-(defmethod pointer-button-state ((pointer beagle-pointer))
-  (warn "pointer-button-state: implement me")
-  nil)
-
 ;;; Is PORT-POINTER-SHEET also needed? See STREAM-POINTER-POSITION in
 ;;; STREAM-INPUT.LISP