[racket] CFRunLoopGetMain on Os X

I had looked at the module and the problem was that even requiring it
started the gui stuff, but taking a closer look I found a solution.

(module helper racket/base
  (module inner-helper racket/base
    (require ffi/unsafe)
    (require mred/private/wx/common/once)
    (void (scheme_register_process_global "PLT_IS_FOREGROUND_APP"
(get-ffi-obj "main" #f _pointer))))
  (require 'inner-helper mred/private/wx/cocoa/init))
(require 'helper)

It seems like this could be made simpler, but it works for me now. Thanks
for the pointer.


On Sat, Dec 8, 2012 at 4:29 AM, Matthew Flatt <mflatt at cs.utah.edu> wrote:

> I think you mostly want `mred/private/wx/cocoa/queue', but some
> refactoring or parameterization may be needed to get it in the right
> form.
>
> At Sat, 8 Dec 2012 01:44:54 -0800, Eric Dobson wrote:
> > I'm trying to do some OS X programming and one of the api's I'm using
> > requires a CFRunLoop. Using CFRunLoopGetMain works fine if I require
> > racket/gui/base, but not otherwise (The loop does not seem to be
> running).
> > The problem with this is that this starts up a gui application in the
> dock
> > and changes the focus to this application. Is it possible to get racket
> to
> > do the necessary setup to interact with Carbon and Core Foundations
> without
> > bringing in the whole gui?
> > ____________________
> >   Racket Users list:
> >   http://lists.racket-lang.org/users
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.racket-lang.org/users/archive/attachments/20121208/56200e84/attachment.html>