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

Grab the fix for get-tab-count.

Browse Source 
svn: r18294
This commit is contained in:
Stevie Strickland 2010-02-23 10:30:29 +00:00
commit ff065ca1d8
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/drscheme/private/main.ss
View File

@ -564,7 +564,7 @@
(when frame (when frame
(send frame next-tab))))]) (send frame next-tab))))])
(let ([frame (find-frame windows-menu)]) (let ([frame (find-frame windows-menu)])
(unless (= 1 (send frame get-tab-count)) (unless (or (not frame) (= 1 (send frame get-tab-count)))
(for ([i (in-range 0 (send frame get-tab-count))] (for ([i (in-range 0 (send frame get-tab-count))]
#:when (< i 9)) #:when (< i 9))
(new menu-item% (new menu-item%

2
collects/repos-time-stamp/stamp.ss
View File

@ -1 +1 @@
#lang scheme/base (provide stamp) (define stamp "22feb2010") #lang scheme/base (provide stamp) (define stamp "23feb2010")