From e06ba17bd2b2fe8cc6eefbfd6a635fa17cc6867b Mon Sep 17 00:00:00 2001 From: Hans Dijkema Date: Wed, 6 Aug 2025 14:11:31 +0200 Subject: [PATCH] align --- main.rkt | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/main.rkt b/main.rkt index b3faf4e..6fafc1a 100644 --- a/main.rkt +++ b/main.rkt @@ -31,7 +31,7 @@ (define/private (column-alignment* c) (let ((align (vector-ref column-aligns c))) - (displayln align) + ;(displayln align) align)) (define/private (get-row* i) @@ -51,8 +51,8 @@ (let* ((row (get-row* r)) (cells (send row get-children))) (let ((cell (list-ref cells c))) - (call-with-values (lambda () (send cell get-alignment)) - (lambda (h v) (printf "h=~a, v=~a\n" h v))) + ;(call-with-values (lambda () (send cell get-alignment)) + ; (lambda (h v) (printf "h=~a, v=~a\n" h v))) cell))) (define/private (child* c r) @@ -78,7 +78,8 @@ (let ((child (child* c r))) (unless (eq? child #f) (send child min-width w)))) - (set-min-width* c (+ r 1) w)))) + ) + (set-min-width* c (+ r 1) w))) (define/private (arrange-col* c) (let* ((w (max-width* c 0 -1))