[plt-scheme] problem with popup-menu ?

Hello

I work under Windows and I don't have ever test if it works under Mac and 
Unix
this is the method that create the popup-menu when the callback is completed

  (define (popup)
    (define pop-up-menu 
             (make-object popup-menu% "Test" void))

    (define popup-delete 
             (make-object menu-item% "Exit" pop-up-menu 
                           (lambda (a b) 
                               (exit)) #\X ) )

    (define popup-MAJ 
             (make-object menu-item% "Update" pop-up-menu 
                        (lambda (a b) (update))))

    (define popup-execute 
             (make-object menu-item% "Execute" pop-up-menu void #\E "))

    (send box popup-menu pop-up-menu 50 20 )) ; box is the text% where the 
popupmenu appears

the popup menu appears well, but no callback is performed when clicking on 
the item. If you know why ?
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.racket-lang.org/users/archive/attachments/20030415/1ee466c7/attachment.html>