[mcclim-cvs] CVS mcclim/Doc

[thenriksen]

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

Modified Files:
	ex3.lisp 
Log Message:
Made the `string' present method respect the :accept keyword argument,
updated an example program to exploit this.


--- /project/mcclim/cvsroot/mcclim/Doc/ex3.lisp	2004/07/22 12:05:24	1.1
+++ /project/mcclim/cvsroot/mcclim/Doc/ex3.lisp	2007/02/10 21:32:21	1.2
@@ -21,9 +21,11 @@
 (define-superapp-command (com-quit :name t) ()
   (frame-exit *application-frame*))
 
-(define-presentation-type name-of-month ())
+(define-presentation-type name-of-month ()
+  :inherit-from 'string)
 
-(define-presentation-type day-of-month ())
+(define-presentation-type day-of-month ()
+  :inherit-from 'integer)
 
 (define-superapp-command (com-out :name t) ()
   (with-output-as-presentation (t "The third month" 'name-of-month)