core/ui/gadgets/frames.factor

   1 ! Copyright (C) 2005, 2006 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 IN: gadgets
   4 USING: arrays generic kernel math namespaces sequences words ;
   5
   6 ! A frame arranges gadgets in a 3x3 grid, where the center
   7 ! gadgets gets left-over space.
   8 TUPLE: frame ;
   9
  10 : <frame-grid> 9 [ drop <gadget> ] map 3 group ;
  11
  12 : @center 1 1 ;
  13 : @left 0 1 ;
  14 : @right 2 1 ;
  15 : @top 1 0 ;
  16 : @bottom 1 2 ;
  17
  18 : @top-left 0 0 ;
  19 : @top-right 2 0 ;
  20 : @bottom-left 0 2 ;
  21 : @bottom-right 2 2 ;
  22
  23 C: frame ( -- frame )
  24     <frame-grid> <grid> over set-gadget-delegate ;
  25
  26 : delegate>frame ( tuple -- ) <frame> swap set-delegate ;
  27
  28 : (fill-center) ( vec n -- )
  29     over first pick third v+ [v-] 1 rot set-nth ;
  30
  31 : fill-center ( horiz vert dim -- )
  32     tuck (fill-center) (fill-center) ;
  33
  34 M: frame layout*
  35     dup [
  36         [ rot rect-dim fill-center ] 2keep grid-layout
  37     ] with-grid ;
  38
  39 : make-frame ( specs -- gadget )
  40     <frame> [ swap build-grid ] keep ; inline
  41
  42 : make-frame* ( tuple specs -- gadget )
  43     over [ delegate>frame build-grid ] keep ; inline