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

[factor.git] / basis / ui / backend / x11 / x11.factor

diff --git a/basis/ui/backend/x11/x11.factor b/basis/ui/backend/x11/x11.factor
index 8165898bc1a9617b11c07c458971aa49820999ae..de09ecd03563b6b8ffb06fbf8af6dfc77d1a8753 100644 (file)
--- a/basis/ui/backend/x11/x11.factor
+++ b/basis/ui/backend/x11/x11.factor
@@ -254,7 +254,7 @@ M: x11-ui-backend set-title
     [ dpy get ] 2dip [ set-title-old ] [ set-title-new ] 3bi ;
 
 : make-fullscreen-msg ( window ? -- msg )
-    XClientMessageEvent <struct>
+    XClientMessageEvent new
         ClientMessage >>type
         dpy get >>display
         XA_NET_WM_STATE >>message_type
@@ -286,7 +286,7 @@ M: x11-ui-backend (open-window)
     tri ;
 
 : make-raise-window-msg ( window -- msg )
-    XClientMessageEvent <struct>
+    XClientMessageEvent new
         ClientMessage >>type
         1 >>send_event
         dpy get >>display
@@ -341,7 +341,7 @@ PRIVATE>
 M: x11-ui-backend system-alert
     "\n\n" glue xmessage ;
 
-: black ( -- xcolor ) 0 0 0 0 0 0 XColor <struct-boa> ; inline
+: black ( -- xcolor ) 0 0 0 0 0 0 XColor boa ; inline
 
 M:: x11-ui-backend (grab-input) ( handle -- )
     handle window>>                                                  :> wnd