Allow overriding alpha value

borodust · Aug 5, 2019 · da90e42 · da90e42
1 parent e78e605
commit da90e42
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/canvas/canvas.lisp b/canvas/canvas.lisp
@@ -98,6 +98,6 @@
      ,@body))
 
 
-(defmacro with-alpha ((value) &body body)
-  `(bodge-canvas:with-alpha (,value (%handle-of *canvas*))
+(defmacro with-alpha ((value &key override) &body body)
+  `(bodge-canvas:with-alpha (,value :override ,override :canvas (%handle-of *canvas*))
      ,@body))