From 8c03fcf8dabf37c02069e5eb50432ac06ac9e227 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 30 May 2006 17:15:04 +0000 Subject: [PATCH] fixed a bug in capability registration svn: r3122 --- collects/drscheme/private/main.ss | 4 ++++ collects/drscheme/private/unit.ss | 1 - 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/collects/drscheme/private/main.ss b/collects/drscheme/private/main.ss index b5dcf049b0..5700f78e78 100644 --- a/collects/drscheme/private/main.ss +++ b/collects/drscheme/private/main.ss @@ -247,6 +247,10 @@ (drscheme:language:register-capability 'drscheme:define-popup (or/c (cons/c string? string?) false/c) (cons "(define" "(define ...)")) + + (drscheme:language:register-capability 'drscheme:special:insert-fraction (flat-contract boolean?) #t) + (drscheme:language:register-capability 'drscheme:special:insert-large-letters (flat-contract boolean?) #t) + (drscheme:language:register-capability 'drscheme:special:insert-lambda (flat-contract boolean?) #t) (handler:current-create-new-window (let ([drscheme-current-create-new-window diff --git a/collects/drscheme/private/unit.ss b/collects/drscheme/private/unit.ss index da86442697..577dc0e2cc 100644 --- a/collects/drscheme/private/unit.ss +++ b/collects/drscheme/private/unit.ss @@ -2549,7 +2549,6 @@ module browser threading seems wrong. (let ([items (send menu get-items)]) (when (null? items) (error 'register-capability-menu-item "menu ~e has no items" menu)) - (drscheme:language:register-capability key (flat-contract boolean?) #t) (let* ([menu-item (car (last-pair items))] [this-one (list menu-item (length items) key)] [old-ones (hash-table-get capability-menu-items menu (λ () '()))])