fixed a bug with the check syntax button

svn: r4118
2006-08-23 02:12:06 +00:00 · 2006-08-23 02:12:06 +00:00 · 0530b1c931
commit 0530b1c931
parent 6becb7b254
1 changed files with 6 additions and 0 deletions
--- a/collects/drscheme/private/language-configuration.ss
+++ b/collects/drscheme/private/language-configuration.ss
@ -1460,6 +1460,12 @@
          (define/override (front-end/complete-program input settings teachpack-cache)
            (not-a-language-message)
            (λ () eof))
+          
+          (define/augment (capability-value v)
+            (case v
+              [(drscheme:check-syntax-button) #f]
+              [else (drscheme:language:get-capability-default v)]))
+          
          (super-new)))
      
      ;; used for identification only