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

fix some editor lock tracking

Browse Source 
svn: r14614

original commit: 4141389b847687df4dc0d9d9141575f55c368338
This commit is contained in:
Matthew Flatt 2009-04-26 15:24:50 +00:00
parent 603e6d11fc
commit ef3cf1eab8
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/mred/private/wxme/text.ss
View File

@ -4187,16 +4187,16 @@
(let ([at-start? (eq? (mline-snip line) snip1)] (let ([at-start? (eq? (mline-snip line) snip1)]
[at-end? (eq? (mline-last-snip line) snip2)] [at-end? (eq? (mline-last-snip line) snip2)]
[wl? write-locked?] [wl? write-locked?]
[fl flow-locked?]) [fl? flow-locked?])
(set! read-locked? #t) (set! read-locked? #t)
(set! write-locked? #t) (set! write-locked? #t)
(set! flow-locked? #t) (set! flow-locked? #t)
(set-snip-flags! snip2 (add-flag (snip->flags snip2) CAN-SPLIT)) (set-snip-flags! snip2 (add-flag (snip->flags snip2) CAN-SPLIT))
(let ([naya (send snip2 merge-with snip1)]) (let ([naya (send snip2 merge-with snip1)])
(set! read-locked? #t) (set! read-locked? #f)
(set! write-locked? wl?) (set! write-locked? wl?)
(set! flow-locked? wl?) (set! flow-locked? fl?)
(if naya (if naya
(begin (begin