From a146e1a71504bd5cec2c622f913de0a96066ab20 Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Sat, 16 Jan 2010 23:13:59 -0800
Subject: [PATCH] method-chains docs

---
 extra/method-chains/method-chains-docs.factor | 22 +++++++++++++++++++
 extra/method-chains/summary.txt               |  1 +
 2 files changed, 23 insertions(+)
 create mode 100644 extra/method-chains/method-chains-docs.factor
 create mode 100644 extra/method-chains/summary.txt

diff --git a/extra/method-chains/method-chains-docs.factor b/extra/method-chains/method-chains-docs.factor
new file mode 100644
index 0000000000..3e8e0e97bf
--- /dev/null
+++ b/extra/method-chains/method-chains-docs.factor
@@ -0,0 +1,22 @@
+! (c)2009 Joe Groff bsd license
+USING: help.markup help.syntax ;
+IN: method-chains
+
+HELP: AFTER:
+{ $syntax "AFTER: class generic
+    implementation ;" }
+{ $description "Defines a method on " { $snippet "generic" } " for " { $snippet "class" } " which executes the new " { $snippet "implementation" } " code after invoking the parent class method on " { $snippet "generic" } "." } ;
+
+HELP: BEFORE:
+{ $syntax "BEFORE: class generic
+    implementation ;" }
+{ $description "Defines a method on " { $snippet "generic" } " for " { $snippet "class" } " which executes the new " { $snippet "implementation" } " code, then invokes the parent class method on " { $snippet "generic" } "." } ;
+
+ARTICLE: "method-chains" "Method chaining syntax"
+"The " { $vocab-link "method-chains" } " vocabulary provides syntax for extending method implementations in class hierarchies." 
+{ $subsections
+    POSTPONE: AFTER:
+    POSTPONE: BEFORE:
+} ;
+
+ABOUT: "method-chains"
diff --git a/extra/method-chains/summary.txt b/extra/method-chains/summary.txt
new file mode 100644
index 0000000000..dc80f82d97
--- /dev/null
+++ b/extra/method-chains/summary.txt
@@ -0,0 +1 @@
+BEFORE: and AFTER: syntax for extending methods in class hierarchies