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

added guard against passing #f to the make-button procedure

Browse Source
This commit is contained in:
Robby Findler 2010-04-15 23:07:27 -04:00
parent 10c6213a8f
commit d4c0aa1daf
1 changed files with 32 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/drscheme/private/module-language-tools.ss
View File

@ -134,10 +134,11 @@
(info-result 'drscheme:opt-out-toolbar-buttons '()))))))) (info-result 'drscheme:opt-out-toolbar-buttons '())))))))
(inherit get-tab) (inherit get-tab)
(define/private (register-new-buttons buttons opt-out-ids)
(define/private (register-new-buttons buttons opt-out-ids)
(let* ([tab (get-tab)] (let* ([tab (get-tab)]
[frame (send tab get-frame)]) [frame (send tab get-frame)])
(when (send frame initialized?)
(send frame begin-container-sequence) (send frame begin-container-sequence)
(let ([directly-specified-buttons (let ([directly-specified-buttons
(map (λ (button-spec) (map (λ (button-spec)
@ -167,7 +168,7 @@
opt-out-buttons) opt-out-buttons)
string<=? string<=?
#:key (λ (x) (send x get-label))))) #:key (λ (x) (send x get-label)))))
(send frame end-container-sequence))) (send frame end-container-sequence))))
(inherit get-text) (inherit get-text)
(define/private (get-lang-name pos) (define/private (get-lang-name pos)