Index: presentation-defs.lisp
===================================================================
RCS file: /project/mcclim/cvsroot/mcclim/presentation-defs.lisp,v
retrieving revision 1.49
diff -u -r1.49 presentation-defs.lisp
--- presentation-defs.lisp	4 Jan 2006 09:45:35 -0000	1.49
+++ presentation-defs.lisp	17 Jan 2006 15:36:44 -0000
@@ -810,7 +810,7 @@
 		 (additional-activation-gestures nil additional-activations-p)
 		 (delimiter-gestures nil delimitersp)
 		 (additional-delimiter-gestures nil  additional-delimiters-p))
-  (declare (ignore provide-default insert-default history active-p
+  (declare (ignore provide-default history active-p
 		   prompt prompt-mode
 		   display-default query-identifier))
   (when (and defaultp (not default-type-p))
@@ -830,6 +830,13 @@
 				 (declare (ignore stream))
 				 (funcall cont))))
       (with-input-position (stream)	; support for calls to replace-input
+        (when insert-default
+          ;; Insert the default value to the input stream. It should
+          ;; become fully keyboard-editable.
+          (presentation-replace-input stream
+                                       default
+                                       default-type
+                                       view))
 	(setf (values sensitizer-object sensitizer-type)
 	      (with-input-context (type)
 		  (object object-type event options)
@@ -846,10 +853,10 @@
 			  (setq accept-results
 				(multiple-value-list
 				 (if defaultp
-				     (funcall-presentation-generic-function
-				      accept type stream view
-				      :default default
-				      :default-type default-type)
+                                     (funcall-presentation-generic-function
+                                      accept type stream view
+                                      :default default
+                                      :default-type default-type)
 				     (funcall-presentation-generic-function
 				      accept type stream view))))
 			;; User entered activation or delimeter
@@ -897,6 +904,7 @@
 			    &key
 			    (default nil defaultp)
 			    (default-type type)
+                            (insert-default nil)
 			    (prompt t)
 			    (prompt-mode :normal)
 			    (display-default prompt)
@@ -914,7 +922,11 @@
 				     *recursive-accept-p*
 				     (describe-presentation-type type nil nil))
 			     prompt))
-	  (default-string (if (and defaultp display-default)
+          ;; Don't display the default in the prompt if it is to be
+          ;; inserted into the input stream.
+	  (default-string (if (and defaultp
+                                   (not insert-default)
+                                   display-default)
 			      (present-to-string default default-type)
 			      nil)))
       (cond ((null prompt)