From da90e42515dca31fdd09a9ad3897eaa917e3d9ba Mon Sep 17 00:00:00 2001 From: Pavel Korolev Date: Mon, 5 Aug 2019 22:36:35 +0300 Subject: [PATCH] Allow overriding alpha value --- canvas/canvas.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/canvas/canvas.lisp b/canvas/canvas.lisp index 407eb48..175f6f7 100644 --- 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))