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

(in-package :hu.dwim.presentation)

(def subtype-mapper *inspector-type-mapping* (hu.dwim.perec::set hu.dwim.perec::persistent-object) sequence/alternator/inspector)

(def method object-slot-place-editable? ((place object-slot-place) (class hu.dwim.meta-model::entity) (instance hu.dwim.perec::persistent-object) (slot hu.dwim.meta-model::effective-property))
  (hu.dwim.meta-model::editable-p slot))

(def layered-method collect-presented-slots ((component sequence/table/inspector) (class hu.dwim.meta-model::entity) (prototype hu.dwim.perec::persistent-object) (value list))
  (collect-if (lambda (slot)
                (or (not (typep slot 'hu.dwim.meta-model::effective-property))
                    (hu.dwim.meta-model::primary-p slot)))
              (call-next-layered-method)))