From 203e78d740d0dea2fa9b6bc29e33561150a0174e Mon Sep 17 00:00:00 2001 From: Hans Dijkema Date: Wed, 6 Aug 2025 13:42:19 +0200 Subject: [PATCH] col-align --- main.rkt | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/main.rkt b/main.rkt index 5f2bcd2..9c3759c 100644 --- a/main.rkt +++ b/main.rkt @@ -22,12 +22,15 @@ (letrec ((adder (lambda (col) (when (< col columns) (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 0)) (set! creating-row #f) new-pane) ) + + (define/private (column-alignment* c) + (vector-ref column-aligns c)) (define/private (get-row* i) (when (eq? hpanes #f)