steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

ui: ceiling world dimensions when opening.

locals-and-roots
John Benediktsson 2016-05-06 20:56:37 -07:00
parent 7f8d5cbef4
commit 3edf8f594a
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
basis/ui/ui.factor
View File

@ -3,10 +3,10 @@
USING: accessors arrays assocs boxes classes.tuple USING: accessors arrays assocs boxes classes.tuple
classes.tuple.parser combinators combinators.short-circuit classes.tuple.parser combinators combinators.short-circuit
concurrency.flags concurrency.promises continuations deques concurrency.flags concurrency.promises continuations deques
destructors dlists fry init io.streams.c kernel lexer make math destructors dlists fry init kernel lexer make math
namespaces parser sequences sets strings threads ui.backend ui.gadgets math.functions namespaces parser sequences sets strings threads
ui.gadgets.private ui.gadgets.worlds ui.gestures ui.render vectors ui.backend ui.gadgets ui.gadgets.private ui.gadgets.worlds
vocabs.parser words ; ui.gestures ui.render vectors vocabs.parser words ;
IN: ui IN: ui
<PRIVATE <PRIVATE
@ -176,7 +176,7 @@ PRIVATE>
PRIVATE> PRIVATE>
: open-world-window ( world -- ) : open-world-window ( world -- )
dup pref-dim >>dim dup relayout graft ; dup pref-dim [ ceiling ] map >>dim dup relayout graft ;
: open-window* ( gadget title/attributes -- window ) : open-window* ( gadget title/attributes -- window )
?attributes <world> [ open-world-window ] keep ; ?attributes <world> [ open-world-window ] keep ;