break code->code docs<-docs dependency

diff --git a/basis/ui/gadgets/worlds/worlds.factor b/basis/ui/gadgets/worlds/worlds.factor
index 885f4138ffccd886fb03a86605725a639ce33ef9..171272dfc12e4fc0c50522ecb88addda17423b49 100755 (executable)
--- a/basis/ui/gadgets/worlds/worlds.factor
+++ b/basis/ui/gadgets/worlds/worlds.factor
@@ -150,10 +150,6 @@ M: world handle-gesture ( gesture gadget -- ? )
 : close-global ( world global -- )
     [ get-global find-world eq? ] keep '[ f _ set-global ] when ;
 
-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 } } } ;

diff --git a/basis/ui/pixel-formats/pixel-formats-docs.factor b/basis/ui/pixel-formats/pixel-formats-docs.factor
index 188a92d8b8c9d9849b81d739dfb79e955621ef0d..6f2485d2497d38e4485a32300acec715639daed4 100644 (file)
--- a/basis/ui/pixel-formats/pixel-formats-docs.factor
+++ b/basis/ui/pixel-formats/pixel-formats-docs.factor
@@ -1,6 +1,13 @@
-USING: destructors help.markup help.syntax kernel math multiline sequences ui.gadgets.worlds ;
+USING: destructors help.markup help.syntax kernel math multiline sequences
+vocabs.parser words ;
 IN: ui.pixel-formats
 
+! break circular dependency
+<<
+    "world" "ui.gadgets.worlds" create drop
+    "ui.gadgets.worlds" (use+)
+>>
+
 ARTICLE: "ui.pixel-formats-attributes" "Pixel format attributes"
 "The following pixel format attributes can be requested and queried of " { $link pixel-format } "s. Binary attributes are represented by the presence of a symbol in an attribute sequence:"
 { $subsection double-buffered }

diff --git a/basis/ui/pixel-formats/pixel-formats.factor b/basis/ui/pixel-formats/pixel-formats.factor
index 125f79eded4373009c163531d5139abd88c5bad8..52abf4436224a7c5616a5d506d14886ca20ca70d 100644 (file)
--- a/basis/ui/pixel-formats/pixel-formats.factor
+++ b/basis/ui/pixel-formats/pixel-formats.factor
@@ -87,3 +87,8 @@ SYNTAX: PIXEL-FORMAT-ATTRIBUTE-TABLE:
     scan scan-object scan-object define-pixel-format-attribute-table ;
 
 PRIVATE>
+
+GENERIC: world-pixel-format-attributes ( world -- attributes )
+
+GENERIC# check-world-pixel-format 1 ( world pixel-format -- )
+