[mcclim-cvs] CVS mcclim

[thenriksen]

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

Modified Files:
	presentation-defs.lisp NEWS 
Log Message:
Added support for `presentation-type-specifier-p'.


--- /project/mcclim/cvsroot/mcclim/presentation-defs.lisp	2006/11/27 07:44:46	1.61
+++ /project/mcclim/cvsroot/mcclim/presentation-defs.lisp	2006/12/12 18:54:57	1.62
@@ -194,6 +194,21 @@
 	  (values t t)
 	  (values nil nil)))))
 
+(define-presentation-generic-function
+    %presentation-type-specifier-p
+    presentation-type-specifier-p
+  (type-class type))
+
+(define-default-presentation-method presentation-type-specifier-p (type)
+  t)
+
+(defun presentation-type-specifier-p (type)
+  "Return true if `type' is a valid presentation type specifier,
+otherwise return false."
+  (funcall-presentation-generic-function
+   presentation-type-specifier-p
+   type))
+
 (defun default-describe-presentation-type (description stream plural-count)
   (if (symbolp description)
       (setq description (make-default-description (symbol-name description))))
--- /project/mcclim/cvsroot/mcclim/NEWS	2006/12/10 23:26:39	1.11
+++ /project/mcclim/cvsroot/mcclim/NEWS	2006/12/12 18:54:57	1.12
@@ -9,6 +9,8 @@
 ** Improvement: Added new editor substrate ("Drei").
 ** Improvement: Improved the pathname presentation methods considerably.
 ** specification compliance: DELETE-GESTURE-NAME function now implemented.
+** specification compliance: PRESENTATION-TYPE-SPECIFIER-P presentaion
+   function now implemented.
 
 * Changes in mcclim-0.9.3 "All Souls' Day" relative to 0.9.2:
 ** backend improvement: The Null backend now registers itself in the