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)))