[mcclim-cvs] CVS update: mcclim/Examples/accepting-values.lisp mcclim/Examples/dragndrop.lisp

[Timothy Moore]

Update of /project/mcclim/cvsroot/mcclim/Examples
In directory common-lisp.net:/tmp/cvs-serv6742/Examples

Modified Files:
	accepting-values.lisp dragndrop.lisp 
Log Message:

Implemented a pop-up-menu-view for displaying the completion
presentation type in a dialog.

Added some documentation for the internals of accepting-values.

Date: Tue Jan 18 02:58:11 2005
Author: tmoore

Index: mcclim/Examples/accepting-values.lisp
diff -u mcclim/Examples/accepting-values.lisp:1.1 mcclim/Examples/accepting-values.lisp:1.2
--- mcclim/Examples/accepting-values.lisp:1.1	Fri Oct 15 06:05:36 2004
+++ mcclim/Examples/accepting-values.lisp	Tue Jan 18 02:58:11 2005
@@ -44,3 +44,13 @@
 	     (setq ymin-changed nil
 		   ymax-changed nil)))))
   (values xmin xmax ymin ymax))
+
+;;; Test of McCLIM extension
+
+(defun accept-popup (seq &key (stream *query-io*))
+  (let ((val (elt seq 0))
+	(ptype `(completion ,seq)))
+    (accepting-values (stream)
+      (setq val (accept ptype :stream stream :view climi::+pop-up-menu-view+
+			:prompt "Choose one:" :default val)))
+    val))
\ No newline at end of file


Index: mcclim/Examples/dragndrop.lisp
diff -u mcclim/Examples/dragndrop.lisp:1.1 mcclim/Examples/dragndrop.lisp:1.2
--- mcclim/Examples/dragndrop.lisp:1.1	Tue Jan 11 05:35:40 2005
+++ mcclim/Examples/dragndrop.lisp	Tue Jan 18 02:58:11 2005
@@ -78,4 +78,7 @@
 (define-presentation-to-command-translator translator-clone-circle
     (circle com-clone-circle dragndrop)
     (object x y)
-  `(,object ,x ,y))
\ No newline at end of file
+  `(,object ,x ,y))
+
+(defun drag-circles ()
+  (run-frame-top-level (make-application-frame 'dragndrop)))