From d1f66be491abbdec4c0dae843858814f0837cd6e Mon Sep 17 00:00:00 2001 From: Hans Dijkema Date: Fri, 8 Aug 2025 00:01:27 +0200 Subject: [PATCH] ok --- main.rkt | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/main.rkt b/main.rkt index c6c0e6d..c130871 100644 --- a/main.rkt +++ b/main.rkt @@ -60,11 +60,11 @@ my_label) )) -(define win (new frame% [label "Hi there!"])) -(define hp1 (new horizontal-pane% [parent win])) -(define btn1 (new button% [label "Longer 1"] [parent hp1] [callback (lambda (b e) (send lbl1 set-label "This is a very long text, yes a longer text than we initial put"))])) -(define lbl1 (new ellipsis-msg% [label "This is an ellipsis label"] [parent hp1] [ellipsis 'right])) -(define hp2 (new horizontal-pane% [parent win])) -(define btn2 (new button% [label "Longer 2"] [parent hp2] [callback (lambda (b e) (send lbl2 set-label "This is a very long second text, yes a longer text than we initial put"))])) -(define lbl2 (new ellipsis-msg% [label "This is an ellipsis label"] [parent hp2] [ellipsis 'left])) -(send win show #t) +;(define win (new frame% [label "Hi there!"])) +;(define hp1 (new horizontal-pane% [parent win])) +;(define btn1 (new button% [label "Longer 1"] [parent hp1] [callback (lambda (b e) (send lbl1 set-label "This is a very long text, yes a longer text than we initial put"))])) +;(define lbl1 (new ellipsis-msg% [label "This is an ellipsis label"] [parent hp1] [ellipsis 'right])) +;(define hp2 (new horizontal-pane% [parent win])) +;(define btn2 (new button% [label "Longer 2"] [parent hp2] [callback (lambda (b e) (send lbl2 set-label "This is a very long second text, yes a longer text than we initial put"))])) +;(define lbl2 (new ellipsis-msg% [label "This is an ellipsis label"] [parent hp2] [ellipsis 'left])) +;(send win show #t)