FIX: entities under flyweight

[rulp/rulp.git] / graphics / menu.lisp

diff --git a/graphics/menu.lisp b/graphics/menu.lisp
index 3519ae8..ce5c132 100644 (file)
--- a/graphics/menu.lisp
+++ b/graphics/menu.lisp
@@ -24,10 +24,6 @@
 (defparameter *entries-list* nil
   "List of entries, menues who are generated into the window with options")
 
-(defgeneric x (entry))
-(defgeneric y (entry))
-(defgeneric width (entry))
-(defgeneric height (entry))
 (defgeneric rectangle (entry))
 
 (defclass entry ()
@@ -69,11 +65,11 @@
                           :documentation "when :v the contents and title
 are displaced vertically, when :h the contents are horizontally displayed")))
 
-(defmethod x ((entry entry))
-  (car (coordinates entry)))
+(defmethod x ((obj entry))
+  (car (coordinates obj)))
 
-(defmethod y ((entry entry))
-  (cdr (coordinates entry)))
+(defmethod y ((obj entry))
+  (cdr (coordinates obj)))
 
 ;; (defmethod width ((entry entry))
 ;;   200)