hans/columns-pane
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

?

Browse Source
This commit is contained in:
Hans Dijkema
2025-08-06 16:23:38 +02:00
parent e06ba17bd2
commit 58371229f0
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
main.rkt
View File

@@ -156,7 +156,8 @@
;(send g column-min-width 1 500) ;(send g column-min-width 1 500)
;(send g column-align 2 'right) ;(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 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"])) ;(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 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 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 g3-lbl (new message% [parent g] [label "This is something else then a gauge, another message"]))
;(define lbl3 (new message% [parent g] [label "short"])) ;(define lbl3 (new message% [parent g] [label "short"]))