[Openmcl-devel] File Dialogs...

[Brendan Burns]

Thanks for the bug report!
I found the actual bug which was that I meant:

(if message (send panel :set-message (%make-nsstring message)))

instead of

(if panel (send panel :set-message (%make-nsstring message)))

today's moron award goes to me ;-P

A fixed version [for which (open-dialog "lisp")] is attached.

--brendan

-------------- next part --------------
A non-text attachment was scrubbed...
Name: file-dialog.lisp
Type: application/octet-stream
Size: 3499 bytes
Desc: not available
URL: <https://lists.clozure.com/pipermail/openmcl-devel/attachments/20040919/194fbdc5/attachment.obj>
-------------- next part --------------

On Sep 18, 2004, at 10:20 PM, Raffael Cavallaro wrote:

>
> 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
>
> <file-dialog.lisp>
>
> Raffael Cavallaro, Ph.D.
> raffaelcavallaro at mac.com