From cf6c45e0c3c880ac0db7ecfb56c08c87b8759c38 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Tue, 13 May 2008 02:37:36 +0000
Subject: [PATCH] added get-language-menu

svn: r9820
---
 collects/drscheme/private/unit.ss     |  6 ++++-
 collects/scribblings/tools/unit.scrbl | 37 ++++++++-------------------
 2 files changed, 15 insertions(+), 28 deletions(-)

diff --git a/collects/drscheme/private/unit.ss b/collects/drscheme/private/unit.ss
index f7683b4a4c..108bcad45a 100644
--- a/collects/drscheme/private/unit.ss
+++ b/collects/drscheme/private/unit.ss
@@ -1170,7 +1170,9 @@ module browser threading seems wrong.
         
         ensure-rep-shown
         ensure-rep-hidden
-        ensure-defs-shown))
+        ensure-defs-shown
+        
+        get-language-menu))
     
     (define frame-mixin
       (mixin (drscheme:frame:<%> frame:searchable-text<%> frame:delegate<%> frame:open-here<%>)
@@ -1503,6 +1505,8 @@ module browser threading seems wrong.
               (unless (equal? label new-label)
                 (send scheme-menu set-label new-label)))))
         
+        (define/public (get-language-menu) scheme-menu)
+        
         ;; update-save-message : -> void
         ;; sets the save message. If input is #f, uses the frame's
         ;; title.
diff --git a/collects/scribblings/tools/unit.scrbl b/collects/scribblings/tools/unit.scrbl
index 37c883aa37..a841864086 100644
--- a/collects/scribblings/tools/unit.scrbl
+++ b/collects/scribblings/tools/unit.scrbl
@@ -3,61 +3,38 @@
 @title{@tt{drscheme:unit}}
 
 @definterface[drscheme:unit:tab<%> (drscheme:rep:context<%>)]{
-
-
-
-@defmethod[(break-callback)
-           void?]{
+@defmethod[(break-callback) void?]{
 @methspec{
-
 This method is called when the break button is clicked and
 this tab is the active tab.
-
 }
 @methimpl{
-
 By default, breaks any evaluation that may be happening at
 this point.
-
-
 }}
 
-@defmethod[#:mode pubment 
-           (can-close?)
-           boolean?]{
+@defmethod[#:mode pubment (can-close?) boolean?]{
 @methspec{
-
 This method is called to determine if it is okay to close this tab.
-
 }
 @methimpl{
-
 Calls the definitions text's and interactions text's
 @method[editor:basic<%> can-close?] method.
-
-
 }}
 
 @defmethod[#:mode override 
            (disable-evaluation)
            void?]{
-
 Disables the Run button, and the Run menu item and
 @method[editor<%> lock]s the interactions window, and the definitions window.
-
-
 }
 
 @defmethod[#:mode override 
            (enable-evaluation)
            void?]{
-
 Enables the Run button, and the Run menu item and unlocks
 (via the
-@method[editor<%> lock]method) the interactions window and the definitions window.
-
-
-}
+@method[editor<%> lock] method) the interactions window and the definitions window.}
 
 @defmethod[#:mode override 
            (get-breakables)
@@ -553,7 +530,13 @@ items based on the contents of the windows.
 
 @definterface[drscheme:unit:frame<%> ()]{
 
-
+@defmethod[(get-language-menu) (is-a?/c menu%)]{ Returns the
+  language-specific menu. This menu is called the
+  @onscreen{Scheme} menu in the Scheme language but is, in general,
+  controlled by the @scheme['drscheme:language-menu-title] 
+  capability (see @scheme[drscheme:language:register-capability]
+  for details on capabilities).
+ }
 
 @defmethod[(ensure-defs-shown)
            void?]{