From 20bcf80e8b464b82e88545ed82bb057a258753d3 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 5 Jan 2012 22:39:42 -0600 Subject: [PATCH] add a check to make sure we don't try to select a teachpack when the user clicks on empty space closes PR 12472 --- collects/lang/htdp-langs.rkt | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/collects/lang/htdp-langs.rkt b/collects/lang/htdp-langs.rkt index d99c89ef9f..6e6597ae8d 100644 --- a/collects/lang/htdp-langs.rkt +++ b/collects/lang/htdp-langs.rkt @@ -741,9 +741,10 @@ [parent user-installed-gb])) (define (selected lb) - (unless compiling? - (set! answer (figure-out-answer)) - (send dlg show #f))) + (when (send lb get-selection) + (unless compiling? + (set! answer (figure-out-answer)) + (send dlg show #f)))) (define (clear-selection lb) (for-each