From e1ffc0dd9aa5bc9311e478733c232909eaa4e9eb Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@barzilay.org>
Date: Mon, 17 Oct 2011 11:47:41 -0400
Subject: [PATCH] Make `create-new-tab' public. (cherry picked from commit
 319a158dec0052f3e4ab150405c9855342973002)

---
 collects/drracket/private/interface.rkt | 1 +
 collects/drracket/private/unit.rkt      | 2 +-
 collects/scribblings/tools/unit.scrbl   | 4 ++++
 3 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/collects/drracket/private/interface.rkt b/collects/drracket/private/interface.rkt
index eafa17386c..c070e4db60 100644
--- a/collects/drracket/private/interface.rkt
+++ b/collects/drracket/private/interface.rkt
@@ -37,6 +37,7 @@ remain the same for tools that use them.
     execute-callback
     get-current-tab
     open-in-new-tab
+    create-new-tab
     close-current-tab
     on-tab-change
     enable-evaluation
diff --git a/collects/drracket/private/unit.rkt b/collects/drracket/private/unit.rkt
index 0cce7e97c9..0c5651583e 100644
--- a/collects/drracket/private/unit.rkt
+++ b/collects/drracket/private/unit.rkt
@@ -2770,7 +2770,7 @@ module browser threading seems wrong.
       
       ;; create-new-tab : -> void
       ;; creates a new tab and updates the GUI for that new tab
-      (define/private create-new-tab
+      (define/public create-new-tab
         (lambda ([filename #f])
           (let* ([defs (new (drracket:get/extend:get-definitions-text))]
                  [tab-count (length tabs)]
diff --git a/collects/scribblings/tools/unit.scrbl b/collects/scribblings/tools/unit.scrbl
index 0e7bc895ce..85fd7c1833 100644
--- a/collects/scribblings/tools/unit.scrbl
+++ b/collects/scribblings/tools/unit.scrbl
@@ -608,6 +608,10 @@ Returns the currently active tab.
   It loads that file in the definitions window of the new tab.
 }
 
+@defmethod[(create-new-tab) void?]{
+  Creates a new tab.
+}
+
 @defmethod[(next-tab) void?]{
   Switches to the next tab.
 }