Fixing bootstrap after merge
parent
ce1bc1d6ed
commit
91fff87c0f
|
@ -1,8 +1,8 @@
|
|||
! Copyright (C) 2006, 2009 Slava Pestov
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: specialized-arrays.int arrays kernel math namespaces make
|
||||
cocoa cocoa.messages cocoa.classes core-graphics.types sequences
|
||||
continuations accessors ;
|
||||
cocoa cocoa.messages cocoa.classes core-graphics
|
||||
core-graphics.types sequences continuations accessors ;
|
||||
IN: cocoa.views
|
||||
|
||||
CONSTANT: NSOpenGLPFAAllRenderers 1
|
||||
|
|
|
@ -22,6 +22,9 @@ M: glue pref-dim* drop { 0 0 } ;
|
|||
: (fill- ( frame grid-layout quot1 quot2 -- pref-dim gap filled-cell dims )
|
||||
[ '[ [ dim>> ] [ gap>> ] [ filled-cell>> ] tri _ tri@ ] dip ] dip call ; inline
|
||||
|
||||
: available-space ( pref-dim gap dims -- avail )
|
||||
length 1+ * [-] ; inline
|
||||
|
||||
: -center) ( pref-dim gap filled-cell dims -- )
|
||||
[ nip available-space ] 2keep [ remove-nth sum [-] ] 2keep set-nth ; inline
|
||||
|
||||
|
|
Loading…
Reference in New Issue