]> gitweb.factorcode.org Git - factor.git/blobdiff - basis/x11/windows/windows.factor
Use flags{ instead of flags all over the place
[factor.git] / basis / x11 / windows / windows.factor
index ad0a8b11a67e06aef97f7add0082c4b8864056b4..7b7ae8b106754f146e2f6152f3457ab4d58f3ead 100644 (file)
@@ -5,15 +5,15 @@ namespaces sequences x11 x11.xlib x11.constants x11.glx arrays
 fry classes.struct ;
 IN: x11.windows
 
-: create-window-mask ( -- n )
-    { CWBackPixel CWBorderPixel CWColormap CWEventMask } flags ;
+CONSTANT: create-window-mask
+    flags{ CWBackPixel CWBorderPixel CWColormap CWEventMask }
 
 : create-colormap ( visinfo -- colormap )
     [ dpy get root get ] dip visual>> AllocNone
     XCreateColormap ;
 
-: event-mask ( -- n )
-    {
+CONSTANT: event-mask
+    flags{
         ExposureMask
         StructureNotifyMask
         KeyPressMask
@@ -25,7 +25,7 @@ IN: x11.windows
         EnterWindowMask
         LeaveWindowMask
         PropertyChangeMask
-    } flags ;
+    }
 
 : window-attributes ( visinfo -- attributes )
     XSetWindowAttributes <struct>