Re: accept for pathnames

• To: chyde@BBN.COM
• Subject: Re: accept for pathnames
• From: Daniel Cerys <cerys@BBN.COM>
• Date: Wed, 3 Nov 93 09:22:53 EST
• Cc: clim@BBN.COM
• Organization: Bolt Beranek and Newman Inc.
• Sender: cerys@BBN.COM

chyde@BBN.COM writes:
 > 
 > #+clim-2.0
 > 
 > wondering if anyone has modified the ACCEPT method for PATHNAME so
 > that it calls SELECT-FILE instead of expecting me to correctly type in
 > some lengthy string...

Almost what you want (you can augment the presentation type yourself):
(accept-values-command-button (stream) 
	       (format stream "~A" path)
	       ;;This is a Patch cuz :default doesn't work for Franz
	       (let ((path-dir (make-pathname :defaults path
					      :name nil :type nil)))
		 (when (probe-file path-dir)
		   (setf (working-directory) path-dir)))
	       (let ((new-path (select-file *application-frame* :default path)))
		 (when new-path
		   (setf path new-path))))

Dan

• Re: accept for pathnames
• From: Scott McKay <SWM@stony-brook.scrc.symbolics.com>

• Prev: accept for pathnames
• Next: another list-pane Q
• Index: CLIM Mailing list (1-Jan-93 to 31-May-94)
• Thread: CLIM Mailing list Index (1-Jan-93 to 31-May-94)