From e326d8752d4a5713b04fd02ed858f8e0e463c5bd Mon Sep 17 00:00:00 2001 From: Hans Dijkema Date: Wed, 6 Aug 2025 13:27:24 +0200 Subject: [PATCH] columns usage --- main.rkt | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/main.rkt b/main.rkt index 48f479b..a44b222 100644 --- a/main.rkt +++ b/main.rkt @@ -10,7 +10,6 @@ ;; Internal data (define hpanes #f) - (define column-min-widths (make-vector columns 0)) (define creating-row #f) (define current-col 0) (define current-row 0) @@ -77,10 +76,13 @@ ;; Fields that can be given (init-field [vert-margin 5] [horiz-margin 5] [spacing 5] [columns 1]) + ;; Internal data + (define column-min-widths (make-vector columns 0)) + ;; Public methods (define/public (column-min-width c . 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)) @@ -111,6 +113,7 @@ ;(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])) +;(send g column-min-width 1 500) ;(define btn1 (new button% [parent g] [label "Button 1"])) ;(define g1 (new gauge% [parent g] [stretchable-width #t] [label "gauge 1"] [range 100]))