From 88384ffeb045a40ba7b385147e6f5342d2d6739d Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 29 Jan 2010 20:30:46 +0000 Subject: [PATCH] fix select #f for hierlist svn: r17888 original commit: 73a1675286ac0ebb6d86d2535a50f1edc3667d1b --- collects/mrlib/hierlist/hierlist-unit.ss | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/collects/mrlib/hierlist/hierlist-unit.ss b/collects/mrlib/hierlist/hierlist-unit.ss index 27b1cb60..b06a7ed1 100644 --- a/collects/mrlib/hierlist/hierlist-unit.ss +++ b/collects/mrlib/hierlist/hierlist-unit.ss @@ -716,8 +716,14 @@ (send (car l) scroll-to)] [else (loop (cdr l))])))] [select (lambda (i) - (send i select #t) - (send i scroll-to))] + (cond + [i + (send i select #t) + (send i scroll-to)] + [(and (allow-deselect) selected) + (send selected show-select #f) + (set! selected #f) + (set! selected-item #f)]))] [click-select (lambda (i) (send i click-select #t) (send i scroll-to))]