From bbe5b26854ddf2e995f006a19a414345d8fd8e4d Mon Sep 17 00:00:00 2001 From: Hans Dijkema Date: Sat, 9 Aug 2025 15:51:39 +0200 Subject: [PATCH] Update ellipsis-msg.scrbl - some example code --- scribblings/ellipsis-msg.scrbl | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) diff --git a/scribblings/ellipsis-msg.scrbl b/scribblings/ellipsis-msg.scrbl index 3677859..b89cdc9 100644 --- a/scribblings/ellipsis-msg.scrbl +++ b/scribblings/ellipsis-msg.scrbl @@ -46,5 +46,22 @@ See also @racket[message%]. Sets the message label. If resize = #t, the label will be resized (if auto-resize = #t) } +@section{Example code} + +@#reader scribble/comment-reader +[racketblock + (require racket/gui) + (require ellipsis-msg) + (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] [auto-resize #t] [stretchable-width #t])) + (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] [auto-resize #t] [stretchable-width #t])) + (send win show #t) +] + + }