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

increase the font size and increase the sampling

Browse Source 
frequency in the profiler that drracket starts up
via the PLDRPROFILE environment variable
This commit is contained in:
Robby Findler 2012-08-16 09:26:30 -05:00
parent 49eb4ab11c
commit a8da7e452f
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/drracket/private/profile-drs.rkt
View File

@ -32,7 +32,7 @@ itself.
(define pause-b (new button% [label "Pause"] [parent bp] [callback (λ (a b) (pause))] [stretchable-width #t]))
(define resume-b (new button% [label "Resume"] [parent bp] [callback (λ (a b) (resume))] [stretchable-width #t]))
(define start-stop-b (new button% [label "Stop"] [parent bp] [callback (λ (a b) (start-stop))] [stretchable-width #t]))
(define choice (new choice% [label #f] [choices '("9" "10" "12")] [parent bp] [callback (λ (a b) (font-size))]))
(define choice (new choice% [label #f] [choices '("12" "9")] [parent bp] [callback (λ (a b) (font-size))]))
(define mb (new menu-bar% [parent frame]))
@ -66,7 +66,9 @@ itself.
(define running? #f)
(define current-sampler #f)
(define (start-sampler)
(let ([s (create-sampler (list drs-custodian drs-main-thread) 1/2 super-custodian)])
(let ([s (create-sampler (list drs-custodian drs-main-thread)
#e0.05
super-custodian)])
(set! current-sampler s)))
(define (stop-sampler)
(current-sampler 'stop)
@ -74,7 +76,7 @@ itself.
(set! running? #f))
(define sd (let ([sd (make-object style-delta%)])
(send sd set-delta 'change-size 9)
(send sd set-delta 'change-size 12)
(send sd set-family 'modern)
sd))