nehe: use border around buttons.

factor-shell
John Benediktsson 2018-01-22 08:50:41 -08:00
parent 795150333a
commit e49ec97043
1 changed files with 5 additions and 3 deletions

View 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