From 98f7d2530d214dbaa139e5e89d8e4eceaf401e43 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sun, 25 Sep 2011 11:43:53 -0700
Subject: [PATCH] ui.gadgets.editors: simplify private word.

---
 basis/ui/gadgets/editors/editors.factor | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/basis/ui/gadgets/editors/editors.factor b/basis/ui/gadgets/editors/editors.factor
index 2ead238a8b..aef79ec92b 100644
--- a/basis/ui/gadgets/editors/editors.factor
+++ b/basis/ui/gadgets/editors/editors.factor
@@ -610,9 +610,7 @@ TUPLE: field < border editor min-cols max-cols ;
     COLOR: gray <solid> >>boundary ; inline
 
 : <field-border> ( gadget -- border )
-    { 2 2 } <border>
-        { 1 0 } >>fill
-        field-theme ;
+    border new-border field-theme ;
 
 PRIVATE>