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 13:51:10 +02:00
parent 01211e9aa7
commit a9e6434d81
2 changed files with 12 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
main.rkt
View File

@@ -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)

11
scribblings/columns-pane.scrbl
View File

@@ -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.
}
}