[Openmcl-devel] File Dialogs...

[Raffael Cavallaro]

On Sep 18, 2004, at 3:55 PM, Brendan Burns wrote:

> Hey folks,
> attached is a patch/example file which provides handy lisp-i-fied open 
> and save dialogs for Cocoa/MacOS X.
>
> Gary et. al.  Feel free to incorporate this into the main source tree.
>
> Comments/Questions welcome.

Thanks for this, it seems quite useful.
I've tested it and I do have one minor correction - the default value 
for the message keyword parameter needs to be an empty string (or some 
string) not nil, or you get the following error:

(ccl::open-dialog "lisp")
 > Error in process Listener(5): value NIL is not of the expected type 
ARRAY.
 > While executing: CCL::ARRAY-DATA-AND-OFFSET

With these two tiny changes (nil -> ""  as the default for message in 
both ccl::open-dialog and ccl::save-dialog) here it is attached.

regards,
Ralph

-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: text/enriched
Size: 839 bytes
Desc: not available
URL: <https://lists.clozure.com/pipermail/openmcl-devel/attachments/20040918/dc920b0b/attachment.bin>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: file-dialog.lisp
Type: application/text
Size: 3492 bytes
Desc: not available
URL: <https://lists.clozure.com/pipermail/openmcl-devel/attachments/20040918/dc920b0b/attachment-0001.bin>
-------------- next part --------------


Raffael Cavallaro, Ph.D.
raffaelcavallaro at mac.com
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: text/enriched
Size: 104 bytes
Desc: not available
URL: <https://lists.clozure.com/pipermail/openmcl-devel/attachments/20040918/dc920b0b/attachment-0002.bin>