New slate implementation

diff --git a/contrib/slate/slate.factor b/contrib/slate/slate.factor
new file mode 100644 (file)
index 0000000..cea0e19
--- /dev/null
+++ b/contrib/slate/slate.factor
@@ -0,0 +1,30 @@
+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 ;