(defvar *link-wrapped-p* nil)
-(define-layered-class description
+#+nil(define-layered-class description
:in-layer wrap-link ()
((link :initarg :link-action
:initarg :action
:initform nil :special t :accessor link-action)))
-(defaction call-action-with-component-and-object ((self component) action-id object)
+(defmethod/cc call-action-with-component-and-object ((self component) action-id object)
(funcall (ucw::find-action (ucw::context.current-frame *context*) action-id)
self
object))
(defvar *in-form-p* nil)
-(define-layered-class description
+#+nil(define-layered-class description
:in-layer wrap-form ()
((form-buttons :initarg :form-buttons :initform nil :special t :accessor form-buttons)
(form-type :initarg :form-type :initform '<ucw:simple-form :special t :accessor form-type)))
(deflayer wrap-div)
-(define-layered-class description
+#+nil(define-layered-class description
:in-layer wrap-div ()
((div-attributes :accessor div-attributes :initarg :div :special t :initform nil)))