subclass UCW's form classes in the editor layer.

[clinton/lisp-on-lines.git] / src / attributes / numbers.lisp

diff --git a/src/attributes/numbers.lisp b/src/attributes/numbers.lisp
index 6fb0460..a2d4b8f 100644 (file)
--- a/src/attributes/numbers.lisp
+++ b/src/attributes/numbers.lisp
@@ -9,6 +9,11 @@
   ()
   (:type-name integer))
 
+(defattribute integer-attribute (number-attribute integer-field)
+  ()
+  (:in-layer editor)
+  (:type-name integer))
+
 
 (define-layered-method (setf attribute-value) ((value string) object (attribute integer-attribute))           
   (let ((*read-eval* nil))