hans/columns-pane
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

columns usage

Browse Source
This commit is contained in:
Hans Dijkema
2025-08-06 13:27:24 +02:00
parent 07a11c7d1a
commit e326d8752d
1 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
main.rkt
View File

@@ -10,7 +10,6 @@
;; Internal data ;; Internal data
(define hpanes #f) (define hpanes #f)
(define column-min-widths (make-vector columns 0))
(define creating-row #f) (define creating-row #f)
(define current-col 0) (define current-col 0)
(define current-row 0) (define current-row 0)
@@ -77,10 +76,13 @@
;; Fields that can be given ;; Fields that can be given
(init-field [vert-margin 5] [horiz-margin 5] [spacing 5] [columns 1]) (init-field [vert-margin 5] [horiz-margin 5] [spacing 5] [columns 1])
;; Internal data
(define column-min-widths (make-vector columns 0))
;; Public methods ;; Public methods
(define/public (column-min-width c . w) (define/public (column-min-width c . w)
(unless (null? w) (unless (null? w)
(vector-set! column-min-widths c w)) (vector-set! column-min-widths c (car w)))
(vector-ref column-min-widths c)) (vector-ref column-min-widths c))
@@ -111,6 +113,7 @@
;(define grid-group (new group-box-panel% [label "My group"] [parent win] [horiz-margin 10] [vert-margin 10])) ;(define grid-group (new group-box-panel% [label "My group"] [parent win] [horiz-margin 10] [vert-margin 10]))
;(define g (new columns-pane% [parent grid-group] [columns 3])) ;(define g (new columns-pane% [parent grid-group] [columns 3]))
;(send g column-min-width 1 500)
;(define btn1 (new button% [parent g] [label "Button 1"])) ;(define btn1 (new button% [parent g] [label "Button 1"]))
;(define g1 (new gauge% [parent g] [stretchable-width #t] [label "gauge 1"] [range 100])) ;(define g1 (new gauge% [parent g] [stretchable-width #t] [label "gauge 1"] [range 100]))