ui.gadgets.editors: simplify private word.

[factor.git] / basis / ui / gadgets / editors / editors.factor

diff --git a/basis/ui/gadgets/editors/editors.factor b/basis/ui/gadgets/editors/editors.factor
index 2ead238a8bf9bafe60924963dc2fc52629906d7d..aef79ec92baca23ca7ca34e3d91307395b22f4b8 100644 (file)
--- 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>