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

align

Browse Source
This commit is contained in:
Hans Dijkema
2025-08-06 13:51:10 +02:00
parent 01211e9aa7
commit a9e6434d81
2 changed files with 12 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
main.rkt
View File

@@ -22,8 +22,8 @@
(letrec ((adder (lambda (col)
(when (< col columns)
(new horizontal-pane% [parent new-pane] [stretchable-width #t]
[alignment (list (column-alignment* col) 'center)]))
(adder (+ col 1)))))
[alignment (list (column-alignment* col) 'center)])
(adder (+ col 1))))))
(adder 0))
(set! creating-row #f)
new-pane)
@@ -139,6 +139,7 @@
;(define lbl1 (new message% [parent g] [label "This is lbl 1"]))
;(define btn2 (new button% [parent g] [label "Btn 2"]))
;(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"]))
;(send win show #t)