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

Make `create-new-tab' public.

Browse Source 
(cherry picked from commit 319a158dec)
This commit is contained in:
Eli Barzilay 2011-10-17 11:47:41 -04:00
parent 6d49072822
commit e1ffc0dd9a
3 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
collects/drracket/private/interface.rkt
View File

@ -37,6 +37,7 @@ remain the same for tools that use them.
execute-callback execute-callback
get-current-tab get-current-tab
open-in-new-tab open-in-new-tab
create-new-tab
close-current-tab close-current-tab
on-tab-change on-tab-change
enable-evaluation enable-evaluation

2
collects/drracket/private/unit.rkt
View File

@ -2770,7 +2770,7 @@ module browser threading seems wrong.
;; create-new-tab : -> void ;; create-new-tab : -> void
;; creates a new tab and updates the GUI for that new tab ;; 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]) (lambda ([filename #f])
(let* ([defs (new (drracket:get/extend:get-definitions-text))] (let* ([defs (new (drracket:get/extend:get-definitions-text))]
[tab-count (length tabs)] [tab-count (length tabs)]

4
collects/scribblings/tools/unit.scrbl
View File

@ -608,6 +608,10 @@ Returns the currently active tab.
It loads that file in the definitions window of the new 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?]{ @defmethod[(next-tab) void?]{
Switches to the next tab. Switches to the next tab.
} }