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)