From 968eb414759007c569cd93c802f676c3174173a7 Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Thu, 3 Feb 2011 16:53:49 -0700 Subject: [PATCH] auto-open top-level test suites in rackunit gui Merge to release branch (cherry picked from commit e3c02f7072638719d3d7b81cd3dcde4c1171a101) --- collects/rackunit/private/gui/view.rkt | 25 ++++++++++++++----------- 1 file changed, 14 insertions(+), 11 deletions(-) diff --git a/collects/rackunit/private/gui/view.rkt b/collects/rackunit/private/gui/view.rkt index 4de4a148df..9a716b04f5 100644 --- a/collects/rackunit/private/gui/view.rkt +++ b/collects/rackunit/private/gui/view.rkt @@ -222,19 +222,22 @@ still be there, just not visible? ;; Construction - ;; create-view-link : result<%> suite-result<%>/#f-> item + ;; create-view-link : result<%> suite-result<%>/#f-> void (define/public (create-view-link model parent) - (let ([parent-link - (if parent - (get-view-link parent) - this)]) - (initialize-view-link (cond [(is-a? model suite<%>) - (send parent-link new-list)] - [(is-a? model case<%>) - (send parent-link new-item)]) - model))) + (let* ([parent-link + (if parent + (get-view-link parent) + this)] + [view-link + (cond [(is-a? model suite<%>) + (send parent-link new-list)] + [(is-a? model case<%>) + (send parent-link new-item)])]) + (initialize-view-link view-link model) + (when (and (is-a? model suite<%>) (not parent)) + (send view-link open)))) - ;; initialize-view-link : result<%> (U compound-item% item%) -> item + ;; initialize-view-link : result<%> (U compound-item% item%) -> void (define/private (initialize-view-link item model) (set-view-link model item) (send item user-data model)