[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: a listener that won't listen
- To: bill@cambridge.apple.com (Bill St. Clair)
- Subject: Re: a listener that won't listen
- From: mts@cs.toronto.edu (Martin Stanley)
- Date: Mon, 30 Jan 1995 22:08:18 -0500
- Cc: info-mcl@digitool.com, bill@cambridge.apple.com
- Sender: owner-info-mcl@digitool.com
At 11:04 AM 1/30/95 -0500, Bill St. Clair wrote:
>The Listener won't "Listen" unless MCL's toplevel loop is running
>to do so. Basically, you need to be inside of ccl:toplevel-loop.
>Hence, your MCL function needs to end with:
>
>(defun mcl ()
> ...
> (%set-toplevel 'toplevel-loop)
> (toplevel))
>
>Likewise, the function that switches back to your application's
>menubar needs to %set-toplvel to your application's toplevel-loop
>and execute (toplevel) to install it.
Thank you for your response. I can't believe I forgot about this!
What happens if (toplevel) is not executed? I fixed my code to do a
set-toplevel, but did not do this and it seemed to work.
Martin