Re: choose-file-dialog

[reti@cambridge.apple.com (Kalman Reti)]

At  3:05 PM 11/2/94 -0600, Steven Feist wrote:
>I'm interested in using the new Standard/CustomGetFilePreview traps.
>I've gotten them to work, but I like the CHOOSE-FILE-DIALOG :button-string
>option, and I'm looking for a good way to add that functionality, preferably
>without including an entire alternate dialog.  I'd be interested in seeing,
>if possible the choose-file-dialog code, and/or getting any other suggestions.
>
>Thanks.
>----
>Steven Feist (feist@ils.nwu.edu)
>Institute for the Learning Sciences
>1890 Maple Avenue
>Evanston, IL 60201

[The short answer]

The source for that function is on the MCL 2.0.1, under the Additional MCL
Sources folder.

[The longer answer]

Here's how to set things up so you can meta-dot the additional sources on
the MCL CD-ROM to answer questions like this for yourself.  (Sorry, not
everything is shipped on the CD-ROM, but a lot of the user-interface stuff
is.)

Either 1) load edit-kernel-definitions.fasl from the Additional MCL Source
Code folder into your MCL in your init file or 2) copy the CCL image from the
CD-ROM folder Unsupported Goodies from Apple: CCL 2.0.1: to the same
folder which holds your MCL image and launch it instead of MCL.  [A CCL
is an MCL with the swappable functions pre-loaded and with source-file
information in the image.  The patch file adds back in the source file
information but takes a long time to load.  The CCL image is faster but
bigger and defaults to the CCL package instead of CL-USER.  You can decide
which is better for you.]

Then copy the three folders in the Additional MCL Source Code folder into
the same folder that holds your MCL image.  This will make m-. of things
like choose-file-dialog work.

Along similar lines, you can load the file "ccl:examples;edit-callers" to
looks for all the "callers" of a function.  When this file is loaded, c-C
instead of m-. when the insertion point is inside a function name will pop
up a dialog listing the callers of that function.  Double clicking on a function
name in that dialog is equivalent to m-.ing that function.