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