From 7492defaab69c9515b5c144597f843556597e36f Mon Sep 17 00:00:00 2001 From: Hans Dijkema Date: Wed, 5 Nov 2025 21:23:41 +0100 Subject: [PATCH] Bring test code back in original state. --- private/web-racket.rkt | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/private/web-racket.rkt b/private/web-racket.rkt index 07c6d2d..9efe16f 100644 --- a/private/web-racket.rkt +++ b/private/web-racket.rkt @@ -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