From: John Benediktsson <mrjbq7@gmail.com>
Date: Sun, 25 Sep 2011 18:43:53 +0000 (-0700)
Subject: ui.gadgets.editors: simplify private word.
X-Git-Tag: 0.97~4079
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=98f7d2530d214dbaa139e5e89d8e4eceaf401e43

ui.gadgets.editors: simplify private word.
---

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>