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)