Update of /project/mcclim/cvsroot/mcclim In directory clnet:/tmp/cvs-serv24404

Modified Files: text-editor-gadget.lisp Log Message: Changed the Drei/ESA modes-idea to work through metaclasses, enabling default modes.

--- /project/mcclim/cvsroot/mcclim/text-editor-gadget.lisp 2007/10/26 17:01:15 1.10 +++ /project/mcclim/cvsroot/mcclim/text-editor-gadget.lisp 2008/01/11 02:44:14 1.11 @@ -90,6 +90,7 @@ (defclass drei-editor-substrate (drei:drei-gadget-pane editor-substrate-mixin) () + (:metaclass esa-utils:modual-class) (:documentation "A class for Drei-based editor substrates."))

(defmethod (setf gadget-value) :after (value (gadget drei-editor-substrate) @@ -101,6 +102,7 @@ (defclass drei-text-field-substrate (text-field-substrate-mixin drei-editor-substrate) () + (:metaclass esa-utils:modual-class) (:documentation "The class for Drei-based text field substrates."))

(defmethod drei:handle-gesture ((drei drei-text-field-substrate) gesture) @@ -123,6 +125,7 @@ (defclass drei-text-editor-substrate (text-editor-substrate-mixin drei-editor-substrate) () + (:metaclass esa-utils:modual-class) (:documentation "The class for Drei-based text editor substrates."))

(defmethod compose-space ((pane drei-text-editor-substrate) &key width height)