;;; -*- mode: Lisp; Syntax: Common-Lisp; -*-
;;;
;;; Copyright (c) 2009 by the authors.
;;;
;;; See LICENCE for details.

(in-package :hu.dwim.presentation)

;;;;;;
;;; context-menu/mixin

(def (component e) context-menu/mixin ()
  ((context-menu
    nil
    :type component
    :documentation "REFRESH-COMPONENT will call MAKE-CONTEXT-MENU, a NIL return value means there's no CONTEXT-MENU for this COMPONENT."))
  (:documentation "A COMPONENT with a CONTEXT-MENU."))

(def refresh-component context-menu/mixin
  (bind (((:slots context-menu) -self-)
         (class (component-dispatch-class -self-))
         (prototype (component-dispatch-prototype -self-))
         (value (component-value-of -self-)))
    (setf context-menu (make-context-menu -self- class prototype value))))

(def (function e) render-context-menu-for (component)
  (awhen (context-menu-of component)
    (render-component it)))

(def layered-method make-context-menu ((component context-menu/mixin) class prototype value)
  (awhen (make-context-menu-items component class prototype value)
    (make-instance 'context-menu/widget :menu-items it)))

(def layered-method make-context-menu :in passive-layer ((component context-menu/mixin) class prototype value)
  nil)