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
classes.tuple.parser combinators combinators.short-circuit
concurrency.flags concurrency.promises continuations deques
destructors dlists fry init io.streams.c kernel lexer make math
namespaces parser sequences sets strings threads ui.backend ui.gadgets
ui.gadgets.private ui.gadgets.worlds ui.gestures ui.render vectors
vocabs.parser words ;
destructors dlists fry init kernel lexer make math
math.functions namespaces parser sequences sets strings threads
ui.backend ui.gadgets ui.gadgets.private ui.gadgets.worlds
ui.gestures ui.render vectors vocabs.parser words ;
IN: ui
<PRIVATE
@ -176,7 +176,7 @@ PRIVATE>
PRIVATE>
: 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 )
?attributes <world> [ open-world-window ] keep ;