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

col-align

Browse Source
This commit is contained in:
Hans Dijkema
2025-08-06 13:42:19 +02:00
parent 1148187c11
commit 203e78d740
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
main.rkt
View File

@@ -22,13 +22,16 @@
(letrec ((adder (lambda (col) (letrec ((adder (lambda (col)
(when (< col columns) (when (< col columns)
(new horizontal-pane% [parent new-pane] [stretchable-width #t] (new horizontal-pane% [parent new-pane] [stretchable-width #t]
[alignment (list (cell-alignment* col) 'center)])) [alignment (list (column-alignment* col) 'center)]))
(adder (+ col 1))))) (adder (+ col 1)))))
(adder 0)) (adder 0))
(set! creating-row #f) (set! creating-row #f)
new-pane) new-pane)
) )
(define/private (column-alignment* c)
(vector-ref column-aligns c))
(define/private (get-row* i) (define/private (get-row* i)
(when (eq? hpanes #f) (when (eq? hpanes #f)
(set! hpanes (make-vector (+ i 1) #f))) (set! hpanes (make-vector (+ i 1) #f)))