From cc244cb6721bca042cae946969087c98cf812b0b Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Sat, 2 May 2009 21:54:25 -0500
Subject: [PATCH] break code->code docs<-docs dependency

---
 basis/ui/gadgets/worlds/worlds.factor            | 4 ----
 basis/ui/pixel-formats/pixel-formats-docs.factor | 9 ++++++++-
 basis/ui/pixel-formats/pixel-formats.factor      | 5 +++++
 3 files changed, 13 insertions(+), 5 deletions(-)

diff --git a/basis/ui/gadgets/worlds/worlds.factor b/basis/ui/gadgets/worlds/worlds.factor
index 885f4138ff..171272dfc1 100755
--- 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 188a92d8b8..6f2485d249 100644
--- 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 125f79eded..52abf44362 100644
--- 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 -- )
+