-

info.rkt

@@ -1,7 +1,7 @@
 #lang info
 
 (define pkg-authors '(hnmdijkema))
-(define version "0.2.16")
+(define version "0.2.18")
 (define license 'MIT)   
 (define collection "web-racket")
 (define pkg-desc "web-racket - A Web Based GUI library, based on webui-wire")

private/web-racket.rkt

@@ -607,8 +607,8 @@
       (define/public (connect-menu! id cb)
         (hash-set! menu-cbs id cb))
 
-      (define/public (popup-menu menu-def)
-        (ww-popup-menu win-id menu-def)
+      (define/public (popup-menu menu-def x y)
+        (ww-popup-menu win-id menu-def x y)
         )
 
       ; files and directories

private/web-wire.rkt

@@ -811,7 +811,10 @@
   ;; Popup a menu
   (def-cmd ww-popup-menu
     popup-menu ((win-id ww-win?)
-                (menu is-menu?)) [] -> void)
+                (menu is-menu?)
+                (x number?)
+                (y number?)
+                ) [] -> void)
 
   (define (new-handle)
     #t)