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

...

Browse Source 
original commit: 1340853431238e968af27850de8fceab84d41a96
This commit is contained in:
Robby Findler 2002-01-09 00:24:35 +00:00
parent 6bc79d03a4
commit 0526ba8414
1 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -513,8 +513,11 @@
find-first-snip get-style-list set-tabs)
(define/private (copy snip)
(let ([res (make-object 1-pixel-string-snip%
(send snip get-text 0 (send snip get-count)))])
(let ([res
(if (is-a? snip tab-snip%)
(make-object 1-pixel-tab-snip%)
(make-object 1-pixel-string-snip%
(send snip get-text 0 (send snip get-count))))])
(send res set-flags (send snip get-flags))
res))
@ -532,11 +535,12 @@
(send delegate set-style-list (get-style-list))
(let loop ([snip (find-first-snip)])
(when snip
(send delegate insert
(copy snip)
(send delegate last-position)
(send delegate last-position))
(loop (send snip next))))
(let ([copy-of-snip (copy snip)])
(send delegate insert
copy-of-snip
(send delegate last-position)
(send delegate last-position))
(loop (send snip next)))))
(send delegate lock #t)
(send delegate end-edit-sequence)))