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

..

Browse Source 
original commit: 72c0e4c4c0ecafe65215fb0ac199a7ff979113d4
This commit is contained in:
Robby Findler 2003-01-15 18:08:16 +00:00
parent 5adacd87a6
commit d553228b36
1 changed files with 31 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -559,33 +559,36 @@
(make-hash-table) (make-hash-table)
#f)) #f))
(when delegate (when delegate
(send delegate begin-edit-sequence) (refresh-delegate)))
(send delegate lock #f)
(when (is-a? this scheme:text<%>) (define/private (refresh-delegate)
(send delegate set-tabs null (send this get-tab-size) #f)) (send delegate begin-edit-sequence)
(send delegate hide-caret #t) (send delegate lock #f)
(send delegate erase) (when (is-a? this scheme:text<%>)
(send delegate set-style-list (get-style-list)) (send delegate set-tabs null (send this get-tab-size) #f))
(let loop ([snip (find-first-snip)]) (send delegate hide-caret #t)
(when snip (send delegate erase)
(let ([copy-of-snip (copy snip)]) (send delegate set-style-list (get-style-list))
(send delegate insert (let loop ([snip (find-first-snip)])
copy-of-snip (when snip
(send delegate last-position) (let ([copy-of-snip (copy snip)])
(send delegate last-position)) (send delegate insert
(loop (send snip next))))) copy-of-snip
(for-each (send delegate last-position)
(lambda (range) (send delegate last-position))
(send delegate highlight-range (loop (send snip next)))))
(range-start range) (for-each
(range-end range) (lambda (range)
(range-color range) (send delegate highlight-range
(range-b/w-bitmap range) (range-start range)
(range-caret-space? range) (range-end range)
'high)) (range-color range)
(reverse (get-highlighted-ranges))) (range-b/w-bitmap range)
(send delegate lock #t) (range-caret-space? range)
(send delegate end-edit-sequence))) 'high))
(reverse (get-highlighted-ranges)))
(send delegate lock #t)
(send delegate end-edit-sequence))
(rename [super-highlight-range highlight-range]) (rename [super-highlight-range highlight-range])
(define/override highlight-range (define/override highlight-range
@ -683,12 +686,7 @@
(define/override (after-load-file success?) (define/override (after-load-file success?)
(super-after-load-file success?) (super-after-load-file success?)
(when (and delegate success?) (when (and delegate success?)
(send delegate begin-edit-sequence) (refresh-delegate)))
(send delegate lock #f)
(send delegate load-file/gui-error filename format)
(send delegate set-filename #f)
(send delegate lock #t)
(send delegate end-edit-sequence)))
(super-instantiate ()))) (super-instantiate ())))
(define info<%> (interface (basic<%>))) (define info<%> (interface (basic<%>)))