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 14:11:31 +02:00
parent ff1c5a6602
commit e06ba17bd2
1 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
main.rkt
View File

@@ -31,7 +31,7 @@
(define/private (column-alignment* c) (define/private (column-alignment* c)
(let ((align (vector-ref column-aligns c))) (let ((align (vector-ref column-aligns c)))
(displayln align) ;(displayln align)
align)) align))
(define/private (get-row* i) (define/private (get-row* i)
@@ -51,8 +51,8 @@
(let* ((row (get-row* r)) (let* ((row (get-row* r))
(cells (send row get-children))) (cells (send row get-children)))
(let ((cell (list-ref cells c))) (let ((cell (list-ref cells c)))
(call-with-values (lambda () (send cell get-alignment)) ;(call-with-values (lambda () (send cell get-alignment))
(lambda (h v) (printf "h=~a, v=~a\n" h v))) ; (lambda (h v) (printf "h=~a, v=~a\n" h v)))
cell))) cell)))
(define/private (child* c r) (define/private (child* c r)
@@ -78,7 +78,8 @@
(let ((child (child* c r))) (let ((child (child* c r)))
(unless (eq? child #f) (unless (eq? child #f)
(send child min-width w)))) (send child min-width w))))
(set-min-width* c (+ r 1) w)))) )
(set-min-width* c (+ r 1) w)))
(define/private (arrange-col* c) (define/private (arrange-col* c)
(let* ((w (max-width* c 0 -1)) (let* ((w (max-width* c 0 -1))