From 540f43327d487abe1304f12abb2c5ee18ec1a6c0 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sun, 31 Jan 2010 13:32:19 +0000 Subject: [PATCH] added a little more error checking svn: r17912 --- collects/mrlib/hierlist/hierlist-unit.ss | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/collects/mrlib/hierlist/hierlist-unit.ss b/collects/mrlib/hierlist/hierlist-unit.ss index b06a7ed114..266efa79a5 100644 --- a/collects/mrlib/hierlist/hierlist-unit.ss +++ b/collects/mrlib/hierlist/hierlist-unit.ss @@ -720,10 +720,14 @@ [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)]))] + [(allow-deselect) + (when selected + (send selected show-select #f) + (set! selected #f) + (set! selected-item #f))] + [else + (error 'hierarchical-list%::select + "can only pass #f when allow-deselect has been called with #t")]))] [click-select (lambda (i) (send i click-select #t) (send i scroll-to))]