From 23284accc56c71f3e293fc9ac0c923988ce4ab6a Mon Sep 17 00:00:00 2001 From: Boutade Date: Tue, 15 Oct 2019 11:39:17 -0500 Subject: on-complete extensions --- tweening.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'tweening.lisp') diff --git a/tweening.lisp b/tweening.lisp index bc9f37e..df9b398 100644 --- a/tweening.lisp +++ b/tweening.lisp @@ -58,7 +58,7 @@ ((:sine-in-out :sinusoidal-in-out) #'sinusoidal-in-out) ((:sine-out :sinusoidal-out ) #'sinusoidal-out))) -(defun animating (&key (by :none) the of to for at) +(defun animating (&key (by :none) the of to for at before) "A wrapper around ANIMATE that is aware of any default values defined in the the most recently enclosing form. @@ -88,6 +88,7 @@ the to :start (or at (when-bound *start-time*) 0) + :on-complete before :ease (if (functionp by) by (keyword->ease-fn by)) :duration (or for (when-bound *duration*) 0))) -- cgit v1.2.3