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

.

Browse Source 
original commit: dc14c63af55cf131bd87facf90eb797bec976a76
This commit is contained in:
Matthew Flatt 2005-01-31 15:46:39 +00:00
parent a5a5d520ba
commit 8a0e0d7463
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mred/mred.ss
View File

@ -1984,7 +1984,7 @@
(list this (+ x (get-init-x)) y (get-total-width) tab-height))
(define/public (number) (length tabs))
(define (draw-once dc w light? dark? inset)
(define/private (draw-once dc w light? dark? inset)
(let ([init-x (get-init-x)])
(let loop ([x init-x][l tabs][wl tab-widths][pos 0])
(if (null? l)