From a9e6434d81d5b11156bd1586403d89d22ee882f8 Mon Sep 17 00:00:00 2001 From: Hans Dijkema Date: Wed, 6 Aug 2025 13:51:10 +0200 Subject: [PATCH] align --- main.rkt | 5 +++-- scribblings/columns-pane.scrbl | 11 +++++++++-- 2 files changed, 12 insertions(+), 4 deletions(-) diff --git a/main.rkt b/main.rkt index 37a5f3f..1f55eff 100644 --- a/main.rkt +++ b/main.rkt @@ -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) diff --git a/scribblings/columns-pane.scrbl b/scribblings/columns-pane.scrbl index 7edb95c..edbfbdd 100644 --- a/scribblings/columns-pane.scrbl +++ b/scribblings/columns-pane.scrbl @@ -32,12 +32,19 @@ See also @racket[pane%]. [stretchable-height any/c #t])]{ } -@defmethod*[([(min-width (c column-index) [w dimenstion-integer?]) dimension-integer?])]{ +@defmethod*[([(column-min-width (c column-index) [w dimenstion-integer?]) dimension-integer?])]{ Gets or sets the minimum width (in pixels) of the given column c. Returns the currently set minimum width for the given column. } - + +@defmethod*[([(column-align (c column-index) [align <- (or/c 'left 'center 'right)]) (or/c 'left 'center 'right) ])]{ + Gets or sets the horizontal alignment of a given column c. + + Returns the currently set alignment. + + Note. Use this right after declaring the columns pane and before adding any children. +} }