<HTML><FONT FACE=arial,helvetica><FONT SIZE=2 FAMILY="SANSSERIF" FACE="Arial" LANG="1">Hello<BR>
<BR>
I work under Windows and I don't have ever test if it works under Mac and Unix<BR>
this is the method that create the popup-menu when the callback is completed<BR>
<BR>
(define (popup)<BR>
(define pop-up-menu <BR>
(make-object popup-menu% "Test" void))<BR>
<BR>
(define popup-delete <BR>
(make-object menu-item% "Exit" pop-up-menu <BR>
(lambda (a b) <BR>
(exit)) #\X ) )<BR>
<BR>
(define popup-MAJ <BR>
(make-object menu-item% "Update" pop-up-menu <BR>
(lambda (a b) (update))))<BR>
<BR>
(define popup-execute <BR>
(make-object menu-item% "Execute" pop-up-menu void #\E "))<BR>
<BR>
(send box popup-menu pop-up-menu 50 20 )) ; box is the text% where the popupmenu appears<BR>
<BR>
the popup menu appears well, but no callback is performed when clicking on the item. If you know why ?</FONT></HTML>