From 8abd37d19463514651967ab3a9973aab9a3d710f Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 1 Oct 2002 04:21:19 +0000 Subject: [PATCH] .. original commit: 8633aba8af2c31cfe2046e665b301f8aad37f206 --- collects/drscheme/private/syntax-browser.ss | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/collects/drscheme/private/syntax-browser.ss b/collects/drscheme/private/syntax-browser.ss index 1f175737..776f0acc 100644 --- a/collects/drscheme/private/syntax-browser.ss +++ b/collects/drscheme/private/syntax-browser.ss @@ -25,7 +25,9 @@ needed to really make this work: (define t (make-object text%)) (define ec (make-object editor-canvas% f t)) (append-editor-operation-menu-items edit-menu) + (send t insert "ac") (send t insert es) + (send t insert "#") (send f show #t))) (define (render-syntax/snip stx) (make-object syntax-snip% stx)) @@ -219,11 +221,12 @@ needed to really make this work: (define details-shown? #t) - (inherit show-border) + (inherit show-border set-tight-text-fit) (define (hide-details) (when details-shown? (send outer-t lock #f) (show-border #f) + (set-tight-text-fit #t) (send outer-t release-snip inner-es) (send outer-t delete (send outer-t last-position)) (send outer-t lock #t) @@ -233,6 +236,7 @@ needed to really make this work: (unless details-shown? (send outer-t lock #f) (show-border #t) + (set-tight-text-fit #f) (send outer-t insert #\newline (send outer-t last-position) (send outer-t last-position))