]> gitweb.factorcode.org Git - factor.git/commitdiff
nehe: use border around buttons.
authorJohn Benediktsson <mrjbq7@gmail.com>
Mon, 22 Jan 2018 16:50:41 +0000 (08:50 -0800)
committerJohn Benediktsson <mrjbq7@gmail.com>
Mon, 22 Jan 2018 16:50:41 +0000 (08:50 -0800)
extra/nehe/nehe.factor

index a4c2aedf23e41425b5448583d83e5c68f4e6cece..74f950c0937de903480f7e7e27d0dc8ea51eecf8 100644 (file)
@@ -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