Re: accept for pathnames

• To: cerys@BBN.COM, chyde@BBN.COM
• Subject: Re: accept for pathnames
• From: Scott McKay <SWM@stony-brook.scrc.symbolics.com>
• Date: Tue, 9 Nov 1993 11:47 -0500
• Cc: clim@BBN.COM
• In-Reply-To: <931103092253.70.cerys@bitburg.bbn.com>

    Date: Wed, 3 Nov 1993 09:22 EST
    From: Daniel Cerys <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

You could also try writing a new ACCEPT method for PATHNAME on a new
view class (the "SELECT-FILE" view).

• Re: accept for pathnames
• From: Daniel Cerys <cerys@BBN.COM>

• Prev: updating output of command tables
• Next: controlling redisplay-time
• Index: CLIM Mailing list (1-Jan-93 to 31-May-94)
• Thread: CLIM Mailing list Index (1-Jan-93 to 31-May-94)