libs/slate/slate.factor

   1 REQUIRES: libs/vars ;
   2 USING: kernel namespaces gadgets vars ;
   3 IN: slate
   4
   5 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   6
   7 TUPLE: slate action ns ;
   8
   9 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  10
  11 C: slate ( -- slate )
  12 dup delegate>gadget
  13 [ ] over set-slate-action
  14 H{ } clone over set-slate-ns ;
  15
  16 M: slate pref-dim* ( slate -- ) drop { 100 100 0 } ;
  17
  18 M: slate draw-gadget* ( slate -- ) dup slate-ns swap slate-action bind ;
  19
  20 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  21
  22 VAR: slate
  23
  24 : action> ( -- quot ) slate> slate-action ;
  25
  26 : >action ( quot -- ) slate> set-slate-action ;
  27
  28 : .slate ( -- ) slate> relayout-1 ;
  29
  30 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  31
  32 : slate-window ( -- ) <slate> dup >slate "Slate" open-titled-window ;