nehe: use border around buttons.
parent
795150333a
commit
e49ec97043
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue