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

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

diff --git a/basis/x11/windows/windows.factor b/basis/x11/windows/windows.factor
index b0d6ce3d7006d8c5fe6ccb8c7ab2dcac17352799..6b3cd1e3a1ec878c495a7353e44eb0c2dacb7006 100644 (file)
--- a/basis/x11/windows/windows.factor
+++ b/basis/x11/windows/windows.factor
@@ -28,14 +28,14 @@ CONSTANT: event-mask
     }
 
 : window-attributes ( visinfo -- attributes )
-    XSetWindowAttributes <struct>
+    XSetWindowAttributes new
     0 >>background_pixel
     0 >>border_pixel
     event-mask >>event_mask
     swap create-colormap >>colormap ;
 
 : set-size-hints ( window -- )
-    XSizeHints <struct>
+    XSizeHints new
     USPosition >>flags
     [ dpy get ] 2dip XSetWMNormalHints ;