suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

..

Browse Source 
original commit: 8633aba8af2c31cfe2046e665b301f8aad37f206
This commit is contained in:
Robby Findler 2002-10-01 04:21:19 +00:00
parent 4155236f41
commit 8abd37d194
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/drscheme/private/syntax-browser.ss
View File

@ -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 "#<syntax>")
(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))