31 lines
834 B
Factor
31 lines
834 B
Factor
|
REQUIRES: contrib/vars ; USING: kernel namespaces gadgets vars ; IN: slate
|
||
|
|
|
||
|
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||
|
|
|
||
|
|
TUPLE: slate action ns ;
|
||
|
|
|
||
|
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||
|
|
|
||
|
|
C: slate ( -- slate )
|
||
|
|
dup delegate>gadget
|
||
|
|
[ ] over set-slate-action
|
||
|
|
H{ } clone over set-slate-ns ;
|
||
|
|
|
||
|
|
M: slate pref-dim* ( slate -- ) drop { 100 100 0 } ;
|
||
|
|
|
||
|
|
M: slate draw-gadget* ( slate -- ) dup slate-ns swap slate-action bind ;
|
||
|
|
|
||
|
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||
|
|
|
||
|
|
VAR: slate
|
||
|
|
|
||
|
|
: action> ( -- ) slate> slate-action ;
|
||
|
|
|
||
|
|
: >action ( quot -- ) slate> set-slate-action ;
|
||
|
|
|
||
|
|
: .slate ( -- ) slate> relayout-1 ;
|
||
|
|
|
||
|
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||
|
|
|
||
|
|
: slate-window ( -- ) <slate> dup >slate "Slate" open-titled-window ;
|