diff --git a/info.rkt b/info.rkt index 62a5011..3891108 100644 --- a/info.rkt +++ b/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") diff --git a/private/web-racket.rkt b/private/web-racket.rkt index 99bdaba..434fa46 100644 --- a/private/web-racket.rkt +++ b/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 diff --git a/private/web-wire.rkt b/private/web-wire.rkt index 25e9a65..1d85090 100644 --- a/private/web-wire.rkt +++ b/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)