From a91cda2e8f3bcd784c851a788e0dc9c67e0f06ba Mon Sep 17 00:00:00 2001
From: Chris Double <chris.double@double.co.nz>
Date: Sun, 1 Aug 2004 22:25:40 +0000
Subject: [PATCH] move button to cont-utils

---
 contrib/cont-responder/cont-utils.factor   | 6 +++++-
 contrib/cont-responder/todo-example.factor | 4 ----
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/contrib/cont-responder/cont-utils.factor b/contrib/cont-responder/cont-utils.factor
index 35bf744b62..7c71403a07 100644
--- a/contrib/cont-responder/cont-utils.factor
+++ b/contrib/cont-responder/cont-utils.factor
@@ -61,4 +61,8 @@ USE: stack
   #! Given a list of HTML components, arrange them horizontally.
   <table> [
     <tr valign= "top" tr> [ [ <td> [ call ] </td> ] each ] </tr>
-  ] </table> ;
\ No newline at end of file
+  ] </table> ;
+
+: button ( label -- )
+  #! Output an HTML submit button with the given label.
+  <input type= "submit" value= input/> ;
diff --git a/contrib/cont-responder/todo-example.factor b/contrib/cont-responder/todo-example.factor
index 95901e5644..e1b61547c4 100644
--- a/contrib/cont-responder/todo-example.factor
+++ b/contrib/cont-responder/todo-example.factor
@@ -70,10 +70,6 @@ USE: todo
   #! specified name.
   <input type= "password" size= "20" name= input/> ;
 
-: button ( label -- )
-  #! Output an HTML submit button with the given label.
-  <input type= "submit" value= input/> ;
-
 : form ( action quot  -- )
   #! Call quot with any output appearing inside an HTML form.
   #! The form is a POST form where the action is as specified.