Updates to old slate

diff --git a/contrib/slate.factor b/contrib/slate.factor
index bdeb48141a59b3d1c949bad84908b54f789206fe..18d867719963e0488fa98aad56455a8e51010929 100644 (file)
--- a/contrib/slate.factor
+++ b/contrib/slate.factor
@@ -25,9 +25,13 @@ M: slate draw-gadget* ( <slate> -- ) dup self set slate-action call ;
 
 : set-action ( quot -- ) self get set-slate-action ;
 
+: action> get-action ;
+
+: >action set-action ;
+
 : flush-slate ( -- ) self get relayout-1 ;
 
-SYMBOL: dlist
+VAR: dlist
 
 SYMBOL: capacity
 
@@ -64,6 +68,8 @@ SYMBOL: capacity
 
 : gl-clear-color ( vec -- ) first4 [ glClearColor ] curry4 add-dlist ;
 
+: gl-get-floatv ( pname params -- ) [ glGetFloatv ] curry2 add-dlist ;
+
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
 : gl-clear ( mask -- ) [ glClear ] curry add-dlist ;
@@ -114,6 +120,8 @@ SYMBOL: capacity
 
 : gl-translate ( vec -- ) first3 [ glTranslatef ] curry3 add-dlist ;
 
+: gl-load-matrix ( byte-array -- ) [ glLoadMatrixf ] curry add-dlist ;
+
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
 : gl-enable ( cap -- ) [ glEnable ] curry add-dlist ;