From bb6ba05347e4ed4c295b98e71dd1cb07a783a8f4 Mon Sep 17 00:00:00 2001 From: Jonathan Simpson Date: Sat, 17 Jan 2026 10:09:05 -0500 Subject: [PATCH] don't set list-box% content when set-string given column > 0 - calling set-string with a column argument other than 0 overwrites content, which doesn't appear to store any data other than the string to display in column 0. this breaks future calls to get-string. --- gui-lib/mred/private/mritem.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/gui-lib/mred/private/mritem.rkt b/gui-lib/mred/private/mritem.rkt index bfcb1b851..5eae3f7c3 100644 --- a/gui-lib/mred/private/mritem.rkt +++ b/gui-lib/mred/private/mritem.rkt @@ -903,7 +903,8 @@ (sub1 num-columns) #f))) (check-item 'set-string n) - (send this -set-list-string n d) + (when (= col 0) + (send this -set-list-string n d)) (send wx set-string n d col)))] [set-data (entry-point (lambda (n d) (check-item 'set-data n) (send wx set-data n d)))] [get-first-visible-item (entry-point (lambda () (send wx get-first-item)))]