hans/web-racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-

Browse Source
This commit is contained in:
Hans Dijkema
2026-02-19 14:13:17 +01:00
parent 4fbb9c53ff
commit bb3d4ead51
3 changed files with 7 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
info.rkt
View File

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

4
private/web-racket.rkt
View File

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

5
private/web-wire.rkt
View File

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