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

cell*

Browse Source
This commit is contained in:
Hans Dijkema
2025-08-06 13:43:27 +02:00
parent a48e424fd3
commit 01211e9aa7
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
main.rkt
View File

@@ -109,7 +109,7 @@
(define/override (after-new-child child) (define/override (after-new-child child)
(super after-new-child child) (super after-new-child child)
(when (eq? creating-row #f) (when (eq? creating-row #f)
(let ((cell (get-cell* current-col current-row))) (let ((cell (cell* current-col current-row)))
(send child reparent cell)) (send child reparent cell))
(set! current-col (+ current-col 1)) (set! current-col (+ current-col 1))
(when (>= current-col columns) (when (>= current-col columns)