[mcclim-cvs] CVS mcclim

[thenriksen]

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)