From 4e329ad7584fb0145715ae32918df4f55c3e5712 Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Wed, 15 Dec 2010 19:13:43 -0700 Subject: [PATCH] macro-stepper: avoid too-long labels in hiding policy display original commit: 9f3ac8648891774d723ff46d261c168e10f7b5bd --- collects/macro-debugger/view/hiding-panel.rkt | 16 +++++++++++----- 1 file changed, 11 insertions(+), 5 deletions(-) diff --git a/collects/macro-debugger/view/hiding-panel.rkt b/collects/macro-debugger/view/hiding-panel.rkt index 5442459..fb3c4e8 100644 --- a/collects/macro-debugger/view/hiding-panel.rkt +++ b/collects/macro-debugger/view/hiding-panel.rkt @@ -252,11 +252,17 @@ TODO ;; ---- (define (policy->string policy) - (string-append - (case (car policy) - ((show-if) "show ") - ((hide-if) "hide ")) - (condition->string (cadr policy)))) + (string-limit 200 + (string-append + (case (car policy) + ((show-if) "show ") + ((hide-if) "hide ")) + (condition->string (cadr policy))))) + +(define (string-limit size s) + (cond [(> (string-length s) size) + (string-append (substring s 0 (- size 3)) "...")] + [else s])) (define (condition->string condition) (match condition