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

...

Browse Source 
original commit: c0c221970984f09e7234cd369ddb304e3ea5ef4a
This commit is contained in:
Robby Findler 2002-01-09 20:05:09 +00:00
parent b1e92c79f1
commit 8f9bea1c26
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
collects/framework/private/text.ss
View File

@ -491,7 +491,8 @@
(when (and (or (equal? (unbox len-b) 0) (when (and (or (equal? (unbox len-b) 0)
(equal? (unbox len-b) null)) (equal? (unbox len-b) null))
(not (unbox in-units-b))) (not (unbox in-units-b)))
(set/f! wb (unbox tab-width-b)))))))) (let ([tabspace (unbox tab-width-b)])
(set/f! wb (tabspace . - . (x . modulo . tabspace))))))))))
(set/f! hb 0) (set/f! hb 0)
(set/f! db 0) (set/f! db 0)
@ -513,13 +514,15 @@
find-first-snip get-style-list set-tabs) find-first-snip get-style-list set-tabs)
(define/private (copy snip) (define/private (copy snip)
(let ([res (let ([new-snip
(if (is-a? snip tab-snip%) (if (is-a? snip tab-snip%)
(make-object 1-pixel-tab-snip%) (let ([snip (make-object 1-pixel-tab-snip%)])
(send snip insert "#\t" 1)
snip)
(make-object 1-pixel-string-snip% (make-object 1-pixel-string-snip%
(send snip get-text 0 (send snip get-count))))]) (send snip get-text 0 (send snip get-count))))])
(send res set-flags (send snip get-flags)) (send new-snip set-flags (send snip get-flags))
res)) new-snip))
(field (delegate #f)) (field (delegate #f))
(define/public (get-delegate) delegate) (define/public (get-delegate) delegate)