From e49ec97043bfb1899c9d98276365901ec2612185 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Mon, 22 Jan 2018 08:50:41 -0800
Subject: [PATCH] nehe: use border around buttons.

---
 extra/nehe/nehe.factor | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/extra/nehe/nehe.factor b/extra/nehe/nehe.factor
index a4c2aedf23..74f950c093 100644
--- a/extra/nehe/nehe.factor
+++ b/extra/nehe/nehe.factor
@@ -1,5 +1,7 @@
-USING: ui.gadgets.buttons ui.gadgets.packs ui.gadgets ui
-nehe.2 nehe.3 nehe.4 nehe.5 kernel accessors ;
+USING: accessors kernel nehe.2 nehe.3 nehe.4 nehe.5 ui
+ui.gadgets ui.gadgets.borders ui.gadgets.buttons
+ui.gadgets.packs ;
+
 IN: nehe
 
 MAIN-WINDOW: nehe-window { { title "Nehe Examples" } }
@@ -8,6 +10,6 @@ MAIN-WINDOW: nehe-window { { title "Nehe Examples" } }
         "Nehe 3" [ drop run3 ] <border-button> add-gadget
         "Nehe 4" [ drop run4 ] <border-button> add-gadget
         "Nehe 5" [ drop run5 ] <border-button> add-gadget
-        >>gadgets ;
+    { 2 2 } <border> >>gadgets ;
 
 MAIN: nehe-window