diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/interactive/button.lisp | 2 | ||||
| -rw-r--r-- | src/interactive/sprite.lisp | 4 | ||||
| -rw-r--r-- | src/package.lisp | 82 |
3 files changed, 84 insertions, 4 deletions
diff --git a/src/interactive/button.lisp b/src/interactive/button.lisp index 08f7f37..0a15d79 100644 --- a/src/interactive/button.lisp +++ b/src/interactive/button.lisp @@ -7,7 +7,7 @@ :std (error "UP and DOWN lots are required") :doc "Any affine renderable unit") (bg :with) - (on-press on-release :doc "Function accepting the button.")) + (on-press on-release :with :doc "Function accepting the button.")) (:documentation "A basic button class. The UP and DOWN slots should be filled with renderable objects having the same size.")) diff --git a/src/interactive/sprite.lisp b/src/interactive/sprite.lisp index 03bba8d..e478d37 100644 --- a/src/interactive/sprite.lisp +++ b/src/interactive/sprite.lisp @@ -4,11 +4,11 @@ (defclass/std sprite (unit interactive) ((framesets :with :doc "A PLIST whose values are framesets.") - (frameset-key))) + (frameset-key :with))) (defun current-frameset (sprite) (getf (sprite-framesets sprite) - (frameset-key sprite))) + (sprite-frameset-key sprite))) (defmethod initialize-instance :after ((sprite sprite) &key) (with-slots (framesets frameset-key) sprite diff --git a/src/package.lisp b/src/package.lisp index 5a59057..dc18ef4 100644 --- a/src/package.lisp +++ b/src/package.lisp @@ -7,4 +7,84 @@ (#:vec #:3d-vectors)) (:import-from #:defclass-std #:defclass/std) (:import-from #:alexandria - #:when-let #:when-let* #:if-let)) + #:when-let #:when-let* #:if-let) + (:export + #:add-handler + #:add-unit + #:application + #:asset-root + #:asset-classifiers + #:appplication-scale + #:application-width + #:application-height + #:application-window + #:refocus-on-mousedown-p + #:application-focus + #:fps + #:bitmap + #:boot + #:button + #:button-up + #:button-down + #:button-bg + #:button-on-press + #:button-on-release + #:container + #:container-left + #:container-right + #:container-top + #:container-bottom + #:container-units + #:current-frameset + #:defhandler + #:drop-unit + #:frameset-index + #:frameset-key + #:get-asset + #:get-focus + #:make-frameset + #:on-after-added + #:on-before-added + #:on-before-dropped + #:on-blur + #:on-focus + #:on-keydown + #:on-keyup + #:on-mousedown + #:on-mousemotion + #:on-mousewheel + #:on-perframe + #:radians + #:refocus-on + #:remove-handler + #:runningp + #:shutdown + #:sprite + #:sprite-frameset + #:sprite-frameset-key + #:start + #:text + #:text-color + #:unit-container + #:unit-visbilep + #:units-intersect-p + #:x + #:y + #:width + #:height + #:rotation + #:scale-by + #:keydown + #:keyup + #:mousedown + #:mouseup + #:mousemotion + #:mousewheel + #:focus + #:blur + #:perframe + #:after-added + #:before-added + #:before-dropped + + )) |