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

Bring test code back in original state.

Browse Source
This commit is contained in:
Hans Dijkema
2025-11-05 21:23:41 +01:00
parent 58a448c5ee
commit 7492defaab
1 changed files with 7 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
private/web-racket.rkt
View File

@@ -455,6 +455,7 @@
(ww-set-icon win-id icn))
(define/public (set-html-file! file)
(ww-debug (format "set-html-file! ~a" file))
(set! html-file file)
(set! html-handle (ww-set-html win-id html-file))
(ww-debug (format "html file set to ~a" html-file))
@@ -640,12 +641,12 @@
(define/override (html-loaded)
(ww-debug "HTML LOADED")
(super html-loaded)
;(let* ((btn (send this element 'app-button)))
; (send btn connect 'click (λ (data)
; (new test-dialog% [parent this]))))
;(ww-debug "SETTING MENU")
;(send this set-menu! test-menu)
;(send this connect-menu! 'm-quit (λ () (send this close)))
(let* ((btn (send this element 'app-button)))
(send btn connect 'click (λ (data)
(new test-dialog% [parent this]))))
(ww-debug "SETTING MENU")
(send this set-menu! test-menu)
(send this connect-menu! 'm-quit (λ () (send this close)))
)
(begin