Cheaply fix box-shadow property to accept inset arg.

This commit is contained in:
Shinmera 2016-10-12 12:12:16 +02:00
parent 92bd82c65f
commit 5ecf6eb422
No known key found for this signature in database
GPG Key ID: E12B14478BE4C922
1 changed files with 3 additions and 3 deletions

View File

@ -223,7 +223,7 @@ is used as a fallback."
(:default (property)
(make-property property (format NIL "~{~a~^ ~}" (mapcar #'resolve args)))))
(define-browser-property box-shadow (x y &optional blur spread color)
(define-browser-property box-shadow (inset x y &optional blur spread color)
(:default (property)
(make-property property (format NIL "~a ~a~@[ ~a~]~@[ ~a~]~@[ ~a~]"
(resolve x) (resolve y) (resolve blur) (resolve spread) (resolve color)))))
(make-property property (format NIL "~a ~a ~a~@[ ~a~]~@[ ~a~]~@[ ~a~]"
(resolve inset) (resolve x) (resolve y) (resolve blur) (resolve spread) (resolve color)))))