check-world-pixel-format word that world subclasses can override to verify that the...

diff --git a/basis/ui/gadgets/worlds/worlds.factor b/basis/ui/gadgets/worlds/worlds.factor
index c66e59b292bd1859ff0fba7bbc69e7007e5be933..885f4138ffccd886fb03a86605725a639ce33ef9 100644 (file)
--- a/basis/ui/gadgets/worlds/worlds.factor
+++ b/basis/ui/gadgets/worlds/worlds.factor
@@ -152,10 +152,15 @@ M: world handle-gesture ( gesture gadget -- ? )
 
 GENERIC: world-pixel-format-attributes ( world -- attributes )
 
+GENERIC# check-world-pixel-format 1 ( world pixel-format -- )
+
 M: world world-pixel-format-attributes
     drop
     { windowed double-buffered T{ depth-bits { value 16 } } } ;
 
+M: world check-world-pixel-format
+    2drop ;
+
 : with-world-pixel-format ( world quot -- )
     [ dup dup world-pixel-format-attributes <pixel-format> ]
-    dip with-disposal ; inline
+    dip [ 2dup check-world-pixel-format ] prepose with-disposal ; inline