added get-tabs

svn: r4485
2006-10-04 22:46:42 +00:00 · 2006-10-04 22:46:42 +00:00 · dddd0a9243
commit dddd0a9243
parent 7899d16121
1 changed files with 1 additions and 0 deletions
--- a/collects/drscheme/private/unit.ss
+++ b/collects/drscheme/private/unit.ss
@ -2924,6 +2924,7 @@ module browser threading seems wrong.
                                  (i 0)
                                  (defs-shown? #t)
                                  (ints-shown? #t))))
+          (define/public-final (get-tabs) tabs)
          
          ;; current-tab : tab
          ;; corresponds to the tabs-panel's active button.