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

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

diff --git a/basis/x11/clipboard/clipboard.factor b/basis/x11/clipboard/clipboard.factor
index 82913b81122879928fc1b327cf27ff084588e3d8..dd97faf9741238a91cf5d3b851be73f247bf129d 100644 (file)
--- a/basis/x11/clipboard/clipboard.factor
+++ b/basis/x11/clipboard/clipboard.factor
@@ -57,7 +57,7 @@ TUPLE: x-clipboard atom contents ;
     1 XChangeProperty drop ;
 
 : send-notify ( evt prop -- )
-    XSelectionEvent <struct>
+    XSelectionEvent new
     SelectionNotify >>type
     swap >>property
     over display>>   >>display