;; License along with this library; if not, write to the Free Software
;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-;; $Id: gdk.lisp,v 1.6 2001-05-11 16:19:07 espen Exp $
+;; $Id: gdk.lisp,v 1.7 2001-10-21 23:02:40 espen Exp $
(in-package "GDK")
;;; Events
-(defbinding event-poll-fd () int)
+(defbinding connection-number () int)
(defbinding (events-pending-p "gdk_events_pending") () boolean)
;; License along with this library; if not, write to the Free Software
;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-;; $Id: gdkevents.lisp,v 1.2 2001-05-31 12:36:39 espen Exp $
+;; $Id: gdkevents.lisp,v 1.3 2001-10-21 23:02:40 espen Exp $
(in-package "GDK")
(defmethod initialize-instance ((event event) &rest initargs)
(declare (ignore initargs))
- (with-slots (location %type) event
- (setf location (%event-new))
- (setf %type (event-class-type (class-of event))))
- (call-next-method))
+ (call-next-method)
+ (setf (slot-value event '%type) (event-class-type (class-of event))))
(deftype-method translate-from-alien
event (type-spec location &optional weak-ref)
(unless (null-pointer-p location)
(ensure-proxy-instance (%type-of-event location) location ,weak-ref))))
-(defbinding %event-new () pointer)
-
;;;; Metaclass for event classes
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
*/
-/* $Id: gdkglue.c,v 1.1 2000-08-14 16:44:41 espen Exp $ */
+/* $Id: gdkglue.c,v 1.2 2001-10-21 23:02:40 espen Exp $ */
#include <gdk/gdk.h>
#include <gdk/gdkx.h>
-extern GPollFD event_poll_fd;
+extern Display *gdk_display;
-gint gdk_event_poll_fd ()
+gint gdk_connection_number ()
{
- return event_poll_fd.fd;
+ return ConnectionNumber (gdk_display);
}