classes.struct: moving to new/boa instead of <struct>/<struct-boa>

[factor.git] / basis / x11 / events / events.factor

diff --git a/basis/x11/events/events.factor b/basis/x11/events/events.factor
index c71f0a6f2328e309bcc9dd90a0a55e0a27691b3c..ec4e6ed5850b66927459f01cfe753a148f3c157f 100644 (file)
--- a/basis/x11/events/events.factor
+++ b/basis/x11/events/events.factor
@@ -36,10 +36,10 @@ GENERIC: selection-request-event ( event window -- )
 GENERIC: client-event ( event window -- )
 
 : next-event ( -- event )
-    dpy get XEvent <struct> [ XNextEvent drop ] keep ;
+    dpy get XEvent new [ XNextEvent drop ] keep ;
 
 : mask-event ( mask -- event )
-    [ dpy get ] dip XEvent <struct> [ XMaskEvent drop ] keep ;
+    [ dpy get ] dip XEvent new [ XMaskEvent drop ] keep ;
 
 : events-queued ( mode -- n ) [ dpy get ] dip XEventsQueued ;