From 58371229f069906b490cf7f807d4a4bc1ae09069 Mon Sep 17 00:00:00 2001 From: Hans Dijkema Date: Wed, 6 Aug 2025 16:23:38 +0200 Subject: [PATCH] ? --- main.rkt | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/main.rkt b/main.rkt index 6fafc1a..d2be0c2 100644 --- a/main.rkt +++ b/main.rkt @@ -156,7 +156,8 @@ ;(send g column-min-width 1 500) ;(send g column-align 2 'right) -;(define btn1 (new button% [parent g] [label "Button 1"])) +;(define btn1 (new button% [parent g] [label "Button 1"] +; [callback (lambda (b e) (send lbl1 set-label "New label"))])) ;(define g1 (new gauge% [parent g] [stretchable-width #t] [label "gauge 1"] [range 100])) ;(define lbl1 (new message% [parent g] [label "This is lbl 1 and long"])) @@ -164,7 +165,8 @@ ;(define g2-lbl (new message% [parent g] [label "This is something else then a gauge"])) ;(define lbl2 (new message% [parent g] [label "This is lbl 2"])) -;(define btn3 (new button% [parent g] [label "Btn 3"])) +;(define btn3 (new button% [parent g] [label "Btn 3"] +; [callback (lambda (b e) (send lbl3 set-label "Longer label now"))])) ;(define g3-lbl (new message% [parent g] [label "This is something else then a gauge, another message"])) ;(define lbl3 (new message% [parent g] [label "short"]))