diff options
| -rw-r--r-- | wheelwork.lisp | 15 |
1 files changed, 2 insertions, 13 deletions
diff --git a/wheelwork.lisp b/wheelwork.lisp index 8638c60..c9ce939 100644 --- a/wheelwork.lisp +++ b/wheelwork.lisp @@ -25,6 +25,7 @@ whole groups of units")) (defgeneric drop-unit (unit)) +(defgeneric add-unit (container unit)) (defmethod drop-unit ((unit unit)) "Removes a unit from its container. Returns T if the unit actually was removed." @@ -34,8 +35,6 @@ (unit-container unit) nil) t)) -(defgeneric add-unit (container unit)) - (defmethod add-unit ((container container) (unit unit)) "Adds a unit to the end of a container (thus affecting render order). Makes sure to remove the unit from its current container if @@ -47,6 +46,7 @@ necessary." (list unit))) unit) + (defclass/std event-handler () ((event-type handler-function :ri)) (:metaclass closer-mop:funcallable-standard-class)) @@ -290,17 +290,6 @@ necessary." -(defgeneric translate-by (thing dx dy)) -(defgeneric rotate-by (thing radians)) -(defgeneric scale-by (thing sx sy)) -(defgeneric pixel-width (thing)) -(defgeneric (setf pixel-width) (newval thing)) -(defgeneric pixel-height (thing)) -(defgeneric (setf pixel-height) (newval thing)) - -(defgeneric visible-pixel-at-p (object x y) - (:documentation "returns T if the visible pixel at screen - coordintaes x and y belogns to object. Used for event handling.")) (defgeneric model-matrix (thing) (:documentation "Returns the model matrix")) |